paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 10:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Small fix in CreateDataset

Browse Source
This commit is contained in:
michael 2004-09-15 12:19:43 +00:00
parent 44ca5f7e0b
commit b9380475b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/db/sqlite/sqliteds.pas
View File

@ -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+' (';