[gharib]

أرجو المساعدة في تحويل الكود التالي من لغة الفجوال 6

                                                                          ( التنقل بين الجداول في قاعدة بيانات اكسس  )Adodc1.RecordSource = Text1.Text

حيث Text1.Text يمثل رقم الجدول

الى لغة الفجوال نت مع ذكر التعريفات اللازمة لو سمحتم

[سعود]

انت بحاجة الى استخدام 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

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

[سعود]

طبعا المثال هو لتحميل كافة الجداول مرة واحدة  ان لم يعجبك هذا و تود تحميل جدول واحد فقط وعند النقر على زر التالي يتم انهاء الاول وتحميل الثاني فاكتب رد بهذا.

[ola]

كود :

Dim da As New OleDbDataAdapter("SELECT * FROM [" & Text1.Text & "]", con)

قاعدة بيانات الاكسس حجمها محدود لا يجاوز 2 جيجا بايت

[gharib]

الاخ سعود و الاخ ola كل الشكر لتفاعلكم و اهتمامكم ..........رجعتولي الثقة بهذا الموقع.............يجري التجريب و لي عودة ان شاء الله