مشكله متعبتني ارجو منكم حلها

[الفجر المنسي]

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


ياريت لو تساعدوني في مشكلتي

ان عملت زر بحث بحيث تظهر نتائجه في
textboxو الداتا غريد

اول مشكله عندي كتبت هذا الكود ومانفع طلع لي خطا وضعت كومنت على السورت

والبرنامج وقف ماطلع نتائج ولاشي

Dim dv As New DataView(dataset1.Tables("patient"))
dv.RowFilter = "id-file= ' " & TextBox1.Text & " ' "
'dv.Sort = "id-file asc"
If dv.Count = 1 Then
TextBox1.Text = dv(0)("id-file")
TextBox2.Text = dv(0)("name")
TextBox12.Text = dv(0)("nationality")

End If

غير كذا المفروض استخدم اكثر من جدول لاظهار النتائج

يعني بعد التعديل اكرر هالكود لاظهارالنتائج من جدول ثاني ؟

لان انا عندي اربع جداول ولما اضغط على زر بحث واضع رقم الملف

يظهر لي اسمه وجنسيته من جدول وبعدين معلومات ثانيه من جدول ثاني ومعلومات ثالثه من جدول اخر وتظهر كلها بtext box

ان شاء الله قدرتو تفهمو اللي طلبته

واذا حليتو مشكلتي بعدين اجرب الداتا غريد كوده واقولكما يش صار لي

وان شاء الله تعطوني لي حل

الله يعطيكم العافيه

[black_tiger_2006]

مرحبا اختنا العزيزة فجر طولتى الغيبة علينا عسى يكون المانع خير
ما فهمته منك انك تريدى ان تستعلمى عن بيانات معينة من اكثر من جدول _
'وتعرضى ناتج عملية الاستعلام فى TextBox and data grid
'سنستخدم تقنية ADO فى الوصول لقاعدة البيانات وجمل SQL للاستعلام عن البيانات المطلوبة من اكثر من جدول ومن ثم عرضها فى TextBox و Data grid
'بفرض ان لدينا قاعدة بيانات DB1 المكونة من جدولين
'جدول الاقسام DEPARTMENT ويحتوى على
'DEPTNAME اسم القسم , DEPTCODE كود القسم
'جدول الموظفين employees ويحتوى على
'empcode كود الموظف ,empname اسم الموظف,deptcode كود القسم,deptname اسم القسم
'ويبرط بين الجدولين رقم القسم deptcode اى القسم الذى يعمل فيه الموظف
'فسيكون الكود كالتالى
'تعريف قاعدة البيانات والجداول المستخدمة
Dim db1 As New ADODB.Connection
Dim department As New ADODB.Recordset
Dim employees As New ADODB.Recordset
Private Sub Form_Load()
'فتح قاعدة البيانات للاستخدام
If db1.State = adStateOpen Then db1.Close
db1.CursorLocation = adUseClient
db1.Open "microsoft.jet.oledb.4.0;data source=" & App.Path & "\db1.mdb"
End Sub
Private Sub Command1_Click()
'عمليه الاستعلام عن الموظفيين من خلال جدول الاقسام على اساس ان رقم القسم متساوى فى كل من الجدولين ونتائج عملية البحث مرتبة حسب رقم الموظف
SQL = "select department.deptname,department.deptcode,employees. empcode,employees.empname from department,employees where department.deptcode = employees.deptcode and employees.empcode = " + Text1.Text & "order by employees.empcode"
If employees.State = adStateOpen Then employees.Close
employees.Open "employees", db1, adOpenDynamic, adLockOptimistic
Text2.Text = employees("empcode")
Text2.Text = employees("empname")
Text2.Text = employees("deptcode")
Text2.Text = employees("deptname")
'واذا نريد ان نضع ناتج عملية البحث فى داتا جريد
Set DataGrid1.DataSource = employees
End Sub
اى سؤال او استفسار لا تترددى

[الفجر المنسي]

للاسف الكود مانفع معاي

ياليت لو احد من اخواني اللي بالمنتدى يساعدني

الكود ابغيه بلغة الفيجول بيسك دوت نت بالاسلوب المنفصل

تحياتي