Page 1 of 1

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

PostPosted: Tue Jun 06, 2017 2:57 pm
by 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 :D

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

PostPosted: Fri Jul 28, 2017 10:46 am
by Frafive
Manu, para cuando Hdo para mysql ?

Saludos
Gabriel
Granada

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

PostPosted: Fri Jul 28, 2017 6:42 pm
by xmanuel
Gabri...
Espero que esté en escena muy pronto!!! :D

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

PostPosted: Fri Aug 04, 2017 8:09 pm
by xmanuel
Gabri, ya está en un 99%.

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

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  Expand view

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

#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 :D