كيفية التعامل مع compoboox و database

السلام عليكم

المثال جاهز كل الى عليك تحولة من اكسس الى sql اذا حصل اى مشاكل توضحها وبأذن الله نحالها مع بعض

WindowsApplication2.rar

مشكورة و تم التعديل الى sql server كالتالي

Private Sub frmaddmanagerbalance_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim mycon As New SqlClient.SqlConnection
            mycon.ConnectionString = "server=(local);database=account;trusted_connection=yes"
            mycon.Open()
            Dim adap As New SqlClient.SqlDataAdapter("select balance_no from balance ", mycon)
            Dim mydset As New DataSet
            adap.Fill(mydset, "balance")

            cbno.DataSource = mydset.Tables(0)
            cbno.DisplayMember = "balance_no" ' i can delete this code or the onther code which have number 2
            cbno.ValueMember = "balance_no" ' this is code number 2 
            mycon.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)

      end try

Private Sub cbno_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbno.SelectedIndexChanged
        Try
            Dim CON As New SqlClient.SqlConnection
            CON.ConnectionString = "server=(local);database=account;trusted_connection=yes"
            Dim da As New SqlClient.SqlDataAdapter("select balance_name from balance", CON)
            Dim ds As New DataSet
            da.Fill(ds, "balance")
            txtblncname.Text = CStr(ds.Tables(0).Rows(cbno.SelectedIndex).Item("balance_name"))
        Catch ex As Exception
            MessageBox.Show(ex.Message)

        End Try

;) للفائدة

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

ارجوكم

انا اسف لتكرار السوال

السلام عليكم

انظر الى هذا الكود

txtblncname.Text = CStr(ds.Tables(0).Rows(cbno.SelectedIndex).Item("balance_name"))

وهذا ربط التيكست الكود برمجيا

 Me.textbox1.DataBindings.Add(New Binding("Text", DS, "table.filed"))