Seltsam, ich hab nur zum Testen einen 2.Button hinzugefügt, und öffne die neue Tabelle mit Buttonclick
Dann gehts
Offenbar ist die Tabelle noch nicht erstellt, wenn sie geöffnet wird
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
var Tabellenname:string;
begin
if Edit1.text <> '' then
begin
Tabellenname:= Edit1.Text;
unit1.form1.adoconnection1.ConnectionString:=Unit1.form1.ADOTable1.ConnectionString;
unit1.form1.ADOConnection1.Execute('CREATE TABLE '+Tabellenname+' (Nr COUNTER NOT NULL PRIMARY KEY,Feld1 varchar(60),Feld2 varchar(60),Feld3 varchar(5),Datum DATE,Feld5 varchar(40))');
Unit1.form1.adotable1.Close;
unit1.Form1.ADOTable1.TableName:=tabellenname;
close;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);//2.Button
begin
adotable1.open; //funktioniert
end;