[مصطفى_ظيمة]

(05-05-15, 07:28 PM)سعود كتب : اكيد بس هذا الكود؟؟
اذا نعم فهذا السبب لانه لم تتم تعبئة الداتاست dataset1 بعد!!!
ام انك اسندت  selectcommand هذا  لمكيف البيانات؟

---

شوف الموضوع هذا
https://msdn.microsoft.com/en-us/library...-snippet-1

الحقيقة أخى لم افهم شئ من الرابط

فعلا الجدول Tab1 فارغ من السجلات

هذا كود الاتصال بقاعدة البيانات

كود :

Dim con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;user id=admin;jet oledb:database password=12345")

هذا باقى الكود لملء الـ Dataset1

كود :

'Dim cmd As OleDbCommand = New OleDbCommand( "Select * From Tab Inner Join Tab1 On Tab1.id = Tab.id Where Tab.id = 1",con)
       Dim cmd As OleDbCommand = New OleDbCommand("SELECT Tab.id,Tab.name,Tab.phone,Tab.datee,Tab1.idnam,Tab1.pic  from Tab,Tab1 where Tab.id = Tab1.idnam", con)
       'Dim cmd As OleDbCommand = New OleDbCommand("SELECT id,name,phone,datee  from Tab order by ID ", con)
       DataAdapter = New OleDbDataAdapter(cmd)
       Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapter)

       con.Open()
       DataSet1 = New DataSet

       DataAdapter.Fill(DataSet1, "Tab")

       con.Close()



       Label1.DataBindings.Add("Text", DataSet1, "Tab.id")
       TextBox1.DataBindings.Add("text", DataSet1, "Tab.name")
       TextBox2.DataBindings.Add("text", DataSet1, "Tab.phone", 2, 2)
       TextBox3.DataBindings.Add("text", DataSet1, "Tab.datee", 2, 2)

وممكن ابعتلك مثال لو تحب