[ali_ahmed12]

السلام عليكم 
قمت بملي combobox بالبيانات 
يظهر خطا ما الحل هدا كود مرفق 

كود :

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

وهدا في زر 

كود :

Dim dt As New DataTable
       Try
           quary = "select * from table_game where id_g ='" & ComboBox1.SelectedValue & "' "
           da = New SqlDataAdapter(quary, Module1.con)
           da.Fill(dt)
           TextBox5.Text = dt.Rows(0)(3)

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

يظهر هدا خطا في صورة موضح

[عبد العزيز البسكري]

إذا كان ال

Id_g

حقل رقمي 

جرب كتابة الإستعلام كما يلي

 & ""  where id_g = " ComboBox1.SelectedValue

  

[ali_ahmed12]

(27-09-22, 10:57 PM)عبد العزيز البسكري كتب :

إذا كان ال

Id_g

حقل رقمي 

جرب كتابة الإستعلام كما يلي

 & ""  where id_g = " ComboBox1.SelectedValue

  

نعم حقل رقمي في قاعدة البيانات

[ali_ahmed12]

(28-09-22, 12:56 AM)Taha Okla كتب : السلام عليكم 

لا تنسخ بدون أن تفكر بمنطقية الكود

لازم تضع علامات الربط (&) بين السلسلة النصية الكمبو بوكس ..

كود :

Dim dt As New DataTable
      Try
          quary = "select * from table_game where id_g =" & ComboBox1.SelectedValue & " "
          da = New SqlDataAdapter(quary, Module1.con)
          da.Fill(dt)
          TextBox5.Text = dt.Rows(0)(3)

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

نفس المشكلة

[a7med saba]

من الممكن عمل كود الإستعلام بهذه الطريقة أيضا

كود :

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

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

[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

[Taha Okla]

الكود :

كود :

Dim dt As New DataTable
     Try
         quary = "select * from table_game where id_g =" & ComboBox1.SelectedValue  
         da = New SqlDataAdapter(quary, Module1.con)
         da.Fill(dt)
         TextBox5.Text = dt.Rows(0)(3)

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

[ali_ahmed12]

(28-09-22, 01:34 AM)Taha Okla كتب : الكود :

كود :

Dim dt As New DataTable
     Try
         quary = "select * from table_game where id_g =" & ComboBox1.SelectedValue  
         da = New SqlDataAdapter(quary, Module1.con)
         da.Fill(dt)
         TextBox5.Text = dt.Rows(0)(3)

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

يوجد مشكلة اخي طه مزال

[Taha Okla]

سؤال ما هي البيانات التي تختارها من ComboBox1 عند تنفيذ البرنامج ؟؟؟

يعني : ComboBox1.SelectedValue  ماذا تساوي عند تنفيذ امر البحث ؟؟ ما هي قيمتها ؟؟؟

إن كنت تقصد أن تساوي القيمة التي تختارها، فهذا يعني أنك اخترت العبارة الخاطئة والصحيح أن تختار :
ComboBox1.Text

فإن كان نوع الحقل في قاعدة البيانات رقمي يكون الكود الصحيح هو 

كود :

quary = "select * from table_game where id_g =" & ComboBox1.Text

وإن كان نوع الحقل في قاعدة البيانات نصي فيكون الكود الصحيح هو 

كود :

quary = "select * from table_game where id_g ='" & ComboBox1.Text & "'"

[ali_ahmed12]

(28-09-22, 06:45 AM)Taha Okla كتب : سؤال ما هي البيانات التي تختارها من ComboBox1 عند تنفيذ البرنامج ؟؟؟

يعني : ComboBox1.SelectedValue  ماذا تساوي عند تنفيذ امر البحث ؟؟ ما هي قيمتها ؟؟؟

إن كنت تقصد أن تساوي القيمة التي تختارها، فهذا يعني أنك اخترت العبارة الخاطئة والصحيح أن تختار :
ComboBox1.Text

فإن كان نوع الحقل في قاعدة البيانات رقمي يكون الكود الصحيح هو 

كود :

quary = "select * from table_game where id_g =" & ComboBox1.Text

وإن كان نوع الحقل في قاعدة البيانات نصي فيكون الكود الصحيح هو 

كود :

quary = "select * from table_game where id_g ='" & ComboBox1.Text & "'"

اختار من combobox بيانات مكتوبه بيه نصيه وعندما اختر منه  توضع بي textbox5

---

(28-09-22, 01:08 PM)ali_ahmed12 كتب :

(28-09-22, 06:45 AM)Taha Okla كتب : سؤال ما هي البيانات التي تختارها من ComboBox1 عند تنفيذ البرنامج ؟؟؟

يعني : ComboBox1.SelectedValue  ماذا تساوي عند تنفيذ امر البحث ؟؟ ما هي قيمتها ؟؟؟

إن كنت تقصد أن تساوي القيمة التي تختارها، فهذا يعني أنك اخترت العبارة الخاطئة والصحيح أن تختار :
ComboBox1.Text

فإن كان نوع الحقل في قاعدة البيانات رقمي يكون الكود الصحيح هو 

كود :

quary = "select * from table_game where id_g =" & ComboBox1.Text

وإن كان نوع الحقل في قاعدة البيانات نصي فيكون الكود الصحيح هو 

كود :

quary = "select * from table_game where id_g ='" & ComboBox1.Text & "'"

اختار من combobox بيانات مكتوبه بيه نصيه وعندما اختر منه  توضع بي textbox5

غيرت جملة استعلام تظهر مشكلة