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]