Einzelnen Beitrag anzeigen

Benutzerbild von Snooze
Snooze

Registriert seit: 8. Okt 2003
Ort: Niedernsill (Salzburg)
97 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: Datenbank zur Laufzeit erstellen?

  Alt 24. Feb 2004, 17:38
Table1.Active := false;
Table1.DatabaseName := APath; //d:\myprog\daten
Table1.TableName := 'Test'; //d:\myprog
Table1.TableType := ttParadox;
Table1.FieldDefs.Clear;
with Table1.FieldDefs do begin
Add('ID', ftAutoInc, 0, false); // für den Primärindex
Add('Gruppe', ftString, 20, false);
Add('QLW', ftString, 80, false);
Add('CopySubDir', ftBoolean, 0, false);
Add('AktRotation', ftInteger, 0, false);
Add('InklFilter', ftMemo, 0, false);
Add('Datum', ftDate, 0, false);
Add('Zeit', ftTime, 0, false);
end; { of FieldDefs }
try
Table1.CreateTable;
except
end;
// Index erzeugen
Table1.IndexDefs.Clear;
Table1.IndexDefs.Update;
Table1.AddIndex('','ID', [ixPrimary]);
Table1.AddIndex('Gruppe','Gruppe',[ixCaseInsensitive]);


so sieht mein Code jetzt nach Anpassung aus,

nur schreibt er dann, dass die tabelle gar nicht existiert, und das will ich ja so haben, dass er mir das sagt, aber ein wenig anders *Ggg*


Edit: erst schreibt er, dass Datensatzanzahl nicht angegeben ist und beim weitergehen kommt obige Meldung erst
  Mit Zitat antworten Zitat