[php3]

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

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()