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