+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) (/showthread.php?tid=21574)
الى الاساتذة الكرام ارجو المساعدة(تعديل كود) - gharib - 04-09-17
أرجو المساعدة في تحويل الكود التالي من لغة الفجوال 6
( التنقل بين الجداول في قاعدة بيانات اكسس )Adodc1.RecordSource = Text1.Text
حيث Text1.Text يمثل رقم الجدول
الى لغة الفجوال نت مع ذكر التعريفات اللازمة لو سمحتم
RE: الى الاساتذة الكرام ارجو المساعدة(تعديل كود) - سعود - 05-09-17
انت بحاجة الى استخدام 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لست مضطر لتحميل المثال ابدا فمن الصورة تعرف الادوات
RE: الى الاساتذة الكرام ارجو المساعدة(تعديل كود) - سعود - 06-09-17
طبعا المثال هو لتحميل كافة الجداول مرة واحدة ان لم يعجبك هذا و تود تحميل جدول واحد فقط وعند النقر على زر التالي يتم انهاء الاول وتحميل الثاني فاكتب رد بهذا.
RE: الى الاساتذة الكرام ارجو المساعدة(تعديل كود) - ola - 06-09-17
كود :
Dim da As New OleDbDataAdapter("SELECT * FROM [" & Text1.Text & "]", con)قاعدة بيانات الاكسس حجمها محدود لا يجاوز 2 جيجا بايت
RE: الى الاساتذة الكرام ارجو المساعدة(تعديل كود) - gharib - 06-09-17
الاخ سعود و الاخ ola كل الشكر لتفاعلكم و اهتمامكم ..........رجعتولي الثقة بهذا الموقع.............يجري التجريب و لي عودة ان شاء الله