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

[lord_zephirott]

en si el titulo dice todo. me gustaria saber como hacer la conexion y que objetos puedo usar para moverme por la base de datos.
saludos

[akela]

Pues se hace basicamente igual que con Access

y los componentes que puedes usar con los que Visual Basic trae paraq poder navegar cualquier base de datos.

[lord_zephirott]

gracias por la respuesta, pero me podrias dar algun ejemple de como se hace.
saludos

[GeoAvila]

espero te sirva esto..

cn = "driver={Mysql odbc 3.51 driver};server=localhost;database=tubase"

nos vemos..

[lord_zephirott]

Iniciado por GeoAvila

espero te sirva esto..

cn = "driver={Mysql odbc 3.51 driver};server=localhost;database=tubase"

nos vemos..

que es "cn" y despues como tengo que realizar la conexion. tiene un conect?.
saludos

[GeoAvila]

bueno aqui hay un ejemplo casi que completo..

Código:

Dim AdoS As New Recordset
Dim Cxn As Connection
Dim CxnFac As String
Set Cxn = New Connection
Cxn.CursorLocation = adUseClient
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..

[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

[GeoAvila]

la respueta a este post ya esta dada es, el no haber instalado el driver de mysql pero ya se solucion se gun me cuenta el amigo lord_zephirott...

nos vemos..

[lord_zephirott]

Iniciado por GeoAvila

la respueta a este post ya esta dada es, el no haber instalado el driver de mysql pero ya se solucion se gun me cuenta el amigo lord_zephirott...

nos vemos..

me podras decir como se llama el nombre del driver y de donde lo puedo descargar.
saludos

[OYEME]

mysqlodbc driver 3.51 o quizas otra version

[GeoAvila]

Nop Es La Version 3.51, Ya Esta Solucionado El Problema Con El Amigo, Me Contacto Via Messenger Y Listo..

Nos Vemos..

[xochitemol]

Public Sub conexion() 'establece conexion con la base de datos
If con.State = adStateOpen Then con.Close
Set con = Nothing
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;password=contraseña;User ID=usuario de la base de datos;Initial Catalog=nombre de la base de datos;Data Source=nombrede tu servidor"
con.Open
End Sub
esta es una funcion en un modulo .bas

[GeoAvila]

me imagino que es la conxion a un SQL Server, solo habria que cambiarle los datos del ConexionString..

nos vemos..

[lalogrosz]

Necesito hacer una conexion a una base de access remota. Como lo hago con el ODBC, o como lo puedo hacer desde el codigo especificando el ip?
Gracias