[ali_ahmed12]

(28-09-22, 01:17 AM)a7med saba كتب : من الممكن عمل كود الإستعلام بهذه الطريقة أيضا

كود :

$"select * from table_game where id_g ={ComboBox1.SelectedValue} "

هذا معلومه أضافية من أجل تسهيل فهم الإستعلام عند البعض
ودائما اذا كان الحقل نصي وليس رقمي يجب إسباقه بعلامه تنصيص مفرده
'{value}' أو '"& value &"'

ظهرت مشكلة

---

(28-09-22, 01:26 AM)ali_ahmed12 كتب :

(28-09-22, 01:17 AM)a7med saba كتب : من الممكن عمل كود الإستعلام بهذه الطريقة أيضا

كود :

$"select * from table_game where id_g ={ComboBox1.SelectedValue} "

هذا معلومه أضافية من أجل تسهيل فهم الإستعلام عند البعض
ودائما اذا كان الحقل نصي وليس رقمي يجب إسباقه بعلامه تنصيص مفرده
'{value}' أو '"& value &"'

ظهرت مشكلة هدا كود تعبئة comboxbox 

كود :

Sub fill_combo_serves()
       dt.Clear()
       query = "select *from Table_Game "
       da = New SqlDataAdapter(query, Module1.con)
       da.Fill(dt)
       ComboBox1.DataSource = dt
       ComboBox1.DisplayMember = "g_name"
       ComboBox1.ValueMember = "id_g"
       ComboBox1.SelectedValue = -1
   End Sub

وهدا كود عند اختيار من combobox يظهر في textbox 

كود :

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       Dim dt As New DataTable
       Try

           query = $"select * from table_game where id_g ='{ComboBox1.SelectedValue}' "
           da = New SqlDataAdapter(query, Module1.con)
           da.Fill(dt)
           TextBox5.Text = dt.Rows(0)(3)

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub