Ver código fonte

* Set ReturnCode value after a call to ExecSqlList

git-svn-id: trunk@12972 -
blikblum 16 anos atrás
pai
commit
d2117f9285
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      packages/fcl-db/src/sqlite/customsqliteds.pas

+ 1 - 1
packages/fcl-db/src/sqlite/customsqliteds.pas

@@ -1441,7 +1441,7 @@ procedure TCustomSqliteDataset.ExecSQLList;
 begin
   if FSqliteHandle = nil then
     GetSqliteHandle;
-  SqliteExec(PChar(FSQLList.Text), nil, nil);
+  FReturnCode := SqliteExec(PChar(FSQLList.Text), nil, nil);
 end;
 
 procedure TCustomSqliteDataset.ExecSQL;