تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في تعبئة كومبوبوكس إعماداً على كومبوبوكس آخر
#1
السلام عليكم ورحمة الله وبركاته 
ممكن الشباب أحد يوضح لي أين الخطأ في الكود التالي عندما أريد أن أقوم بتعبئة كومبوبوكس بالإعتماد  علي كوميوبوكس آخر يظهر الخطأ التالي 

 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"

لكم جزيل الشكر 
دمتم بود
الرد
تم الشكر بواسطة: سعود , asemshahen5
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
الحقل Day_Exam  الموجود في الجدول Mada_Day_Exam هل هو رقمي int ام نصي NvarChar?
اعتقد هنا المشكلة رقم 1
الامر الاخر ادرج كود املاء الكومبو بوكس الاول لنتبين  ذلك وهل يتم املاؤه اثناء التحميل ؟
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: سعود , أشرف كريم 2 , asemshahen5 , kebboud
#3
[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


لك جزيل الشكر 
دمت بود
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#4
السلام عليكم ورحمة الله وبركاته 
الشكر لك أستاذ إبراهيم على تفاعلك  تم الحل والحمد لله وتعم تعديل السطر كما يلي

  adapter = New SqlDataAdapter("select * from Mada_Day_Exam where Day_Exam =' " & ComboBox1.SelectedItem & " ' ", Sqlcon)

لك جزيل الشكر 
دمت بود
الرد
تم الشكر بواسطة: asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم