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

* treat transform as select and exec as execute. Mantis #17050, patch by Lacak2

Browse Source 
git-svn-id: trunk@19362 -
This commit is contained in:
marco 2011-10-04 11:27:56 +00:00
parent 0f79033143
commit c7a82a0c1a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/sqldb/odbc/odbcconn.pas
View File

@ -79,6 +79,7 @@ type
procedure DeAllocateCursorHandle(var cursor:TSQLCursor); override; procedure DeAllocateCursorHandle(var cursor:TSQLCursor); override;
function AllocateTransactionHandle:TSQLHandle; override; function AllocateTransactionHandle:TSQLHandle; override;
// - Statement handling // - Statement handling
function StrToStatementType(s : string) : TStatementType; override;
procedure PrepareStatement(cursor:TSQLCursor; ATransaction:TSQLTransaction; buf:string; AParams:TParams); override; procedure PrepareStatement(cursor:TSQLCursor; ATransaction:TSQLTransaction; buf:string; AParams:TParams); override;
procedure UnPrepareStatement(cursor:TSQLCursor); override; procedure UnPrepareStatement(cursor:TSQLCursor); override;
// - Transaction handling // - Transaction handling
@ -299,6 +300,14 @@ begin
{$ENDIF} {$ENDIF}
end; end;
function TODBCConnection.StrToStatementType(s : string) : TStatementType;
begin
S:=Lowercase(s);
if s = 'transform' then Result:=stSelect //MS Access
else if s = 'exec' then Result:=stExecProcedure
else Result := inherited StrToStatementType(s);
end;
procedure TODBCConnection.SetParameters(ODBCCursor: TODBCCursor; AParams: TParams); procedure TODBCConnection.SetParameters(ODBCCursor: TODBCCursor; AParams: TParams);
var var
ParamIndex: integer; ParamIndex: integer;