منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

(27-09-22, 10:57 PM)عبد العزيز البسكري كتب : [ -> ]
إذا كان ال

Id_g

حقل رقمي

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

& "" where id_g = " ComboBox1.SelectedValue

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

(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

نفس المشكلة

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

كود :

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

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

(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

الكود :

كود :

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

(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

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

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

(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

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

الصفحات : 1 2