paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* sqlhandle type changed to pointer. Fixed demo.

Browse Source 
git-svn-id: trunk@8876 -
This commit is contained in:
marco 2007-10-21 11:23:12 +00:00
parent 053540e89e
commit 8d215c8ada
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,11 +33,11 @@ Var
Procedure FreeHandles;
begin
If StmtHAndle<>0 then
If assigned(StmtHAndle) then
SQLFreeHandle(SQL_HANDLE_STMT,StmtHandle);
If DBHandle<>0 then
If assigned(dbhandle) then
SQLFreeHandle(SQL_HANDLE_DBC,DBHandle);
If EnvHandle<>0 then
If assigned(EnvHandle) then
SQLFreeHandle(SQL_HANDLE_ENV,EnvHandle);
end;
@ -55,9 +55,9 @@ Var
Res : Integer;
begin
EnvHandle:=0;
DBHandle:=0;
StmtHandle:=0;
EnvHandle:=nil;
DBHandle:=nil;
StmtHandle:=nil;
Res:=SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, EnvHandle);
if Res <> SQL_SUCCESS then
DoError('Could allocate ODBC handle',Res);