Ya esta la versi贸n de HDO para MySQL/MariaDb est谩ndar y nativo, SQLite/SQLCipher, ODBC y SQLServer est谩ndar y nativo
Para plataformas de 32 y 64 bits (Windows incluyendo el 11, Linux varios sabores, iOS)
Adem谩s con pruebas en el Mod_Harbour.
Los compiladores de C usados son
Ms VisualC, MinGW, Bcc y CLan (todos ellos de 32 y 64 bits)
Para Linux solo disponible GCC y CLang de 64 bits
Y para iOS solo MinGW 64 bits
Especialmente para el Mod_Harbour hay creados varios metodos de recuperaci贸n de datos, mirad este ejemplo:
Salu2
Para plataformas de 32 y 64 bits (Windows incluyendo el 11, Linux varios sabores, iOS)
Adem谩s con pruebas en el Mod_Harbour.
Los compiladores de C usados son
Ms VisualC, MinGW, Bcc y CLan (todos ellos de 32 y 64 bits)
Para Linux solo disponible GCC y CLang de 64 bits
Y para iOS solo MinGW 64 bits
Especialmente para el Mod_Harbour hay creados varios metodos de recuperaci贸n de datos, mirad este ejemplo:
//------------------------------------------------------------------------------
#include "hdo.ch"
//------------------------------------------------------------------------------
// Aqui esta definida el RDL y los parametro de conexion del ejemplo:
#include "ejforall.ch"
//------------------------------------------------------------------------------
procedure main
聽 聽 local oCon, oRS, oDS, oStmt
聽 聽 local cQry := "SELECT * FROM test WHERE first like 'Homer%'"
聽 聽 oCon := THDO():new( _DBMS )
聽 聽
聽 聽 // A nivel de base de datos
聽 聽 oCon:setAttribute( HDO_ATTR_STR_TRIM, .t. ) // Quita espacios
聽 聽 oCon:connect( _DB, _CONN )
聽 聽 oDS := TMemList():new( oCon:queryDirect( cQry, FETCH_ARRAY ) )
聽 聽 simpleBrowse( oDS, "Usando: MemList queryDirect" )
聽 聽 oDS:free()
聽 聽 oDS := THashList():new( oCon:queryDirect( cQry, FETCH_HASH ) )
聽 聽 simpleBrowse( oDS, "Usando: HashList queryDirect" )
聽 聽 oDS:free()
聽 聽 oDS := TMemList():new( oCon:execQuery( cQry, FETCH_ARRAY ) )
聽 聽 simpleBrowse( oDS, "Usando: MemList execQuery" )
聽 聽 oDS:free()
聽 聽 oDS := THashList():new( oCon:execQuery( cQry, FETCH_HASH ) )
聽 聽 simpleBrowse( oDS, "Usando: HashList execQuery" )
聽 聽 oDS:free()
聽 聽 oStmt := oCon:query( cQry )
聽 聽 oDS := TMemList():new( oStmt:fetchAllArray() )
聽 聽 simpleBrowse( oDS, "Usando: MemList", oStmt:listColNames() )
聽 聽 oDS:free()
聽 聽 oDS := THashList():new( oStmt:fetchAllHash() )
聽 聽 simpleBrowse( oDS, "Usando: HashList" )
聽 聽 oDS:free()
聽 聽 oStmt:free()
聽 聽 oRS := oCon:rowSet( cQry )
聽 聽 oRS:setAttribute( STMT_ATTR_STR_PAD, .t. ) // Rellena espacios
聽 聽 oRS:load()
聽 聽 simpleBrowse( oRS, "Usando: RowSet" )
聽 聽 oRS:free()
聽 聽 oCon:free()
return
//------------------------------------------------------------------------------Salu2
______________________________________________________________________________
Sevilla - Andaluc铆a
Sevilla - Andaluc铆a