* Set ReturnCode value after a call to ExecSqlList

git-svn-id: trunk@12972 -

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;