paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: dbtestframework:

Browse Source 
- revert functional changes of previous commit: better deal with NULL setting via connection/session or database level:
http://msdn.microsoft.com/en-us/library/ms174979.aspx			

git-svn-id: trunk@26949 -
This commit is contained in:
reiniero 2014-03-04 12:46:56 +00:00
parent 3eb1edb749
commit 8e28dd52b4
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -384,7 +384,6 @@ end;
procedure TSQLDBConnector.CreateFieldDataset;
var
AdditionalText: string;
CountID : Integer;
FType : TFieldType;
Sql,sql1: String;
@ -406,14 +405,10 @@ begin
TryDropIfExist('FPDEV_FIELD');
Sql := 'create table FPDEV_FIELD (ID INT NOT NULL,';
if SQLServerType = ssMSSQL then
AdditionalText := ' NULL ' //SQL Server seems to default to NULL fields
else
AdditionalText := '';
for FType := low(TFieldType)to high(TFieldType) do
if FieldtypeDefinitions[FType]<>'' then
sql := sql + 'F' + Fieldtypenames[FType] + ' ' +
FieldtypeDefinitions[FType] + AdditionalText + ',';
FieldtypeDefinitions[FType] + ',';
Sql := Sql + 'PRIMARY KEY (ID))';
FConnection.ExecuteDirect(Sql);