Como se hace una onexion a una base de datos mysql desde VB6?

[lord_zephirott]

Iniciado por GeoAvila

bueno aqui hay un ejemplo casi que completo..

Código:

Dim AdoS As New Recordset
Dim Cxn As Connection
Dim CxnFac as String
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.1;Port=3306;Option=131072  ;Stmt=;Database=TuBASE;Uid=TuUsuario;Pwd=TuContras  ena";"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New Recordset 
AdoS.Open "Select * From Clientes", Cxn, adOpenStatic, adLockOptimistic ' Abrimos el REcordset y esta listo para usar

espero te sirva..

gracias por el codigo poro no funciona del todo. le hice un par de modificaciones pero ahora me tira este error, fijate si sabes que mierda le pasa. el codigo q me pasaste vos no funciona asi como me lo pasaste me jode el recorset si no le pongo "ADODB".
saludos y garcias

Dim AdoS As New adodb.Recordset
Dim Cxn As adodb.Connection
Dim CxnFac As String
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=" & TxtServer.Text & ";Port=3306;Option=" & TxtOptions.Text & ";Stmt=;Database=" & TxtDatabase.Text & ";Uid=" & TxtUser.Text & ";Pwd=" & TxtPass.Text & ";"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New adodb.Recordset
AdoS.Open "SELECT * FROM usuarios", Cxn, adOpenStatic, adLockOptimistic ' Abrimos el REcordset y esta listo para usar