[سعود]

انت بحاجة الى استخدام dataset تعبئها بجداول من ملف القاعدة وتتنقل بين جداولها عبر الارقام
ان لم يسبقني احد اجهز مثال بسيط جدا

---

وهذا هو الكود

كود :

Public Class Form1
   Dim i As Integer = 0
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim ds As New DataSet
   Dim da As New OleDb.OleDbDataAdapter("select * from tb1,tb2,tb3", con)
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       da.Fill(ds, "tb1")
       da.Fill(ds, "tb2")
       da.Fill(ds, "tb3")
   End Sub
   Private Function gtid() As String
       Select Case i
           Case 0
               Return "tb1.tname"
           Case 1
               Return "tb2.tname"
           Case 2
               Return "tb3.tname"
       End Select
   End Function
   Private Sub pos()
       Label1.Text = "Table No: " & ds.Tables(i).TableName & " and first record contain: " & ds.Tables(i).Rows(0).Item(gtid())
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       i = 0
       pos()
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       i = ds.Tables.Count - 1
       pos()
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       If i <= 0 Then Exit Sub
       i -= 1
       pos()
   End Sub
   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       If i >= ds.Tables.Count - 1 Then Exit Sub
       i += 1
       pos()
   End Sub
End Class

لست مضطر لتحميل المثال ابدا فمن الصورة تعرف الادوات