From 9624a94fd7d2f66920edd004f3cb28425ed0bfd2 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 7 Nov 2010 00:41:11 +0000 Subject: [PATCH] 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. --- harbour/ChangeLog | 5 +++++ harbour/contrib/hbodbc/odbc.c | 2 +- harbour/contrib/hbodbc/tests/testodbc.prg | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 84eeafb16e..91977a51b0 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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). diff --git a/harbour/contrib/hbodbc/odbc.c b/harbour/contrib/hbodbc/odbc.c index 30ba2a02bb..6cc99793d1 100644 --- a/harbour/contrib/hbodbc/odbc.c +++ b/harbour/contrib/hbodbc/odbc.c @@ -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, diff --git a/harbour/contrib/hbodbc/tests/testodbc.prg b/harbour/contrib/hbodbc/tests/testodbc.prg index 7620b324fa..d91d45f898 100644 --- a/harbour/contrib/hbodbc/tests/testodbc.prg +++ b/harbour/contrib/hbodbc/tests/testodbc.prg @@ -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