Aqui les coloco a todos la manera como conectar Xbase++ a Bases de datos MySql a través de ADO, espero que les sea de mucha ayuda:
#include "Common.ch"
#include "activex.ch"
PROCEDURE AppSys
/* use the ANSI charset by default */
SET CHARSET TO ANSI
RETURN
PROCEDURE Main
PRIVATE Conexion // PARA Almacenar la conexion Con el servidor MySql
PRIVATE Consulta // PARA el RecorsdSet
PRIVATE vCampo1, vCampo2 // Para Guardar la información recuperada de la consulta
Conexion := CreateObject("ADODB.connection")
Consulta := CreateObject("ADODB.recordset")
* Ustedes deben cambier los datos de la conexion como el SERVER, DATABASE, PWD (password), UID (usuario) y PORT (puerto)
Conexion:ConnectionString := "Driver={MySQL ODBC 3.51 Driver}" ;
+";SERVER=localhost;DATABASE=Edu;PWD=789123;UID=johan;PORT=3306"
Conexion:Open
Consulta:Open("SELECT * FROM ALUMNOS", Conexion)
* Para Leer datos del registro suponiendo que la tabla tiene los campos campo1 y campo2
vCampo1 := Consulta:Fields("Campo1"):Value
vCampo2 := Consulta:Fields("Campo2"):Value
* Para escribir en la tabla debes usar sentencias SQL asi:
* Conexion:Execute "INSERT INTO Tabla SET Campo1='xxxx', Campo2='yyyy'"
* o
* Conexion:Execute "UPDATE Tabla SET Campo1='xxxx', Campo2='yyyy' WHERE Condicion"
* Para Mas informción busca informacion acerca de AxticeX Data Objects (ADO)
RETURN