Przeglądaj źródła

fcl-db: dbtestframework:
- 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 -

reiniero 11 lat temu
rodzic
commit
8e28dd52b4
1 zmienionych plików z 1 dodań i 6 usunięć
  1. 1 6
      packages/fcl-db/tests/sqldbtoolsunit.pas

+ 1 - 6
packages/fcl-db/tests/sqldbtoolsunit.pas

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