Hallo!
Mit dieser Prozedur
Delphi-Quellcode:
procedure TForm2.Create1Click(Sender: TObject);
begin
IBDatabase1.DatabaseName := '
c:\db\raetsel.fdb';
with IBQuery1
do
begin
Active:=False;
sql.Clear;
sql.Text := '
DROP TABLE tabelle'+ Edit2.Text ;
Active:=true;
IBTransaction1.Commit;
sql.clear;
Active:=false;
sql.text := '
CREATE TABLE tabelle'+ Edit2.Text +'
(Feld001 varchar(50) collate de_de, Feld002 varchar(250) collate de_de)';
Active:=true;
IBTransaction1.Commit;
end;
ibdatabase1.Close;
end;
erstelle ich eine Tabelle mit einem Namen aus der EditBox und lösche vorher die Vorgängertabelle gleichen Namens.
Jetzt meine Frage:
Mit
sql.Text := 'CREATE TABLE tabelle'+ Edit2.Text + Date +'(Feld001 varchar(50) collate de_de, Feld002 varchar(250) collate de_de)';
füge ich hoffentlich
das aktuelle Datum in den Tabellennamen ein.
Und wie lösche ich die Vorgängertabelle mit einem anderen Datum?