[jader_bueno]

OLÁ,

ESTOU FAZENDO UM TRABALHO DE CONCLUSÃO DE CURSO E PRECISAVA FAZER UMAS TELA DE LOGIN COM CONEXÃO COM O BANCO MYSQL, MAS NÃO ESTOU CONSEGUINDO FAZER.
CASO ALGUÉM PUDER ME AJUDAR, EU AGRADEÇO.

OBRIGADO PELA ATENÇÃO.
ATT. BUENO

[xanburzum]

CÓDIGO

Const ConnStr As String = "Driver={MySQL ODBC 3.51 Driver};" + "Server=localhost;Database=test;uid=root;pwd=;option=3"

Protected Overrides Sub OnInit(e As EventArgs)
MyBase.OnInit(e)

Dim con As New OdbcConnection(ConnStr)
Try
     Dim cmd As New OdbcCommand("SELECT * FROM clientes", con)
    Try
       con.Open()
       dgrAllNames.DataSource = cmd.ExecuteReader((CommandBehavior.CloseConnection Or CommandBehavior.SingleResult))
       dgrAllNames.DataBind()
    Finally
       cmd.Dispose()
     End Try
Finally
    con.Dispose()
End Try
End Sub