28-09-22, 01:26 AM
(آخر تعديل لهذه المشاركة : 28-09-22, 01:28 AM {2} بواسطة 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 كتب :وهدا كود عند اختيار من combobox يظهر في textbox(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
كود :
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