[سعود]

كيف ربط بقاعدة البيانات؟

---

اجعل مصدرهم واحد كل من combobox و textbox

---

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As OleDb.OleDbConnection
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Dim cmd As OleDb.OleDbCommandBuilder
   Dim i As Integer = 0
   Private Sub gd(Optional ByVal i As Integer = 0)
       ComboBox1.DataSource = Nothing
       tn.DataBindings.Clear()
       email.DataBindings.Clear()
       con = New OleDb.OleDbConnection(str)
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       cmd = New OleDb.OleDbCommandBuilder(da)
       da.Fill(dt)
       ComboBox1.DataSource = dt
       ComboBox1.DisplayMember = "tn"
       tn.DataBindings.Add("text", dt, "tn")
       email.DataBindings.Add("text", dt, "email")
       BindingContext(dt).Position = i
       pos()
   End Sub
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       gd()
   End Sub
   Private Sub pos()
       lbl.Text = BindingContext(dt).Position & "|" & BindingContext(dt).Count - 1
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
       Dim r As DataRow = dt.NewRow
       r(1) = tn.Text
       r(2) = email.Text
       dt.Rows.Add(r)
       da.Update(dt)
       gd(BindingContext(dt).Position + 1)
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       BindingContext(dt).Position = 0
       pos()
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       BindingContext(dt).Position += 1
       pos()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       BindingContext(dt).Position -= 1
       pos()
   End Sub

   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
       BindingContext(dt).Position = BindingContext(dt).Count - 1
       pos()
   End Sub
End Class