FiveTech Support Forums

DROP TABLE IF EXISTS `prueba_text`;
CREATE TABLE `prueba_text` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `observac` text,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB AUTO_INCREMENT=3 DEFAULT CHARSET=latin1;

-- ----------------------------
-- Records of prueba_text
-- ----------------------------
INSERT INTO `prueba_text` VALUES ('1', 'En MySQL funciona perfecto pero falla en MariaDB.... !!!!');
INSERT INTO `prueba_text` VALUES ('2', 'Otro texto en el campo Text');

#include "FiveWin.ch"
#include "Ado.ch"

Function Inicio()
LOCAL oMiConexion, oRecordSet, cQuery, cStrCnn
LOCAL cMtrMySql    := "Driver={MySQL ODBC 5.3 ANSI Driver} ; Server=localhost ; Database=Base01 ; User=root ; Password=12345 ; Port=3306 ; Option=3"
LOCAL cMtrMariaDB  := "Driver={MariaDB ODBC 1.0 Driver} ; Server=localhost ; Database=Base01 ; User=root ; Password=12345 ; Port=3307 ; Option=3"
LOCAL lMariaDB := .T.

cStrCnn := iif(lMariaDB , cMtrMariaDB , cMtrMySql )

oMiConexion := TOleAuto():New("adodb.connection")
oMiConexion:Open(cStrCnn)
oRecordSet := TOleAuto():New("adodb.recordset")
oRecordSet:CursorLocation := adUseClient       // : 3
oRecordSet:LockType       := adLockOptimistic  // : 3
oRecordSet:CursorType     := adOpenDynamic // adOpenKeySet // : 2
oRecordSet:ActiveConnection(oMiConexion)
cQuery := "SELECT * FROM prueba_text"
oRecordSet:Open(cQuery)  // <<<===>>> Aquí truena con MariaDB
if !oRecordSet:EOF()
   oRecordSet:MoveFirst()
end
xBrowse(oRecordSet, iif(lMariaDB , "Conectado a MariaDB" , "Conectado a MySql" ))
Return(NIL)

#include "fivewin.ch"
#include <tdolphin.ch>

* ----------------------------------------- *
* ejemplo para probar la conexion con mysql *
* crea el contenedor y agrega una tabla     *
* by SysCtrl 17-feb-2015                    *
* ----------------------------------------- *

static oCon //contenedor

Function Main()
   LOCAL cDbName := "mibase_de_pruebas"

    D_SetCaseSensitive( .t. )

   * ----------------------------------- *
   * conectamos con el servidor          *
   * ----------------------------------- *
   IF ( oCon := Connection() ) == NIL
      msgstop('No se pudo realizar una conexion con el servidor', ::cUser )
      RETURN NIL
   ENDIF   

   *** evita un poco suspension del mysql,
   oCon:Execute( "SET SESSION wait_timeout = 86400;" ) 


   * ----------------------------------- *
   * creamos el contenedor               *
   * la base que contiene las tablas     *
   * ----------------------------------- *      
   
   if ! CreaDb( oCon, cDbName )
      msgstop('No se pudo crear o conectar con la base de datos principal ... ', ::cUser )
      RETURN nil
   endif      

   **********************************************
   * creo mi primera tabla                      *
   **********************************************
   CreaLineas( oCon )

   ? "si este mensaje se presenta",
     "el sistema ha creado el contenedor y una tabla .."

 RETURN NIL

 FUNCTION Connect( )
   LOCAL oServer  
   LOCAL oErr
   TRY
      CONNECT oServer HOST "127.0.0.1" ; // o IP del servidor donde tienes la base de datos
                      USER "root" ;
                      PASSWORD "1234";
                      PORT 3306 ;
                      FLAGS 0

                      // DATABASE "MiDataBase"
                               
   CATCH oErr
     RETURN NIL
   END

RETURN oServer

Function CreaLineas( oCon )
    local cQry
    * crea la tabla lineas.sql si no existe
   cQry := "CREATE TABLE IF NOT EXISTS lineas ( "
   cQry += "id INT UNSIGNED NOT NULL AUTO_INCREMENT,"
   cQry += "codigo      decimal(6,0) default 0, "
   cQry += "nombre      varchar(40) default '', "

   cQry += "PRIMARY KEY (id) , INDEX (codigo), INDEX (nombre) ) "
   
   cQry += "ENGINE = InnoDB"

   oCon:Execute( cQry ) 

Return nil

FUNCTION CreaDb( oCon,cDbName )
   oCon:Execute( "CREATE DATABASE IF NOT EXISTS "+cDbName ) && crea el contenedor si no existe
   oCon:selectdb( cDbName ) && ponemos en uso la base de datos
   IF oCon:lError
      Return .f.
   ENDIF
return .t.

oRecordSet:Open(cQuery,oMiConexion)  // <<<===>>> Aquí truena con MariaDB