كود الأستخدام الأتصال بقاعدة البيانات وعرضه على الفورم
​



كود:

Public Class Form1
Inherits System.Windows.Forms.Form
Dim WithEvents bmb As BindingManagerBase
Dim Myds As New DataSet()
Dim InfoManager As CurrencyManager
‘سنعمل أتصال بقاعدة البيانات بأستخدام الأكسيس
‘سنطبق على قاعدة فيه جدول فيه عمودين
‘تحتاج إلى تكست بوكس عدد2
‘زر تحريك يمين وزريسار
‘أقرأ الكود بشكل جيد وضع محل كل أسم الجدول العمود الأول العمود الثاني أسه بالأنكليزي



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As New OleDb.OleDbConnection()
Dim sql As String
sql = "select العمود الأول,العمود الأول from اسم الجول"
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=مسار القاعدة;Persist Security Info=False"
Dim daPerson As New OleDb.OleDbDataAdapter(sql, con)
daPerson.Fill(Myds, "mm1")
t1.DataBindings.Add("Text", Myds, "أسم الجدول.العمود الأول")
t2.DataBindings.Add("Text", Myds, "سم الجدول.العمود الثاني")
bmb = Me.BindingContext(Myds, "أسم الجدول")
bmb.Position = bmb.Count
bmb.Position = 0
Button1.Text = ">>"
Button1.Text = "<<"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
‘ تحريك يمين
bmb.Position -= 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
‘ تحريك يسار
bmb.Position += 1
End Sub
End Class