عرض بيانات من جدولين في DataGrid

[ضمتني الين طاح عقالي]

عرض بيانات من جدولين في DataGrid

الادوات المطلوبة

DataGrid1


Add reference
Macrosoft Activex Object 2.0

الحقول

في الجدول رقم 1 (MyTable)

1 Number
2 Name
3 Date
4 Phone

في الجدول رقم 2 (Jobs)

الحقول

No 1
2 Job


'عرض بيانات من اكثر من جدول في DataGrid

Dim con As New ADODB.Connection 
Dim rst As New ADODB.Recordset 

Private Sub Form_Load() 
con.Open "provider=microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\’MyDataBase.mdb" 

    rst.Cursor******** = adUseClient 
 'امر  Sql  لعرض البيانات من  الجدولين     
   rst.Open "select Mytable.Number,Mytable.name,Mytable.Date,Mytable.phone,Jobs.No,Jobs.job from Mytable,Jobs", con, adOpenKeyset, adLockOptimistic 
     
' لعرض البيانات في  DataGrid 

    Set DataGrid1.DataSource = rst 

 الحقول التي ستظهر في  DataGrid    

        DataGrid1.Columns(0) = rst!Number 
        DataGrid1.Columns(1) = rst!Name 
        DataGrid1.Columns(2) = rst!phone 
        DataGrid1.Columns(3) = rst!Date 
        DataGrid1.Columns(4) = rst!Job 
        DataGrid1.Columns(5) = rst!No 
                     
End Sub  
واي استفسار انا جاهز انشا الله..

__________________