09-08-14, 06:07 PM
مساء الخير أخواني الكرام ..
السؤال الاول :- عند في الاكسس عدة جداول واريد استدعي في جدولين وفيهم ربط بينهم .. المهم اريد استدعي البيانات من جدولين مختلفين ولا اعرف الكود المناسب ولكن وضعت هذا الكود فقلت قريب ولكن لم يعمل..حيث يعطيني مشكلة..
هذا الكود
(
If TextBox1.Text = "" Then
MsgBox("Please input the ID")
Else
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\RIT\Desktop\jam3\jam3ya.accdb"
con.Open()
ds.Tables.Add(dt)
ds.Tables.Clear()
da = New OleDbDataAdapter("select * from member Where memberID=" & TextBox1.Text & "", con)
da = New OleDbDataAdapter("select * from gamya Where memberID=" & TextBox1.Text & "", con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
TextBox2.Text = dt.Rows(0).Item("Name")
TextBox3.Text = dt.Rows(0).Item("place")
TextBox4.Text = dt.Rows(0).Item("phone")
TextBox5.Text = dt.Rows(0).Item("work")
ChicqCheckBox.Text = dt.Rows(0).Item("chicq")
TextBox6.Text = dt.Rows(0).Item("sahm_value")
TextBox7.Text = dt.Rows(0).Item("years")
TextBox8.Text = dt.Rows(0).Item("month")
TextBox9.Text = dt.Rows(0).Item("niesba1")
TextBox10.Text = dt.Rows(0).Item("niesba2")
TextBox11.Text = dt.Rows(0).Item("dooor_Order")
TextBox12.Text = dt.Rows(0).Item("date_register")
Else
MsgBox("ID not Found")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ChicqCheckBox.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
End If
End If
con.Close()
)
السؤال الثاني:
كيف يمكن اظهر فقط في داتا جرايد فقط للشخص الذي عملت له بحث برقمه الايدي..
يوجد بالصور للتوضيح اكثر..
السؤال الاول :- عند في الاكسس عدة جداول واريد استدعي في جدولين وفيهم ربط بينهم .. المهم اريد استدعي البيانات من جدولين مختلفين ولا اعرف الكود المناسب ولكن وضعت هذا الكود فقلت قريب ولكن لم يعمل..حيث يعطيني مشكلة..
هذا الكود
(
If TextBox1.Text = "" Then
MsgBox("Please input the ID")
Else
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\RIT\Desktop\jam3\jam3ya.accdb"
con.Open()
ds.Tables.Add(dt)
ds.Tables.Clear()
da = New OleDbDataAdapter("select * from member Where memberID=" & TextBox1.Text & "", con)
da = New OleDbDataAdapter("select * from gamya Where memberID=" & TextBox1.Text & "", con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
TextBox2.Text = dt.Rows(0).Item("Name")
TextBox3.Text = dt.Rows(0).Item("place")
TextBox4.Text = dt.Rows(0).Item("phone")
TextBox5.Text = dt.Rows(0).Item("work")
ChicqCheckBox.Text = dt.Rows(0).Item("chicq")
TextBox6.Text = dt.Rows(0).Item("sahm_value")
TextBox7.Text = dt.Rows(0).Item("years")
TextBox8.Text = dt.Rows(0).Item("month")
TextBox9.Text = dt.Rows(0).Item("niesba1")
TextBox10.Text = dt.Rows(0).Item("niesba2")
TextBox11.Text = dt.Rows(0).Item("dooor_Order")
TextBox12.Text = dt.Rows(0).Item("date_register")
Else
MsgBox("ID not Found")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ChicqCheckBox.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
End If
End If
con.Close()
)
السؤال الثاني:
كيف يمكن اظهر فقط في داتا جرايد فقط للشخص الذي عملت له بحث برقمه الايدي..
يوجد بالصور للتوضيح اكثر..