تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود)
#1
أرجو المساعدة في تحويل الكود التالي من لغة الفجوال 6

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

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

الى لغة الفجوال نت مع ذكر التعريفات اللازمة لو سمحتم
الرد }}}
تم الشكر بواسطة:
#2
انت بحاجة الى استخدام 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


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


الملفات المرفقة
.zip   For_gharib.zip (الحجم : 48.84 ك ب / التحميلات : 36)
الرد }}}
تم الشكر بواسطة: ابو روضة , ola , gharib
#3
طبعا المثال هو لتحميل كافة الجداول مرة واحدة  ان لم يعجبك هذا و تود تحميل جدول واحد فقط وعند النقر على زر التالي يتم انهاء الاول وتحميل الثاني فاكتب رد بهذا.
الرد }}}
تم الشكر بواسطة: gharib
#4
كود :
Dim da As New OleDbDataAdapter("SELECT * FROM [" & Text1.Text & "]", con)

قاعدة بيانات الاكسس حجمها محدود لا يجاوز 2 جيجا بايت
الرد }}}
تم الشكر بواسطة: سعود , gharib
#5
الاخ سعود و الاخ ola كل الشكر لتفاعلكم و اهتمامكم ..........رجعتولي الثقة بهذا الموقع.............يجري التجريب و لي عودة ان شاء الله
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم