منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة في combobox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة في combobox (/showthread.php?tid=42569)

الصفحات: 1 2

مشكلة في combobox - ali_ahmed12 - 27-09-22

السلام عليكم 
قمت بملي 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

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

RE: مشكلة في combobox - عبد العزيز البسكري - 27-09-22

إذا كان ال
Id_g
حقل رقمي 
جرب كتابة الإستعلام كما يلي
 & ""  where id_g = " ComboBox1.SelectedValue
  

RE: مشكلة في combobox - ali_ahmed12 - 27-09-22

(27-09-22, 10:57 PM)عبد العزيز البسكري كتب :
إذا كان ال
Id_g
حقل رقمي 
جرب كتابة الإستعلام كما يلي
 & ""  where id_g = " ComboBox1.SelectedValue
  

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

RE: مشكلة في combobox - ali_ahmed12 - 28-09-22

(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

نفس المشكلة

RE: مشكلة في combobox - a7med saba - 28-09-22

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

كود :
$"select * from table_game where id_g ={ComboBox1.SelectedValue} "

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

RE: مشكلة في combobox - ali_ahmed12 - 28-09-22

(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


RE: مشكلة في combobox - Taha Okla - 28-09-22

الكود :

كود :
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


RE: مشكلة في combobox - ali_ahmed12 - 28-09-22

(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

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

RE: مشكلة في combobox - Taha Okla - 28-09-22

سؤال ما هي البيانات التي تختارها من 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 & "'"


RE: مشكلة في combobox - ali_ahmed12 - 28-09-22

(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

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