[Rabeea Qbaha]

PHP كود :

Dim phone_number As string = 0
    Dim currentbalance As Decimal = 0

    Private Sub getdata(ByVal name As String)
        If ConnectionState.Open Then
            Conn.Close()
        End If

        Conn.Open()
        Dim cmd As OleDbCommand = Conn.CreateCommand
        cmd.CommandText = "Select supplier_phone,supplier_currentbalance from supplier where supplier_name=@p1"
        cmd.Prepare()
        cmd.Parameters.AddWithValue("@p1", name)

        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader
        With dr.Read()
            phone_number = dr.GetValue(0)
            currentbalance = dr.GetValue(1)
        End With
        dr.Close()
    End Sub 


تقوم باستدعائها كالاتي :

PHP كود :

getdata(combobox1.selecteditem)

textbox1.text=phone_number
textbox2.text=currentbalance 


هذا لملئ ال combobox 

PHP كود :

Sub fill_comb()
        CSNF.Items.Clear()
        Dim query As String
        Dim command As OleDbCommand
        Dim reader As OleDbDataReader

        'فحص الاتصال بقاعدة البيانات
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
        query = "SELECT DISTINCT [supplier_name] FROM [supplier]"
        command = New OleDbCommand(query, Conn)
        reader = command.ExecuteReader()
        If reader.HasRows Then
            While reader.Read()
                combobox1.Items.Add(reader(0))
            End While
        End If
        reader.Close()
        Conn.Close()

    End Sub 


لكن دعني اعطيك ملاحظة :

ليس من الجيد استدعاء البيانات بالاسم لان هناك احتمالية كبيره جدا ان يتكرر الاسم لذلك ستظهر المعلومات خاظئه 
عليك دائما استدعاء المعلومات بقيمة لا تتكرر مثل العمود الخاص بال primary key