From a441768941b7f99204a7b1f6ac08dd523d7cfdef Mon Sep 17 00:00:00 2001 From: michael Date: Sun, 23 Nov 2014 14:58:51 +0000 Subject: [PATCH] * Case insensitive table name for firebird git-svn-id: trunk@29122 - --- packages/fcl-db/tests/sqldbtoolsunit.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-db/tests/sqldbtoolsunit.pas b/packages/fcl-db/tests/sqldbtoolsunit.pas index db910533e1..0828e72e9f 100644 --- a/packages/fcl-db/tests/sqldbtoolsunit.pas +++ b/packages/fcl-db/tests/sqldbtoolsunit.pas @@ -642,7 +642,7 @@ begin ssFirebird: 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 + ''')) '+ + FConnection.ExecuteDirect('execute block as begin if (exists (select 1 from rdb$relations where upper(rdb$relation_name)=''' + UpperCase(ATableName) + ''')) '+ 'then execute statement ''drop table ' + ATableName + ';'';end'); FTransaction.CommitRetaining; end;