المساعدة بكود استعلام - نسخة قابلة للطباعة

المساعدة بكود استعلام - نسخة قابلة للطباعة

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

المساعدة بكود استعلام - khaled Mohammed - 14-09-20

السلام عليكم ورحمة الله و بركاته

عندي listbox عملت لها كود اظهار الاصناف من جدول بـ data base عند الضغط على button
ثم عملت حدث عند الضغط على اي عنصر فى listbox يظهر بيانات الصنف فى datadridview
يوجد مشكله فى الكود

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim da As New OleDbDataAdapter(" select ID , STU_NAME from STU_INFO", con)

        Dim dt As New DataTable

        da.Fill(dt)

        ListBox1.DataSource = dt

        ListBox1.DisplayMember = dt.Columns(1).ColumnName

        ListBox1.ValueMember = dt.Columns(0).ColumnName

        da = Nothing

    End Sub

    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick

        If (ListBox1.SelectedIndex = -1) Then Return

        'MessageBox.Show(ListBox1.SelectedValue)

        Dim da As New OleDbDataAdapter(" select * from STU_NAME where ID=", ListBox1.SelectedValue, con)

        Dim dt As New DataTable

        da.Fill(dt)

        DataGridView1.DataSource = dt

    End Sub

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

اذا مطلوب اسجل قيمة ما من نفس الجدول فى تكست بوكس الكود يكون اي

RE: سؤال ؟ - Anas Mahmoud - 14-09-20

اذا اردت استخدام نفس ال DataTable في ملى التكست بوكس يمكنك ذلك

كود :

       TextBox1.DataBindings.Add("Text", dt, "Table1.Name")

        TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode")

        BindingContext(dt).Position = 2

عدل Table1 الى اسم الجدول ، وكذلك اسماء الحقول

عدل 2 الى رقم الحقل الذي تريد عرضه

RE: سؤال ؟ - khaled Mohammed - 15-09-20

(14-09-20, 11:42 PM)Anas Mahmoud كتب : اذا اردت استخدام نفس ال DataTable في ملى التكست بوكس يمكنك ذلك

كود :

TextBox1.DataBindings.Add("Text", dt, "Table1.Name") TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode") BindingContext(dt).Position = 2

عدل Table1 الى اسم الجدول ، وكذلك اسماء الحقول

عدل 2 الى رقم الحقل الذي تريد عرضه

بتطبيق الكود جاء رساله خطا التالية Cannot bind to the property 'STU_EMAIL' on the target control.
علما بان الجدول اسمه STU_INF و العمود STU_EMAIL و رقم العمود 4

كود :

       TextBox1.DataBindings.Add("STU_EMAIL", dt, "STU_INF")

        'TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode")

        BindingContext(dt).Position = 4

RE: سؤال ؟ - Anas Mahmoud - 15-09-20

(15-09-20, 01:30 AM)khaled Mohammed كتب : بتطبيق الكود جاء رساله خطا التالية Cannot bind to the property 'STU_EMAIL' on the target control.
علما بان الجدول اسمه STU_INF و العمود STU_EMAIL و رقم العمود 4

كود :

TextBox1.DataBindings.Add("STU_EMAIL", dt, "STU_INF") 'TextBox2.DataBindings.Add("Text", dt, "Table1.Barcode") BindingContext(dt).Position = 4

اخي في المدخل الاول تدخل اسم الخاصية التي تريد ربطها بالداتا تابل وليس اسم الحقل

كود :

       TextBox1.DataBindings.Add("Text", dt, "STU_INF.STU_EMAIL")

        BindingContext(dt).Position = 4