Zwei Tabellen in einer Datenbank?

[smart]

Ich möchte ein einer Datenbank zwei Tabellen erzeugen. Ich kann aber nur eine erzeugen. Versuche ich eine zweite zu erzeugen, bekomme ich eine Fehlermeldung.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Title := 'Neue Datenbank erstellen';
  if OpenDialog1.Execute then
  begin
    ABSDatabase1.DatabaseFileName := OpenDialog1.FileName;
    ABSDatabase1.DatabaseName := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));
    ABSDatabase1.CreateDatabase;
    ABSDatabase1.Open;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    ABSTable1.DatabaseName := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));
    ABSTable1.TableName := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));
    ABSTable1.FieldDefs.Clear;
    ABSTable1.FieldDefs.Add('id',ftAutoInc,0,False);
    ABSTable1.FieldDefs.Add('Name',ftString,20,False);
    ABSTable1.FieldDefs.Add('Vorname',ftString,20,False);
    ABSTable1.CreateTable;
    ABSTable1.Open;
    ABSTable1.Append;
    ABSTable1.Post;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
    ABSTable2.DatabaseName := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));
    ABSTable2.TableName := 'Zusatz';
    ABSTable2.FieldDefs.Clear;
    ABSTable2.FieldDefs.Add('Nu_id',ftAutoInc,0,False);
    ABSTable2.FieldDefs.Add('Anrede',ftString,20,False);
    ABSTable2.FieldDefs.Add('Ort',ftString,20,False);
    ABSTable2.CreateTable;
    ABSTable2.Open;
    ABSTable2.Append;
    ABSTable2.Post;
end;

Was mach ich da Falsch?

Heike.

[bttb930]

vielleicht sollten die tabellen unterschiedliche namen bekommen?

[smart]

Danke für den Tipp.

Heike.

[nailor]

sorry für OT, aber dazu (auch noch diese "Trockenheit" mit der ihr eure Diskussion geführt habt) kann ich nur sagen!

ps: gestern Abend "Mit Schirm, Charme und Melone" war auch nicht viel anders.

[smart]

Zitat von nailor:

ps: gestern Abend "Mit Schirm, Charme und Melone" war auch nicht viel anders.

Wo kommt das ?