Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim conStr As String = "provider=Microsoft.Jet.oledb.4.0; Data source=" & Application.StartupPath & "\asc.mdb"
Dim conn As New OleDbConnection(conStr)
Dim dataset1 As New DataSet
Dim sqlstrnp As String = " select* from 1 "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sqlstrnp, conn)
dataadapter1.Fill(dataset1, "1")
conn.Close()
TextBox1.DataBindings.Add("text", dataset1, "1.الوتد")
TextBox2.DataBindings.Add("text", dataset1, "1.المصب")
TextBox3.DataBindings.Add("text", dataset1, "1.جريانه")
TextBox4.DataBindings.Add("text", dataset1, "1.المسافة")
TextBox5.DataBindings.Add("text", dataset1, "1.التجزئة")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BindingContext(dataset1, "1").Position = 0
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BindingContext(dataset1, "1").Position += 1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BindingContext(dataset1, "1").Position -= 1
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(dataset1, "1").Position = Me.BindingContext(dataset1, "1").Count - 1
End Sub
End Class
الاخوة الافاضل السلام عليكم
ما سبق هو كود للاتصال بقاعدة بيانات ascو هي تحوي على عدد كبير من الجداول الغير مرتبطة ببعضها 150 جدول و احيانا اكثر
من خلال الكود السابق تم الاتصال بالجدول رقم 1 و تمت معالجته
و المطلوب كود لكي انتقل للجدول التالي اي تصبح قيمة 1 هي 2 و هكذا حتى الانتهاء من كل الجداول
و جزاكم الله كل خير
يرجى تبديل اتجاه النص لقراءة الكود بشكل صحيح
Imports System.Data.OleDb
Public Class Form1
Dim conStr As String = "provider=Microsoft.Jet.oledb.4.0; Data source=" & Application.StartupPath & "\asc.mdb"
Dim conn As New OleDbConnection(conStr)
Dim dataset1 As New DataSet
Dim sqlstrnp As String = " select* from 1 "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sqlstrnp, conn)
dataadapter1.Fill(dataset1, "1")
conn.Close()
TextBox1.DataBindings.Add("text", dataset1, "1.الوتد")
TextBox2.DataBindings.Add("text", dataset1, "1.المصب")
TextBox3.DataBindings.Add("text", dataset1, "1.جريانه")
TextBox4.DataBindings.Add("text", dataset1, "1.المسافة")
TextBox5.DataBindings.Add("text", dataset1, "1.التجزئة")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BindingContext(dataset1, "1").Position = 0
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BindingContext(dataset1, "1").Position += 1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BindingContext(dataset1, "1").Position -= 1
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(dataset1, "1").Position = Me.BindingContext(dataset1, "1").Count - 1
End Sub
End Class
الاخوة الافاضل السلام عليكم
ما سبق هو كود للاتصال بقاعدة بيانات ascو هي تحوي على عدد كبير من الجداول الغير مرتبطة ببعضها 150 جدول و احيانا اكثر
من خلال الكود السابق تم الاتصال بالجدول رقم 1 و تمت معالجته
و المطلوب كود لكي انتقل للجدول التالي اي تصبح قيمة 1 هي 2 و هكذا حتى الانتهاء من كل الجداول
و جزاكم الله كل خير
يرجى تبديل اتجاه النص لقراءة الكود بشكل صحيح