Conectar MySQL a VB6.0

[Frehley]

- Instalar MySQL 5 (Port 3306 , Servicio MySQL 5)
- Instalar MySQL - Conector - ODBC

::::::::::::::::
::::Proyecto::::
::::::::::::::::
- Agregar referencia a Microsoft ActiveX Data Objects 2.0 Library

Dim cnConexion as ADODB.Connection
Dim rs as ADODB.Recordset
Dim strSQL as String
Dim SQL as String

Set cnConex = New ADODB.Connection
strCon = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=data.domain.com;" & _
"PORT=3306;" & _
"DATABASE=myDatabase;" & _
"USER=myUsername;" & _
"PASSWORD=myPassword;" & _
"OPTION=3;"
cn.Conex.Open strCon
SQL = "Select * From TABLA"
Set rs = cnConex.Execute(SQL)

-
-
-
-
-
-
-
-


CADENAS DE CONEXION

# MyODBC 2.50 Local database:
"Driver={mySQL};Server=localhost;Option=16834;Data base=mydatabase;"


# MyODBC 2.50 Remote database:
"Driver={mySQL};Server= data.domain.com;Port=3306;Option=131072;Stmt=;Data base=my-database;Uid=myUsername;Pwd=myPassword;"


# MyODBC 3.51 Local database:
"DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=myDatabase;USER= myUsername;PASSWORD=myPassword;OPTION=3;"


# MyODBC 3.51 Remote database:
"DRIVER={MySQL ODBC 3.51 Driver};SERVER=data.domain.com;PORT=3306;DATABASE= myDatabase; USER=myUsername;PASSWORD=myPassword;OPTION=3;"