paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: tests: add case for SQLite into TryDropIfExists. Fixes bug introduced in rev.29109

Browse Source 
git-svn-id: trunk@29170 -
This commit is contained in:
lacak 2014-11-28 09:54:03 +00:00
parent c41bc63cd4
commit 85142e88f0
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

@ -652,16 +652,15 @@ begin
// which leads to the rollback not referring to the right transaction=>SQL error
// Use SQL92 ISO standard INFORMATION_SCHEMA:
FConnection.ExecuteDirect(
'if exists (select * from INFORMATION_SCHEMA.TABLES where TABLE_TYPE=''BASE TABLE'' AND TABLE_NAME=''' + ATableName + ''') '+
'begin '+
'drop table ' + ATableName + ' '+
'end');
'if exists (select * from INFORMATION_SCHEMA.TABLES where TABLE_TYPE=''BASE TABLE'' AND TABLE_NAME=''' + ATableName + ''')'+
' drop table ' + ATableName );
end;
ssMySQL:
begin
FConnection.ExecuteDirect('drop table if exists ' + ATableName);
end;
ssPostgresql:
ssPostgreSQL,
ssSQLite:
begin
FConnection.ExecuteDirect('drop table if exists ' + ATableName);
FTransaction.CommitRetaining;