مشكلة في الربط

#112 أكتوبر 2005 في 06:36 صاحب الموضوع

السلاااااااااام عليكم :rolleyes:

انا عندي مشكلة في كود الربط بقاعدة البيانات عملت start للبرنامج ظهرلي الفورم لكن في حدث اللود البيانات ماتحملت في الtextbox

Me.OleDbConnection1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "C:\ebinsena.mdb;"
        Me.BackgroundImage = GetGraphicsObject(Me.Width, Me.Height)
        Dim n As New OleDbCommand()
        Dim r As OleDbDataReader
        n.Connection = OleDbConnection1
        n.CommandText = "select * from ebinsena"
     OleDbConnection1.Open()
       r = n.ExecuteReader
                If r.Read Then
                    TextBox1.Text = r.GetInt32(0)
                    TextBox2.Text = r.GetString(1)
                    TextBox3.Text = r.GetInt32(2)
                    TextBox4.Text = r.GetInt32(3)
                    TextBox5.Text = r.GetInt32(4)
                    TextBox6.Text = r.GetString(5)
                    TextBox7.Text = r.GetString(6)
                    TextBox8.Text = r.GetString(7)
                End If
                OleDbConnection1.Close()
                r.Close()

تظهر لي بعض الأخطاء :angry:

في هذي الاوامر

OleDbConnection1.Open()
r = n.ExecuteReader
r.Close()

ملاحظة(بين الجداول علاقات)

وشكرررررررررررررا

#212 أكتوبر 2005 في 10:38

السلام عليكم ورحمة الله وبركاته

أختنا الفاضله

أنت مش ملاحظة أنك كتبتى المسار غلط فى السطر التالى

& Application.StartupPath & "C:\ebinsena.mdb;

كان المفروض يكون بدون C:

مثل هذا

& Application.StartupPath & "\ebinsena.mdb;

وفقك الله لما يحبه ويرضاه

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#313 أكتوبر 2005 في 00:23

سويت مثل ماقلت ماضبط نفس الشي يعطيني خطاء عند

r = n.ExecuteReader

#413 أكتوبر 2005 في 01:13

السلام عليكم أختى فى الله هل يمكن ان تبعثى المشروع كى نتمكن من المساعدة

وبرجاء مراجعة الرابط التالى مشروع لى فية جميع الاجراءات فانا متوقع انا هناك عيوب فى الاكود وارجوا ان تذكرى ما الهدف من هذا المشروع

/index.ph...topic=49999&hl=

الفريق المصري للبرمجة

تحليل وتصميم برامج قواعد بيانات لاتصال بينا masry4u@hotmail.com

#513 أكتوبر 2005 في 06:13

