23f154863e
+ contrib/hbnf/tests/fttext.prg
+ added test code for FTTEXT API
* contrib/hbnf/fttext.c
+ added MT compatibility by moving static vars to a structure
and that structure to TSD
* contrib/hbnf/menutonf.prg
* use HB_KEYPUT() instead of FT_PUTKEY()
* extras/gtwvw/tests/cbtest1.prg
* extras/gtwvw/tests/cbtest6.prg
* extras/gtwvw/tests/inpfocus.prg
* extras/gtwvw/tests/wvwmouse.prg
* KEYBOARD/__KEYBOARD() -> hb_keyPut()
* extras/gtwvw/tests/inpfocus.prg
! Do not use K_* constants for characters.
* contrib/gtwvg/tests/demowvg.prg
* extras/gtwvw/tests/wvwtest9.prg
* minor code cleanup
* contrib/gtwvg/class.prg
* contrib/gtwvg/menubar.prg
* contrib/gtwvg/paint.prg
* contrib/hbct/fcopy.prg
* contrib/hbcups/tests/test.prg
* contrib/hbcurl/tests/ftp_uldl.prg
* contrib/hbmisc/hb_f.c
* contrib/hbmisc/tests/testhbf.prg
* contrib/hbmysql/utils/dbf2mysq.prg
* contrib/hbnf/amedian.prg
* contrib/hbnf/tests/dfile.prg
* contrib/hbpgsql/tests/dbf2pg.prg
* contrib/hbpgsql/tests/test.prg
* contrib/hbtip/tests/upld_ftp.prg
* contrib/hbwin/tests/testcopy.prg
* contrib/hbwin/tests/testmapi.prg
* contrib/xhb/tests/testcp.prg
* contrib/xhb/xhbtedit.prg
* tests/ac_test.prg
* tests/db_brows.prg
* tests/stripem.prg
* tests/testhtml.prg
* deleted references to self-filename, or replaced them
with __FILE__, so they will continue to work (and there
won't be outdated comments) when files are renamed.
* tests/sbartest.prg
* minor
94 lines
2.6 KiB
Plaintext
94 lines
2.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#require "hbpgsql"
|
|
|
|
#include "postgres.ch"
|
|
|
|
PROCEDURE main()
|
|
LOCAL conn, res, aTemp, x, y, pFile
|
|
LOCAL cDb := "test"
|
|
LOCAL cUser := "user"
|
|
LOCAL cPass := "pass"
|
|
|
|
CLS
|
|
|
|
conn := PQsetdbLogin( "localhost", "5432", NIL, NIL, cDb, cUser, cPass )
|
|
? PQdb( conn ), PQuser( conn ), PQpass( conn ), PQhost( conn ), PQport( conn ), PQtty( conn ), PQoptions( conn )
|
|
|
|
conn := PQconnectDB( "dbname = " + cDb + " host = localhost user = " + cUser + " password = " + cPass + " port = 5432" )
|
|
|
|
? PQstatus( conn ), PQerrormessage( conn )
|
|
|
|
IF PQstatus( conn ) != CONNECTION_OK
|
|
QUIT
|
|
ENDIF
|
|
|
|
? "Blocking: ", PQisnonblocking( conn ), PQsetnonblocking( conn, .T. ), PQisnonblocking( conn )
|
|
|
|
pFile := PQcreatetrace( "trace.log" )
|
|
PQtrace( conn, pFile )
|
|
|
|
? "Verbose: ", PQsetErrorVerbosity( conn, 2 )
|
|
|
|
? "Protocol: ", PQprotocolVersion( conn ),;
|
|
" Server Version: ", PQserverVersion( conn ),;
|
|
" Client Encoding: ", PQsetClientEncoding( conn, "ASCII" ),;
|
|
"New encode: ", PQclientEncoding( conn )
|
|
|
|
? PQdb( conn ), PQuser( conn ), PQpass( conn ), PQhost( conn ), PQport( conn ), PQtty( conn ), PQoptions( conn )
|
|
|
|
res := PQexec( conn, "drop table products" )
|
|
? PQresultStatus( res ), PQresultErrorMessage( res )
|
|
res := NIL
|
|
|
|
res := PQexec( conn, "create table products ( product_no numeric(10), name varchar(20), price numeric(10,2) )" )
|
|
? PQresultStatus( res ), PQresultErrorMessage( res )
|
|
|
|
res := PQexecParams( conn, "insert into products(product_no, name, price) values ($1, $2, $3)", { "2", "bread", "10.95" } )
|
|
? "Oid Row: ", PQoidValue( res ), PQoidStatus( res )
|
|
|
|
IF PQresultStatus( res ) != PGRES_COMMAND_OK
|
|
? PQresultStatus( res ), PQresultErrorMessage( res )
|
|
ENDIF
|
|
|
|
res := PQexec( conn, 'select price, name, product_no as "produto" from products' )
|
|
|
|
IF PQresultStatus( res ) != PGRES_TUPLES_OK
|
|
? PQresultStatus( res ), PQresultErrorMessage( res )
|
|
ENDIF
|
|
|
|
? "Binary: ", PQbinaryTuples( res )
|
|
? "Rows: ", PQntuples( res ), "Cols: ", PQnfields( res )
|
|
? PQfname( res, 1 ), PQftable( res, 1 ), PQftype( res, 1 ), PQfnumber( res, "name" ), PQfmod( res, 1 ), PQfsize( res, 1 ), PQgetisnull( res, 1, 1 )
|
|
|
|
aTemp := PQmetadata( res )
|
|
|
|
FOR x := 1 TO Len( aTemp )
|
|
? "Linha 1: "
|
|
FOR y := 1 TO 6
|
|
?? aTemp[ x ][ y ], ", "
|
|
NEXT
|
|
NEXT
|
|
|
|
? PQFcount( res )
|
|
|
|
? PQlastrec( res )
|
|
|
|
? PQGetvalue( res, 1, 2 )
|
|
|
|
? "Large Objects, always should be in a transaction..."
|
|
|
|
PQexec( conn, "begin" )
|
|
|
|
? ( x := lo_Import( conn, __FILE__ ) )
|
|
? lo_Export( conn, x, "test.new" )
|
|
? lo_Unlink( conn, x )
|
|
|
|
PQexec( conn, "commit" )
|
|
|
|
PQuntrace( conn )
|
|
|
|
RETURN
|