Crear consultas de MySQL en Visual Basic 6

[ashely]

Este codigo le puedes meter en un boton o desde el form,

Public rt As ADODB.Recordset ' (estas variable las hice puclicas para poder utilizarlas en mas de un formulario)'
Public conMysql As ADODB.Connection

Set conMysql = New ADODB.Connection
conMysql.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=db;" _
& "UID=root;PWD=1489; OPTION=3"
conMysql.Open
conMysql.DefaultDatabase = "bd"
conMysql.CursorLocation = adUseClient

Set adm = New ADODB.Recordset
With rt
Source = "Select * From datos"
ActiveConnection = conMysql
CursorType = adOpenStatic
CursorLocation = udUseClient
LockType = adLockOptimestic
End With

rt.Open Source, conMysql, adOpenStatic, adLockOptimistic, adCmdUnknown
Label12 = rt.Fields(0)
Label13 =rt.Fields(2)

si las consultas las quieres hacer en un textbox solo cambia los labels por textbox,
______________________
HAY TRES COSA QUE NO VUELVEN ATRSS:
1 LA FLECHA LANZADA
2 LAS PALABRAS MENCIONADAS
3 LA OPRTUNIDAD PERDIDA