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

* improve statementtype detection. Mantis #22723, patch by Lacak2

Browse Source 
git-svn-id: trunk@22563 -
This commit is contained in:
marco 2012-10-06 14:25:02 +00:00
parent a320db479e
commit d2cc65aff0
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -592,8 +592,13 @@ begin
// If the statementtype is isc_info_sql_stmt_exec_procedure then
// override the statement type derrived by parsing the query.
// This to recognize statements like 'insert into .. returning' correctly
if IBStatementType = isc_info_sql_stmt_exec_procedure then
FStatementType := stExecProcedure;
case IBStatementType of
isc_info_sql_stmt_select: FStatementType := stSelect;
isc_info_sql_stmt_insert: FStatementType := stInsert;
isc_info_sql_stmt_update: FStatementType := stUpdate;
isc_info_sql_stmt_delete: FStatementType := stDelete;
isc_info_sql_stmt_exec_procedure: FStatementType := stExecProcedure;
end;
if FStatementType in [stSelect,stExecProcedure] then
begin