paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed range check errors

Browse Source
This commit is contained in:
michael 2002-08-07 06:07:17 +00:00
parent 2b3a8dccf8
commit e534a97353
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/base/odbc/testodbc.pp
View File

@ -16,8 +16,11 @@ Const
Password : pchar = ''; Password : pchar = '';
{$endif} {$endif}
Const Function ODBCSuccess (Res : Integer) : Boolean;
ODBCSuccess = [SQL_SUCCESS,SQL_SUCCESS_WITH_INFO];
begin
ODBCSuccess:= (res=SQL_SUCCESS) or (res=SQL_SUCCESS_WITH_INFO);
end;
Var Var
EnvHandle : SQLHandle; EnvHandle : SQLHandle;
@ -60,7 +63,7 @@ begin
if Res <> SQL_SUCCESS then if Res <> SQL_SUCCESS then
DoError('Could allocate ODBC handle',Res); DoError('Could allocate ODBC handle',Res);
Res:=SQLSetEnvAttr(EnvHandle,SQL_ATTR_ODBC_VERSION, SQLPOINTER(SQL_OV_ODBC3), 0); Res:=SQLSetEnvAttr(EnvHandle,SQL_ATTR_ODBC_VERSION, SQLPOINTER(SQL_OV_ODBC3), 0);
If Not (res in ODBCSuccess) then If Not ODBCSuccess(res) then
DoError('Could not set environment',Res); DoError('Could not set environment',Res);
Res:=SQLAllocHandle(SQL_HANDLE_DBC, envHandle, DBHandle); Res:=SQLAllocHandle(SQL_HANDLE_DBC, envHandle, DBHandle);
If res<>SQL_SUCCESS then If res<>SQL_SUCCESS then
@ -68,7 +71,7 @@ begin
Res:=SQLConnect(DBHandle,PSQLCHAR(DBDSN),SQL_NTS, Res:=SQLConnect(DBHandle,PSQLCHAR(DBDSN),SQL_NTS,
PSQLChar(UserName),SQL_NTS, PSQLChar(UserName),SQL_NTS,
PSQLCHAR(Password),SQL_NTS); PSQLCHAR(Password),SQL_NTS);
If Not res in [SQL_SUCCESS,SQL_SUCCESS_WITH_INFO] then If Not OdbcSuccess(res) then
DoError('Could not connect to datasource.',Res); DoError('Could not connect to datasource.',Res);
end; end;
@ -79,7 +82,7 @@ Var
begin begin
Res:=SQLAllocHandle(SQL_HANDLE_STMT,DBHandle,stmtHandle); Res:=SQLAllocHandle(SQL_HANDLE_STMT,DBHandle,stmtHandle);
If not res in ODBCSuccess then If not ODBCSuccess(res) then
DoError('Could not allocate statement handle.',Res); DoError('Could not allocate statement handle.',Res);
{ Bind result buffers. { Bind result buffers.
Note that for many queries, the result is not known on beforehand, Note that for many queries, the result is not known on beforehand,
@ -90,7 +93,7 @@ begin
SQLBindCol(stmtHandle,3,SQL_CHAR,SQLPointer(@ResEmail),256,@ErrCode); SQLBindCol(stmtHandle,3,SQL_CHAR,SQLPointer(@ResEmail),256,@ErrCode);
// Now actually do it. // Now actually do it.
Res:=SQLExecDirect(StmtHandle,Query,SQL_NTS); Res:=SQLExecDirect(StmtHandle,Query,SQL_NTS);
if not Res in ODBCSuccess then if not ODBCSuccess(res) then
DoError('Execute of statement failed.',Res); DoError('Execute of statement failed.',Res);
end; end;