MYSQL y Visual

[jalh1977]

Saludos, alguien me podria orienta como conectar una base de datos en MYSQL con visual basic , la idea es recorrer la tabla con una consulta y mostrar los resultados , gracias

[abrahamvj]

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql$

Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=11.111.11.11;" _
& "DATABASE=TUBASEDEDATOS;" _
& "UID=tuusuario;PWD=tuclave;PORT=3306;OPTION=131072 "

cnn.Open

sql$ = "SELECT * FROM tutabla"

Set rst = New ADODB.Recordset

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, cnn, , , adCmdText
End With

OBVIAMENTE tienes que bajarte el "MySQL ODBC 3.51 Driver"

Abraham

[jalh1977]

gracias mira buscando le agregue lo siguiente :

Private Sub Form_Load()
conectar
registro
Set DataGrid1.DataSource = rs
End Sub


para mostrar los datos.....el tema es que necesito saber cuando uno de los datos que consulto sea 1 que envie un mensaje con el msgbox o en cualquier otro medio

[abrahamvj]

1- Lo que colocas lamentablemente no nos dice nada
2- Debes leer sobre ADO y sentencias SQL, y de ese modo hacer preguntas puntuales para que se te pueda responder
3- Un bucle que recorra el recordset comparando el campo que deseas a traves de un IF podria ser la solcuion

Abraham