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

fcl-db: dbtestframework

Browse Source 
* refine r26950: only use SET ANSI_NULL_DFLT_ON ON for MS SQL Server; Sybase ASE does not support it.

git-svn-id: trunk@27019 -
This commit is contained in:
reiniero 2014-03-07 09:30:54 +00:00
parent 009c96a0bd
commit 7f93de8697
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -235,10 +235,13 @@ begin
TempTrans.StartTransaction;
// Proper blob support:
FConnection.ExecuteDirect('SET TEXTSIZE 2147483647');
// When running CREATE TABLE statements, allow NULLs by default - without
// having to specify NULL all the time:
// http://msdn.microsoft.com/en-us/library/ms174979.aspx
FConnection.ExecuteDirect('SET ANSI_NULL_DFLT_ON ON');
if SQLServerType=ssMSSQL then
begin
// When running CREATE TABLE statements, allow NULLs by default - without
// having to specify NULL all the time:
// http://msdn.microsoft.com/en-us/library/ms174979.aspx
FConnection.ExecuteDirect('SET ANSI_NULL_DFLT_ON ON');
end;
TempTrans.Commit;
TempTrans.Free;
FConnection.Transaction:=nil;