Problem mit Paradox-Datenbank

[CAR]

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

[Domo Sokrat]

Hi hab' mal kurz drüber geschaut. So auf die Schnelle, würd' ich sagen, dass das Append in die for-j-Schleife muss, denn das Post in der Schleife führt das DataSet nach dem ersten Durchlauf wieder in den Browse-Modus zurück und da bleibt sie dann, da kein Append mehr abgesetzt wird, um sie in den Insert-Modus zu versetzen. Ich schlage also folengendes vor:

Code:

   :
   Open;
   // Append; // -> weg damit !!!
   for i:=1 to 3 do
   begin
      for j:=1 to 6 do
      begin
         Append; // <- und hierher !!!
         FieldValues['raceid'] := i;
         FieldValues['url'] := urlraces+inttostr(i)+'_'+inttostr(j)+'.jpg';
         Post;
      end;
   end;
   :

Hab's nicht ausprobiert, das müsste es aber gewesen sein.

[CAR]

Ja danke, hatte weiter oben noch einen weiteren Fehler, es funktioniert nun! :)