مشكور يااخ كفاح شفت مشروعك يختلف كثير عن مشروعي انت مشروعك VB.NET2003ماشتغل معي لأن ماعندي 2003انا 2002 :(

اقتباس
متوقع انا هناك عيوب فى الاكود

من ناحية العيوب اكيد فية عيوب كثييييييييييييييييييييييييييييييييييييييييرة <_<

اقتباس
الهدف من هذا المشروع

مطلوب مني انشي قاعدة بيانات وانشيء علاقات بينهم واعملها ارتباط مع الفيجوال بطريقة ال(معالج ,الكود) :angry:

ابي تصحيح للأكواد

زر الأضافة

Dim ins As New OleDbCommand()
        ins.CommandType = CommandType.Text
        ins.CommandText = "insert into ebinsena1 (pname,filenum,vtime,docname,clinic,notes)values(" & TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & ")"
        ins.Connection = OleDbConnection1
        Try
            OleDbConnection1.Open()
        Catch
            ins.ExecuteNonQuery()
            OleDbConnection1.Close()
        Finally
            MsgBox("done")
        End Try

زر العرض

Dim cnn As New OleDbCommand()
        Dim rd As OleDbDataReader
        cnn.Connection = OleDbConnection1
        cnn.CommandText = "select * from ebinsena1"
            OleDbConnection1.Open()
        rd = cnn.ExecuteReader
        If rd.Read Then
            TextBox1.Text = rd.GetString(0)
            TextBox2.Text = rd.GetInt32(1)
            TextBox3.Text = rd.GetInt32(2)
            TextBox4.Text = rd.GetDateTime(3)
            TextBox5.Text = rd.GetString(4)
            TextBox6.Text = rd.GetString(5)
        End If
        OleDbConnection1.Close()
        rd.Close()

بليزززززززززززززززززززززز سااااااااااااااااااااااااااااااعدوني :( :( :( :( :( :( :( :( :( :( :( :(

وابي اعرف كود الحفظ

معلييييييييييييييييييييييييييييش ثقلللللللللللللللللللللت عليكم

شكررررررررررررررررررررررررررررا جزيلا

#613 أكتوبر 2005 في 06:30

السلام عليكم

بلنسبة لكود الحفظ جربى الكود التالى

    Dim ins As New OleDbCommand
        ins.CommandType = CommandType.Text
        ins.CommandText = "INSERT INTO  ebinsena1 ([pname],[filenum],[vtime],[docname],[clinic],[notes])VALUES('" & TextBox1.Text.Trim & "','" & TextBox2.Text.Trim & "','" & TextBox3.Text.Trim & "','" & TextBox4.Text.Trim & "','" & TextBox5.Text.Trim & "', '" & Me.TextBox6.Text.Trim & " ')"
        ins.Connection = OleDbConnection1
        Try
            OleDbConnection1.Open()
            ins.ExecuteNonQuery()
            OleDbConnection1.Close()
        Catch
        Finally

        End Try

    Dim cnn As New OleDbCommand
        Dim rd As OleDbDataReader
        cnn.Connection = OleDbConnection1
        cnn.CommandText = "select * from ebinsena1"
        OleDbConnection1.Open()
        rd = cnn.ExecuteReader
        If Not rd.Read Then
            OleDbConnection1.Close()
            rd.close()
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        Else
            TextBox1.Text = rd.Item(0)
            TextBox2.Text = rd.GetInt32(1)
            TextBox3.Text = rd.GetInt32(2)
            TextBox4.Text = rd.GetDateTime(3)
            TextBox5.Text = rd.GetString(4)
            TextBox6.Text = rd.GetString(5)
            OleDbConnection1.Close()
            rd.close()
        End If

فى حالة عم عمل الكود يفضل وضع الشاشة الحالية مع قاعدة البيانات

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#714 أكتوبر 2005 في 05:46

الله يجزاك الف خير مشكورررررررررررررررر عن جد مادري كيف اشكرك كل شي ضبط معي ياأخ waleedhm

وشكرا لكل اللي ساعدوني

طلب صغيرررررررر واخر طلب إن شاء الله

ايش الفرق بين انشاء الأتصال بواسطة المعالج وبواسطة الكود من حيث المميزات والعيوب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

وشكرررررررررررررررررررررررررررررررررررررررررا

#814 أكتوبر 2005 في 06:27

السلام عليكم

الحمد لله ان البرنامج اشتغل

لا يوجد فرق بين انشاء الأتصال بواسطة المعالج وبواسطة الكود لو استخدم فى البرنامج المعالج فى اضافة Connection او DataSetاو DataAdapter سوف يقوم برنامج الفجول بيسك بشكل تلقائى بكتابة الكود الخاص بهم اما اضافة الادوات عن طريق الكود يعتبر اكثر احترافية

والله اعلم

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#914 أكتوبر 2005 في 23:02

فيه عيوب كثيرة وأهمها ان لو اخذتي نسخة من البرنامج الى مكان اخر وحاولتي انك تشغليه راح تواجهي خطأ اذا ماكان المسار نفسه

ثم ان التحكم بالفتح والاغلاق يكون اكثر احكاما منه في الويزرد

ثم اكتشفت انه الاخت العضوه هنا farhah_979 عندها نفس مشروع الاخت كريستينا لاحظو انهم كلهم بيشتغلو على مستوصف او مستشفى اسمها ابن سينا

خخخخخخخخخخخخخخخخخخخخخ

الله يوفقهم بس على مين لووووووول

سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)

#1014 أكتوبر 2005 في 23:28

شكرا جزيلا

اذا كان بين الجداول علاقات كيف اكتب الكود

وشكرررررررررررررررررا

#1115 أكتوبر 2005 في 01:00

السلام عليكم

اقتباس
فيه عيوب كثيرة وأهمها ان لو اخذتي نسخة من البرنامج الى مكان اخر وحاولتي انك تشغليه راح تواجهي خطأ اذا ماكان المسار نفسه

مين قال كدة ما انتا ممكن تعدل على المسار لو مستخدم الادوات كمان

اقتباس
ثم ان التحكم بالفتح والاغلاق يكون اكثر احكاما منه في الويزرد

:D

الاتنين واحد ومفيش اى فرق خالص لا فى الفتح او الاغلاق

اقتباس
اذا كان بين الجداول علاقات كيف اكتب الكود

ابحثى فى المنتدى فى مواضيع كتير بتتكلم عن الموضوع دة

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#1215 أكتوبر 2005 في 01:03

كريستنا اختي اول شي لازم تقولين كم جدول عندك واش اللي يربطهم ببعض عشان الواحد يفهم كيف يكتب الكود يعني انا ماعندي الحاسة الخمس طعش يادوبك واصل الحاسة السابعة :)

بس مثال عام

Select tbl1.PaientId , tbl1.PatienName, tbl1.DoctorId, tbl2.DoctorId , tbl2.DoctorName

from

tbl1 Inner Join tbl2

On

tbl1.DoctorId = tbl2.DoctorId

where

tbl1.PaientId = "& textbox1.text &"

راح اشرح لك الجملة عشان تفهمي كيف تعدليها بحسب اللي عندك الجدول حق الدكتور والمريض

جملة select نكتب الحقول الي نبغى نشوفها او نعرضها في النموذج

وبعدين from ونضع بينهم كلمة inner join وهذي تربط الجدولين ببعض

On هذي شرط الربط يعني اربطهم لما يكون رقم الدكتور في الجدول الاول نفسه رقم الدكتور في الجدول الثاني

وجملة الwhere عاد ذي مفهومة

بالتوفيق

سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)

#1315 أكتوبر 2005 في 01:41

شكرا جزيلا عندي جدولين والعلاقة بينهم راس باطراف مربوطين بحقل رقم الملف

#1415 أكتوبر 2005 في 01:53

ملحوظة يا شباب بلنسبة لى Inner Join دية مش علشان العلاقات بتستخدم علشان لو عامل جدول والجدول دة فى حقل fk من جدول اخر وفى الجدول الاول محفوظ id والمقابل بتاعة فى الجدول التانى الاسم فا بتعمل جملة Inner Join علشان تعرض امام المستخدم الاسم بدل الرقم

اما عمل العلاقة بين الجداول فى استخدم DataRelation

مثال

     Dim DR As DataRelation
        DR = New DataRelation("re", myds.Tables("[table]").Columns("pk"), myds.Tables("[table2]").Columns("fk"))
        myds.Relations.Add(DR)

تم تعديل هذه المشاركة بواسطة waleedhm في 17 أكتوبر 2005 في 05:21

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#1515 أكتوبر 2005 في 02:00

ياأستاذ وليد هذا الكود وين اكتبة وشكرا

#1615 أكتوبر 2005 في 02:20

السلام عليكم

فى form Load

مع اضافة الكود يعنى لو بتعملى عرض لجميع الموظفين بداخل الاداة ضيفى اسم الاداة فى ComboBox ثم فى التفاصيل فى اداة DataGrid ضيف DataRelation يعنى DataSource = DataRelation

والله اعلم

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#1715 أكتوبر 2005 في 16:19

اخوي وليد البنت لسه مش قوية في الدوت نت واعتقد انها ماراح تفهم على المثال كتير وياريت تسوي لها مثال :) (ولي كمان خخخخ)

سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)

#1817 أكتوبر 2005 في 04:19

انا لما وريت الأستاذة برنامجي قالت غلط عليك

#1917 أكتوبر 2005 في 09:26

السلام عليكم ورحمة الله وبركاته

أخى Romantic_touch

لو تراجع كلام أخونا waleedhm

ستفهم قصده

فرق كبير بين الحصول على استعلام من أكثر من جدول بينهما بيانات مشتركه من خلال الـ Join

وبين العلاقات Relationship

لأن العلاقات ستمنع وجود بيان فى الجدول التابع ليس له أصل فى الجول الأساسى

مثلا لن يكون هناك فاتورة لعميل غير موجود أو جدول حصص لأستاذ غير مقيد فى جدول المدرسين

وهذا ما يساعد فى تماسك البيانات

وهى العلاقة التى تحدث عنها أخونا waleedhm وهو أمر كان يجب توضيحه

أما موضوع الصعوبة

فإذا عرف السبب بطل العجب

ليس هناك شئ اسمه صعب إذا عرفته

أختنا كريستينا

لم أفهم تعليقك الأخير بخصوص رأى الأستاذه

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#2017 أكتوبر 2005 في 13:37

اخوي abulyaman من علاقة الjoin ايضا لن يعرض لك الجدول حقل ليس به العلاقة تحت الشرط ON في جملة الاس كيو ال :)

سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)

#2118 أكتوبر 2005 في 02:32

شوفي فيه رد هنا لي مع مثال يمكن يفيدك

/index.ph...73entry402973

سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)

#2218 أكتوبر 2005 في 08:39

السلام عليكم

اقتباس
اخوي abulyaman من علاقة الjoin ايضا لن يعرض لك الجدول حقل ليس به العلاقة تحت الشرط ON في جملة الاس كيو ال

كلام جميل

حاول يا اخى انك تعمل حفظ بقا بعد تحميل البيانات لا يمكن عمل الحفظ على جملة INNER JOIN

اقتباس
انا لما وريت الأستاذة برنامجي قالت غلط عليك

لم أفهم تعليقك الأخير بخصوص رأى الأستاذه برجاء التوضيح

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#2318 أكتوبر 2005 في 11:30

انا كنت اتكلم عن العرض وليس اادخال او التعديل :)

سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)

#2418 أكتوبر 2005 في 14:22

السلام عليكم

الإجابة في موضوع الأخت farah_979

وموفقين إن شاء الله ..

أخي الكريم

Romantic_touch

ربما الأختان تدرسان في معهد واحد ؛ لذلك الواجب واحد :)

ولكليهما الحق في الاستفسار عن أي مشكلة ؛ فهذا أفضل من أخذ الحل بدون أي مجهود !!

تحياتي للجميع وتمنياتي بالتوفيق ؛؛ :)

{ وقل رب زدني علماً }

مشكلة في الربط

مواضيع مشابهة