منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تعبئة كومبو بوكس بناءا على اختيارات كومبو بوكس آخر

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

الاخوة الكرام
عندي مشروع به جدول للعملاء وآخر للمدن على قاعدة بيانات اكسس
واعمل على برنامج فيجوال بيسك 2008
اريد اختيار المدينة في الكومبوبوكس الاول فيظهر لي في الثاني اسماء العملاء الموجودين في تللك المدينة فقط

وجزكم الله خيرا

حط هذا الكود في خانه جديدة

PHP كود :

   Sub fillcombo()
        strsql = "select * from tablecity"
        Dim acscmd As New OleDb.OleDbCommand
        acscmd.CommandText = strsql
        acscmd.Connection = acsconn
        acsdr = acscmd.ExecuteReader
        While (acsdr.Read())
            ComboBox1.Items.Add(acsdr("city"))
        End While
        acscmd.Dispose()
        acsdr.Close()
    End Sub 

وحط هذا الكود في الكومبوبوكس

PHP كود :

    strsql = "select * from tablecostumer where costumername='" & ComboBox1.Text & "'"
        Dim acscmd As New OleDb.OleDbCommand
        acscmd.CommandText = strsql
        acscmd.Connection = acsconn
        acsdr = acscmd.ExecuteReader


        'هنا اسماء الخانات الموجوده داخل جدول العملاء

        If (acsdr.Read() = True) Then
            TextBox1.Text = (acsdr("costumername"))
            TextBox2.Text = (acsdr("city"))
            TextBox3.Text = (acsdr("age"))
            TextBox4.Text = (acsdr("phone"))
         

        End If
        acscmd.Dispose()
        acsdr.Close() 

اضف هذا الكود في خانة تحميل الفورم

PHP كود :

fillcombo() 

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

الديب 2014

php3