3b5dfde38c
* contrib/hbmysql/tmysql.prg
* contrib/hbmysql/mysql.c
* contrib/hbmysql/mysql.ch
* contrib/hbtpathy/telepath.ch
* contrib/hbtpathy/tplinux.c
* contrib/hbtpathy/tpwin32.c
* contrib/hbtpathy/tpos2.c
* contrib/hbtpathy/tpcommon.c
* contrib/hbmsql/msql.h
* contrib/hbmsql/msql.ch
* contrib/hbmsql/msql.c
* contrib/hbfbird/firebird.c
* contrib/hbfbird/tests/test.prg
* contrib/hbapollo/apollo.c
* contrib/hbmisc/hb_f.c
* General code cleanup, formatting, minor optimizations,
Harbour API usage cleanup, ANSI comments.
! Several minor fixes to Firebird interface code, but it
still doesn't seem to work, and the code is very unclear,
partly because of the strange/unsafe Firebird API.
! Firebird test.prg fixes: Variable name typos, undeclared
vars, hard-coded paths.
* contrib/hbfbird/make_b32.bat
* contrib/hbfbird/make_vc.bat
* Fixed location where .libs are looked for.
[TOMERGE RC1]
* contrib/hbcurl/hbcurl.c
% Minor cleanups.
[TOMERGE RC1]
83 lines
1.8 KiB
Plaintext
83 lines
1.8 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#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
|