Re: QBE with MySql (an idea)
Posted: Mon Sep 21, 2009 4:15 pm
Thanks for your comments on Firebird. 

Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
I am very happy to hear this. So, Master Roberto gave us a software tool free of cost which has the same performance of a highly priced and excellent software tool!!!Vanguarda wrote: Some time ago (4 years may be), i had work with firebird and xHarbour Comercial Version + SQLRDD. Currently i work with firebird + ODBC + HMG and the performance is was like with xHarbour.![]()
Hi my friends SUDIP, Rathi.rathinagiri wrote:Can you tell me why you prefer ODBC to connect to Firebird?
What about the native API?
Code: Select all
/*
* $Id: test.prg 8659 2008-06-08 10:22:37Z vszakats $
*/
#include "common.ch"
Function Main()
LOCAL cDir, cName
LOCAL cDBName
LOCAL nDialect := 1
LOCAL trans, qry
hb_FNameSplit( hb_argv( 0 ), @cDir, @cName, NIL )
cDBName := hb_FNameMerge( cDir, cName, ".gdb" )
if File( cDBName )
FErase( cDBName )
endif
? FBCreateDB(cDBName, 'sysdba', 'masterkey', 1024, 'ASCII', nDialect )
/* Connect rdbms */
db := FBConnect("127.0.0.1:" + cDBName, "sysdba", "masterkey")
if ISNUMBER(db)
? 'Error'
quit
endif
? FBExecute(db, 'sldjfs;ldjs;djf', nDialect)
? FBClose(db)
trans := FBStartTransaction(db)
qry := FBQuery(db, 'create table teste (code smallint)', nDialect, trans)
FBCommit(trans)
? "Status Execute: ", FBExecute( db, 'insert into customer(customer) values ("test 1")', nDialect, trans)
? "Status no Rollback: ", FBRollback(trans)
trans := FBStartTransaction(db)
? "Status Execute: ", FBExecute( db, 'insert into customer(customer) values ("test 2")', nDialect, trans )
? "Status commit: ", FBCommit(trans)
? "Status Execute: ", FBExecute( db, 'insert into customer(customer) values ("test 3")', nDialect )
// FIX WINDOWS GPF BELOW
qry := FBQuery(db, "SELECT * FROM sales", nDialect)
num_cols := qry[4]
columns := qry[6]
For x := 1 to num_cols
? x, "> "
For y := 1 to len(columns[x])
?? columns[x,y], ' '
Next
Next
? '---'
do while (fetch_stat := FBFetch(qry)) == 0
? fetch_stat
for x := 1 to num_cols
?? FBGetData(qry,x), ', '
next
enddo
? 'Fetch code:', fetch_stat
? "Status Free sql: ", FBFree(qry)
/* Close connection with rdbms */
? "Status Fechar Database: ", FBClose(db)
Return Nil
Hope you will be interested about this link viewtopic.php?f=7&t=860Vanguarda wrote:....
...
Because the SQLRDD driver is very, very expensive for me ...
Thank´s a lot my friend,sudip wrote:Hello Vanguarda,Hope you will be interested about this link viewtopic.php?f=7&t=860Vanguarda wrote:....
...
Because the SQLRDD driver is very, very expensive for me ...
With best regards.
Sudip