السلام عليكم ورحمة الله وبركاته
ممكن الشباب أحد يوضح لي أين الخطأ في الكود التالي عندما أريد أن أقوم بتعبئة كومبوبوكس بالإعتماد علي كوميوبوكس آخر يظهر الخطأ التالي
Incorrect syntax near '='.
مع العلم أني أستخدم الكود التالي
Dim adapter As SqlDataAdapter
Dim dtMada_Day_Exam As New DataTable
adapter = New SqlDataAdapter(" select * from Mada_Day_Exam where Day_Exam =" & ComboBox1.SelectedValue, Sqlcon)
adapter.Fill(dtMada_Day_Exam)
ComboBox2.DataSource = dtMada_Day_Exam
ComboBox2.DisplayMember = "Mada_Name"
ComboBox2.ValueMember = "ID8"
لكم جزيل الشكر
دمتم بود
السلام عليكم ورحمة الله وبركاته
اخي الكريم
الحقل Day_Exam الموجود في الجدول Mada_Day_Exam هل هو رقمي int ام نصي NvarChar?
اعتقد هنا المشكلة رقم 1
الامر الاخر ادرج كود املاء الكومبو بوكس الاول لنتبين ذلك وهل يتم املاؤه اثناء التحميل ؟
[quote pid='177937' dateline='1636051339']
السلام عليكم ورحمة الله وبركاته
اخي الكريم
الحقل Day_Exam الموجود في الجدول Mada_Day_Exam هل هو رقمي int ام نصي NvarChar?
اعتقد هنا المشكلة رقم 1
الامر الاخر ادرج كود املاء الكومبو بوكس الاول لنتبين ذلك وهل يتم املاؤه اثناء التحميل ؟
[/quote]
وعليكم السلام ورحمة الله وبركاته
الحقل Day_Exam هو حقل نصي NvarChar وبالنسبة لكود التحميل في الكومبوبوكس الأول
Try
Dim dr1 As SqlDataReader
ComboBox1.Items.Clear()
Dim cmdcom As New SqlCommand
cmdcom.Connection = Sqlcon
Sqlcon.Open()
cmdcom.CommandText = ("select Day_Date from Exam_Table order by ID9")
dr1 = cmdcom.ExecuteReader
While dr1.Read()
ComboBox1.Items.Add(dr1("Day_Date"))
End While
Sqlcon.Close()
Catch ex As Exception
End Try
لك جزيل الشكر
دمت بود
السلام عليكم ورحمة الله وبركاته
الشكر لك أستاذ إبراهيم على تفاعلك تم الحل والحمد لله وتعم تعديل السطر كما يلي
adapter = New SqlDataAdapter("select * from Mada_Day_Exam where Day_Exam =' " & ComboBox1.SelectedItem & " ' ", Sqlcon)
لك جزيل الشكر
دمت بود