أرجو المساعدة في تحويل الكود التالي من لغة الفجوال 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
لست مضطر لتحميل المثال ابدا فمن الصورة تعرف الادوات
طبعا المثال هو لتحميل كافة الجداول مرة واحدة ان لم يعجبك هذا و تود تحميل جدول واحد فقط وعند النقر على زر التالي يتم انهاء الاول وتحميل الثاني فاكتب رد بهذا.
كود :
Dim da As New OleDbDataAdapter("SELECT * FROM [" & Text1.Text & "]", con)
قاعدة بيانات الاكسس حجمها محدود لا يجاوز 2 جيجا بايت
الاخ سعود و الاخ ola كل الشكر لتفاعلكم و اهتمامكم ..........رجعتولي الثقة بهذا الموقع.............يجري التجريب و لي عودة ان شاء الله
