22835dc3a6
* tests/multifnc/t0.prg
* tests/multifnc/t1.prg
* tests/multifnc/t2.prg
* source/rdd/usrrdd/example/exmemo.prg
* source/rdd/usrrdd/example/exhsx.prg
* source/rdd/usrrdd/example/exfcm.prg
* source/rdd/usrrdd/example/exrlx.prg
* contrib/xhb/hbsyslog.c
* contrib/rddado/tests/mysql3.prg
* contrib/rddado/tests/access1.prg
* contrib/rddado/tests/access2.prg
* contrib/rddado/tests/mysql1.prg
* contrib/hbpgsql/tests/tstpgrdd.prg
! SVN headers.
* contrib/hbwhat32/Makefile
* contrib/hbwhat32/common.mak
- contrib/hbwhat32/wintypes.ch
- Removed wintypes.ch, as it collides with a header with
the same name (and similar content) in xhb. It will
now use the xhb one, since it already relied on other
xhb headers anyway.
If anyone wants to sort this out properly, pls do.
94 lines
2.0 KiB
Plaintext
94 lines
2.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/* The aim of this test is to check the same RDD functions and statements against a dbf file
|
|
and the same dbf imported into a PostgreSQL database.
|
|
Replace <...> with your data and configuration.
|
|
*/
|
|
|
|
procedure main()
|
|
|
|
local nConn
|
|
|
|
set deleted on
|
|
|
|
request DBFCDX
|
|
request PGRDD
|
|
|
|
use <table> index <index> exclusive via "dbfcdx"
|
|
|
|
set order to 1
|
|
|
|
test_code( "DBF" )
|
|
|
|
use
|
|
|
|
nConn := dbpgconnection( "<host>;<database>;<user>;<password>;<port>;<scheme>" )
|
|
|
|
/* if you want to update and insert data you need at least a primary key */
|
|
|
|
use "select <fields,...> from <table> order by <same order as dbf>" alias <table> via "pgrdd" connection nConn
|
|
|
|
test_code( "SQL" )
|
|
|
|
use
|
|
|
|
dbpgclearconnection( nConn )
|
|
|
|
return
|
|
|
|
function test_code( cMode )
|
|
|
|
local xTemp
|
|
|
|
<table>->( dbgotop() )
|
|
? <table>-><field1>, <table>-><field2>, <table>-><field3>
|
|
<table>->( dbgobottom() )
|
|
? <table>-><field1>, <table>-><field2>, <table>-><field3>
|
|
/* goto 100 has different meaning */
|
|
<table>->( dbgoto( 100 ) )
|
|
? <table>-><field1>, <table>-><field2>, <table>-><field3>
|
|
xTemp := <table>-><field3>
|
|
replace <table>-><field3> with "*** replaced ***"
|
|
? <table>-><field1>, <table>-><field2>, <table>-><field3>
|
|
replace <table>-><field3> with xTemp
|
|
dbcommit() // the real write is made via dbcommit() so it is needed
|
|
? <table>-><field1>, <table>-><field2>, <table>-><field3>
|
|
? eof()
|
|
dbgobottom()
|
|
dbskip()
|
|
? eof()
|
|
? bof()
|
|
dbgotop()
|
|
dbskip(-1)
|
|
? bof()
|
|
|
|
dbappend()
|
|
replace <table>-><field1> with <"9">
|
|
replace <table>-><field2> with <"999999">
|
|
replace <table>-><field3> with <"APPENDED">
|
|
dbcommit()
|
|
|
|
// recno() has different meaning, in SQL it is the number of the row and change for every select */
|
|
? <table>->( recno() ), <table>-><field1>, <table>-><field2>, <table>-><field3>
|
|
|
|
wait
|
|
|
|
cls
|
|
|
|
BROWSE()
|
|
|
|
dbgobottom()
|
|
replace <table>-><field3> with "REPLACED"
|
|
dbcommit()
|
|
dbgobottom()
|
|
|
|
BROWSE()
|
|
|
|
delete for <table>-><field1> = "9"
|
|
|
|
return nil
|
|
|
|
|