Conectar con mysql con vb6

[50l3r]

Buenos dias

Tengo una duda, necesito conectar mi ejecutable vb6 con mysql, tengo conocimientos para realizar querys pero unicamente lo he podido realizar teniendo que crear odbcs, nose si me entendeis, vamos que tengo que configurar a parte de la aplicacion el driver mysql etc.

Quisiera saber si existe alguna manera de automatizada con la cual no haya que configurar nada para realizar querys a una base de datos mysql

[hugo180486]

Código vb:

Dim sCnx as String
Dim rs as ADOBD.Recordset
Dim sQry as String
 
sCnx =  "Provider=MySQLProv;" & "Data Source=TU_BASE_DATOS;" & _
          "User Id=USUARIO;Password=PASSWORD" 
 
    Set rs = New ADODB.Recordset
    
    sQry = "SELECT User FROM tblUsuarios" 
    
    '// Aqui Abrimos el Recordset con su tu QUERY y con  tu CADENA DE CONEXION
    rs.Open sQry, sCnx, adOpenForwardOnly, adLockReadOnly
    
    If Not (rs.BOF = True And rs.EOF = True) Then
        '// Aqui validamos que tu consulta tenga resultados
        '// Lo que vayas hacer con tus resultados
    Else
        '// Si entra aqui venia vacio el Recordset
 
    End If
    
    If rs.State = adStateOpen Then rs.Close
    
    Set rs = Nothing
 

Esto es un ejemplo toma en cuenta que el Recordset se usa de varias formas deacuerdo a estilos d eprogramacion....

Te recomiendo que leas un manual de ADO, para que investigues sobre el Objeto Command y el Objeto Conexion...

El recordset te ouede servir para consultar informacion, los otros 2 para UPDATES e INSERTS
'
Ah otra cosa si intentas con el ejemplo que te di, recuerda agregar las referencias de ADO

Es la que dice Microsoft Activex Data Objects 2.8 Library