[عقرب يماني]

في حدث التشينج "اعتقد الحدث الافتراضي عند الضغط على التكست دبل كليك في وضع التصميم "

)
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
لاتنسئ انه لازم يكون حقل الرقم مفتاح اساسي لضمان رجوع صف واحد من النتيجه
ثانياً بالنسبه لسؤالك انك تشتي تجيب النتيجه من اكثر من جدول لابد من وجود حقل اجنبي في الجدول الثاني أو حقل اجنبي في جدولك هذا ..
للتوضيح انا كاتب كتاب اسمه التخلي عن العلاقات داخل قاعدة البيانات فيه مثال ب vb6 اعتقد بيفيدك ..