diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ce04299490..48ff127865 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -7,6 +7,10 @@ For example: 2002-12-01 23:12 UTC+0100 Foo Bar */ +2001-07-23 21:29 UTC+0100 Viktor Szakats + + * source/rtl/tbrowse.prg + + TOFIX added, about missing AutoLite support (neede9:26 UTC+0300 Alexander Kresin + contrib/libct/alt/ctcolton.c original implementation of COLORTON() in C by Viktor Szakats diff --git a/harbour/contrib/odbc/todbc.prg b/harbour/contrib/odbc/todbc.prg index f8acddfe93..2ea73c4166 100644 --- a/harbour/contrib/odbc/todbc.prg +++ b/harbour/contrib/odbc/todbc.prg @@ -288,7 +288,7 @@ METHOD ExecSQL() CLASS TODBC // SQL statement is mandatory IF empty( ::cSQL ) - lRet := .F. + nRet := SQL_ERROR EXIT ENDIF @@ -300,6 +300,7 @@ METHOD ExecSQL() CLASS TODBC nRet := SQLExecDir( ::hStmt, ::cSQL ) ::Close() + EXIT ENDDO