Question

delphi ADOTable 能创建数据库ACCESS里的一张新的数据表吗？

ACCESS数据库创建新表。字段1='id'字段2='name'字段3='pass'

Answer 1

用Tbutton、Tadoquery 和 TADOConnection 控件创建 access 数据库表数据库文件在 c:\mydb.mdb 在程序中添加AccessXP,ComObj 单元添加Tbutton、Tadoquery 和 TADOConnection 控件 名称分别为button1、adoquery1 和 ADOConnection1 button1 的click 事件程序如下：procedure TForm1.Button1Click(Sender: TObject);
var AccessDB:OleVariant;
begin
try
AccessDB:=CreateOleObject('ADOX.Catalog');
AccessDB.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mydb.mdb');
finally
AccessDB:=VarNull;
end;
adoconnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydb.mdb;Persist Security Info=False';
with adoquery1 do
begin
close;
sql.Clear;
sql.add('Create Table Tab1 (id counter,name string,pass string)');
execsql;
end;
end;