datenbank Problem!!!

[plautzer]

Warum willst du für jedes auto eine neue Fahrtenbuchtabelle erstellen?
Mache einfach eine große tabelle wo alle FAhrten drin sind und stelle eine Beziehung zwischen der Tabellen Fahrzeug u. Fahrtenbuch her, IDs z.B.

hier wäre aber ein Bsp. um eien tabell ezu erstellen:

Delphi-Quellcode:

var
pfad,tabellen, name, ext: string;
a:integer;
begin
  pfad := ExtractFilePath(Application.ExeName);
  name := ExtractFileName(Application.ExeName);
  ext := ExtractFileExt(Application.ExeName);
  tabellen:=pfad + 'tabellen';
  with Table1 do DatabaseName := tabellen;
IF NOT FileExists(tabellen + '\test.DB') THEN
        BEGIn
        if not ForceDirectories(tabellen) then
        ShowMessage('lol');

        with Table1 do
                begin
                active := false;
                DatabaseName := tabellen;
                tabletype := TTParadox;
                tablename := 'test';
                Name := 'Table1';

        with FieldDefs do
                begin
                 clear;
                     Add('ID', ftinteger, 0, false);
                     Add('Name', ftString, 50, false);
                     Add('Vorname', ftstring, 50, false);
                     Add('Datum', ftDate, 0, false);
                     Add('Bemerkung', ftString, 100, false);
                     Add('telefon', ftinteger, 0, false);
                     Add('Geld', ftcurrency, 0, false);
                end;

        WITH indexdefs DO BEGIN
        clear;
        Add('ID', 'ID', [ixprimary, ixunique]);
      END;

        CreateTable;

Ich hoffe es hilft.

Plautzer