16/12/2009, 09:32
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 17 años, 10 meses Puntos: 18 | |
| Respuesta: MYSQL y Visual
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 |