[Rabeea Qbaha]

PHP كود :

Private Sub getdata()
        If ConnectionState.Open Then
            Conn.Close()
        End If

        Conn.Open()
        Dim cmd As OleDbCommand = Conn.CreateCommand
        cmd.CommandText = "Select * from tbl_Groupe"
     
        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader
        With dr.Read()
            textbox1.text= dr.GetValue(0))
        End With
        dr.Close()
    End Sub 


dr.GetValue(0)) ال 0 هو رقم العمود من الجدول