* Raise an exception in ExecSQLList

git-svn-id: trunk@12973 -

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

@@ -1442,6 +1442,8 @@ begin
   if FSqliteHandle = nil then
     GetSqliteHandle;
   FReturnCode := SqliteExec(PChar(FSQLList.Text), nil, nil);
+  if FReturnCode <> SQLITE_OK then
+    DatabaseError(ReturnString, Self);
 end;
 
 procedure TCustomSqliteDataset.ExecSQL;