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

* FCL-DB: fix for MSSQL/Sybase db test framework errors when existing FPDEV table present.

Browse Source 
Thanks to Lacak2 for the fix idea!

git-svn-id: trunk@22898 -
This commit is contained in:
reiniero 2012-11-01 15:21:54 +00:00
parent 1c19fb9ecc
commit c26abcebe7
1 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -408,17 +408,40 @@ end;
procedure TSQLDBConnector.TryDropIfExist(ATableName: String);
begin
// This makes live soo much easier, since it avoids the exception if the table already
// This makes life soo much easier, since it avoids the exception if the table already
// exists. And while this exeption is in a try..except statement, the debugger
// always shows the exception. Which is pretty annoying
// It only works with Firebird 2, though.
// always shows the exception, which is pretty annoying.
try
if SQLDbType = INTERBASE then
begin
// This only works with Firebird 2+
FConnection.ExecuteDirect('execute block as begin if (exists (select 1 from rdb$relations where rdb$relation_name=''' + ATableName + ''')) '+
'then execute statement ''drop table ' + ATAbleName + ';'';end');
'then execute statement ''drop table ' + ATAbleName + ';'';end');
FTransaction.CommitRetaining;
end;
if SQLDBType = mssql then
begin
// Checking is needed here to avoid getting "auto rollback" of a subsequent CREATE TABLE statement
// 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');
FTransaction.CommitRetaining;
end;
if SQLDbType = sybase then
begin
// Checking is needed here to avoid getting "auto rollback" of a subsequent CREATE TABLE statement
// which leads to the rollback not referring to the right transaction=>SQL error
// Can't use SQL standard information_schema; instead query sysobjects for User tables
FConnection.ExecuteDirect(
'if exists (select * from sysobjects where type = ''U'' and name=''' + ATableName + ''') '+
'begin '+
'drop table ' + ATAbleName + ' '+
'end');
end;
except
FTransaction.RollbackRetaining;
end;