3273cb1bb3
* contrib/hbodbc/odbc.c
! SQLERROR(): Fixed to accept handle as pointer (not as number).
! SQLERROR(): Fixed returned cErrorMsg using proper length.
! SQLERROR(): Fixed to initialize 'out' parameters.
+ Added SQLGETDIAGREC( <nHandleType>, <hHandle>, <nRecNumber>, @<cSQLState>, @<nError>, @<cErrorMsg> ) -> <nResult>
* contrib/hbodbc/sql.ch
* Added self-guard
* Enclosed negative constant values in parents.
+ Added SQL_HANDLE_* constants.
* contrib/hbodbc/tests/odbcdemo.prg
* contrib/hbodbc/tests/odbccall.prg
* contrib/hbodbc/tests/testodbc.prg
* Added "simpleio.ch"
* Formatting.
! Changed locally rolled WITH OBJECT emulation with real WITH OBJECT syntax.
+ Added SQLERROR() and SQLGETDIAGREC() test calls.
83 lines
2.0 KiB
Plaintext
83 lines
2.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL aOrders
|
|
LOCAL nOp
|
|
LOCAL dsFunctions
|
|
LOCAL cConStr
|
|
|
|
LOCAL i
|
|
|
|
cConStr := "DBQ=" + hb_FNameMerge( hb_DirBase(), "test.mdb" ) + ";Driver={Microsoft Access Driver (*.mdb)}"
|
|
|
|
dsFunctions := TODBC():New( cConStr )
|
|
|
|
SET COLOR TO "W+/B"
|
|
CLS
|
|
|
|
DO WHILE .T.
|
|
|
|
@ 0, 0 SAY PadC( "- TODBC Demonstration -", 80 ) COLOR "B/W"
|
|
|
|
dsFunctions:SetSQL( "SELECT * FROM test" )
|
|
dsFunctions:Open()
|
|
|
|
@ 3, 24 TO len( dsFunctions:Fields ) + 4, 55
|
|
|
|
aOrders := {}
|
|
FOR i := 1 TO Len( dsFunctions:Fields )
|
|
|
|
AAdd( aOrders, dsFunctions:Fields[ i ] :FieldName )
|
|
@ i + 3, 25 PROMPT padc( "ORDER BY " + aOrders[ i ], 30 )
|
|
|
|
NEXT
|
|
|
|
MENU TO nOp
|
|
|
|
IF nOp == 0
|
|
EXIT
|
|
ENDIF
|
|
|
|
dsFunctions:Close()
|
|
|
|
dsFunctions:SetSQL( "SELECT * FROM test ORDER BY " + aOrders[ nOp ] )
|
|
dsFunctions:Open()
|
|
|
|
FOR i := 11 TO 24
|
|
@ i, 0 SAY Replicate( " ", 80 )
|
|
NEXT
|
|
|
|
@ 10, 0 TO 10, 79
|
|
@ 24, 0 TO 24, 79
|
|
@ 12, 0 TO 12, 79
|
|
@ 11, 0 SAY ""
|
|
|
|
@ 11, 2 SAY "Statement:" COLOR "GR+/B"
|
|
@ 11, Col() + 1 SAY dsFunctions:cSQL
|
|
|
|
@ 14, 5 SAY " " + PadR( dsFunctions:FieldByName( "First" ):FieldName, 3 ) + " " + ;
|
|
PadR( dsFunctions:FieldByName( "Last" ):FieldName, 15 ) + " " + ;
|
|
PadR( dsFunctions:FieldByName( "Street" ):FieldName, 2 ) + " " + ;
|
|
PadR( dsFunctions:FieldByName( "City" ):FieldName, 40 ) ;
|
|
COLOR "B/W"
|
|
|
|
DO WHILE !dsFunctions:Eof()
|
|
? " " + PadR( dsFunctions:FieldByName( "First" ):Value, 3 ), "|", ;
|
|
PadR( dsFunctions:FieldByName( "Last" ):Value, 15 ), "|", ;
|
|
PadR( dsFunctions:FieldByName( "Street" ):Value, 2 ), "|", ;
|
|
PadR( dsFunctions:FieldByName( "City" ):Value, 40 )
|
|
dsFunctions:Skip()
|
|
ENDDO
|
|
|
|
dsFunctions:Close()
|
|
|
|
ENDDO
|
|
dsFunctions:Destroy()
|
|
|
|
RETURN
|