HDO v1.00. Ejemplos con la RDL para SQLite (RDLSQLITE)

[xmanuel]

Todos los que querais probarlos podeis mirar en: https://es.groups.yahoo.com/neo/groups/HDO_Harbour/info

sobre todo mirar el ej17.prg que explica como hacer un manteniento de una tabla con TRowSet

PD: No dudéis en hacer la preguntas que queráis en el foro de HDO en yahoo

[Frafive]

Manu, para cuando Hdo para mysql ?

Saludos
Gabriel
Granada

[xmanuel]

Gabri...
Espero que esté en escena muy pronto!!!

[xmanuel]

Gabri, ya está en un 99%.

Pero antes hay que checar.
Espero tenerla la semana que viene.


Será totalmente compatible con HDO para SQLite.
Eso quiere decir que el mismo programa funcionará para las dos bases de datos. Sólo cambiará la elección del RDL y la conexión, yo hago esto en mis pruebas:

Code: Select all

//------------------------------------------------------------------------------

#define SQLITE
#define MYSQL

//------------------------------------------------------------------------------

#include "hdo.ch"
#include "inkey.ch"

#ifdef SQLITE
    REQUEST RDLSQLITE
    #define _DBMS   "sqlite"
    #define _DB     "hdodemo.db"
    #define _CONN
#else
    #ifdef MYSQL
        REQUEST RDLMYSQL
        #define _DBMS   "mysql"
        #define _DB     "hdodemo"
        #define _CONN   "127.0.0.1", "root", "root"
    #endif
#endif

//------------------------------------------------------------------------------
// Definiciones

#define STMT_SEL "SELECT * FROM test;"

//------------------------------------------------------------------------------
// Procedimiento principal

procedure main()

    local n  // Varios usos
    local oDb, oSelect, oRS, oBrw
    
    cls
     oDb := THDO():new( _DBMS )  //<----------------------------------------------------------------
    if oDb:connect( _DB, _CONN )   //<----------------------------------------------------------------

    // A partir de aqui todo igual....

 

Ya pondré los ejemplos la semana que viene