fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-11-07 01:40 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbodbc/tests/testodbc.prg
  * contrib/hbodbc/odbc.c
    ! Two minor corrections to prev.
This commit is contained in:
Viktor Szakats
2010-11-07 00:41:11 +00:00
parent 3273cb1bb3
commit 9624a94fd7
3 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-11-07 01:40 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbodbc/tests/testodbc.prg
* contrib/hbodbc/odbc.c
! Two minor corrections to prev.
2010-11-07 01:33 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbodbc/odbc.c
! SQLERROR(): Fixed to accept handle as pointer (not as number).

2
harbour/contrib/hbodbc/odbc.c
View File

@@ -404,7 +404,7 @@ HB_FUNC( SQLERROR ) /* hEnv, hDbc, hStmt, @cErrorClass, @nType, @cErrorMsg */
hb_retni( SQLError( ( SQLHENV ) hb_parptr( 1 ),
( SQLHDBC ) hb_parptr( 2 ),
( SQLHSTMT ) ( HB_PTRUINT ) hb_parptr( 3 ),
( SQLHSTMT ) hb_parptr( 3 ),
( SQLTCHAR * ) buffer,
( SQLINTEGER * ) &lError,
( SQLTCHAR * ) szErrorMsg,

2
harbour/contrib/hbodbc/tests/testodbc.prg
View File

@@ -44,7 +44,7 @@ PROCEDURE Main()
? "SQL: SELECT FROM test"
SQLExecDirect( hStmt, "SELECT FROM test" )
? SQLError( hStmt,,, @cError1, @nError, @cError2 )
? SQLError( ,,hStmt, @cError1, @nError, @cError2 )
? "SQLERROR", cError1, nError, cError2
? SQLGetDiagRec( SQL_HANDLE_STMT, hStmt, 1, @cError1, @nError, @cError2 )
? "SQLGETDIAGREC", cError1, nError, cError2