Browse Source

+ Small fix in CreateDataset

michael 21 years ago
parent
commit
b9380475b5
1 changed files with 2 additions and 2 deletions
  1. 2 2
      fcl/db/sqlite/sqliteds.pas

+ 2 - 2
fcl/db/sqlite/sqliteds.pas

@@ -23,7 +23,7 @@ unit SqliteDS;
 
 {$Mode ObjFpc}
 {$H+}
-{$Define DEBUG}
+{  $Define DEBUG}
 interface
 
 uses Classes, SysUtils, Db;
@@ -700,7 +700,7 @@ var
   SqlTemp:String;
   Counter:Integer;
 begin
-  if (FTableName <> '') and (FRowCount > 0) then
+  if (FTableName <> '') and (FFieldDefs.Count > 0) then
   begin
     FSqliteHandle:= sqlite_open(PChar(FFileName),0,FDBError);
     SqlTemp:='CREATE TABLE '+FTableName+' (';