Neue Tabelle erstellen und öffnen

[Thomas F]

Zitat von Bernhard Geyer:

Schließe mal die Connection nach dem Erzeugen. Access hat ein teilweise bescheuertes Cachingverhalten welches sowas verursachen könnte.

geht leider auch nicht, ich habs probiert

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.ADOConnection1.Close; //<----------
Unit1.form1.adotable1.Close; 
unit1.Form1.ADOTable1.TableName:=tabellenname; 
unit1.form1.ADOConnection1.open;
Unit1.form1.adotable1.open; 
close; 
end; 

end;

[/delphi]