[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته

بعد إذن (learning.net)

الطريقة الأفضل لربط الأدوات بقاعدة البيانات

كود :

Dim conn As New OleDb.OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;                   " & _
                                      " Data Source =" & Application.StartupPath & "\db.mdb ")
Dim sql As String = "   SELECT factor_daoraa_name, factor_daora_id          " & _
                    "     FROM factor_daora                                 " & _
                    "    WHERE factor_daoraa_name = @factor_daoraa_name     " & _
                    " ORDER BY factor_daora_id                              "

Dim comm As New OleDb.OleDbCommand(sql, conn)
comm.Parameters.AddWithValue("@factor_daoraa_name", Me.TextBox10.Text)

Dim dt As New [color=#FF0000]DataTable[/color]
Dim da As New OleDb.OleDbDataAdapter(comm)
da.Fill(dt)

ComboBox21.DataSource = dt("factor_daora")
ComboBox21.DisplayMember = "factor_daora_id"

لعرض العنصر المختار

كود :

TextBox21.Text = ComboBox21.[color=#FF0000]SelectedItem[/color]

لعرض factor_daora_id للعنصر المختار

كود :

TextBox21.Text = ComboBox21.[color=#FF0000]SelectedValue[/color]

السلام عليكم ورحمة الله وبركاته