01/08/2008, 09:32
|
| | | Fecha de Ingreso: julio-2008
Mensajes: 4
Antigüedad: 15 años, 9 meses Puntos: 0 | |
| Respuesta: Crear consultas de MySQL en Visual Basic 6
hola esto me fue muy util para crear conexion vb6 y mysql y para hacer consultas
Dim rsusuario As ADODB.Recordset
Dim conMysql As ADODB.Connection
Set conMysql = New ADODB.Connection
conMysql.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=prueba;" _
& "UID=root;PWD=1489; OPTION=3"
conMysql.CursorLocation = adUseClient
conMysql.open
Set rsusuario = New ADODB.Recordset
With rsusuario
Source = "Select * From datos"
ActiveConnection = conMysql
CursorType = adOpenStatic
CursorLocaion = udUseClient
LockType = adLockOptimestic
End With |