Hallo Leute,
ich habe folgendes Problem:
Wenn ich eine
Paradox-
DB erstelle mit folgendem Code:
Delphi-Quellcode:
with Table1
do begin
TableName:='
pics';
// Name der Datei, die erzeugt werden soll
with FieldDefs
do begin
clear;
Add('
id', ftAutoInc, 0, false);
Add('
raceid', ftinteger);
Add('
url', ftString, 255, false);
end;
with IndexDefs
do begin
Clear;
with AddIndexDef
do begin
Name := '
';
Fields := '
id';
Options := [ixPrimary];
end;
end;
CreateTable;
end;
Dann funktioniert danach das einfügen der Daten nicht mehr. Es kommt immer der Fehler "Datenbank schon geöffnet oder nicht im Einfügemodus". Hier der Code den ich zum Einfügen der Daten benutze:
Delphi-Quellcode:
var i,j:integer;
begin
with Table2
do
begin
Close;
DatabaseName:=urldb;
TableType:=ttParadox;
TableName:='
pics';
Active:=False;
Open;
Append;
for i:=1
to 3
do
begin
for j:=1
to 6
do
begin
FieldValues['
raceid'] := i;
FieldValues['
url'] := urlraces+inttostr(i)+'
_'+inttostr(j)+'
.jpg';
Post;
end;
end;
end;
end;
Weiß jemand wie ich diesen Fehler wegbekomme?
MfG
CAR