如何用ADOTable或者ADO的相关组件(如ADOconnetion)来动态建立Access数据库及数据表？？

Question

如何用ADOTable或者ADO的相关组件(如ADOconnetion)来动态建立Access数据库及数据表？？

Answer 1

//参考如下代码～～
uses ComObj;
//...
var
  CreateAccess: OLEVariant;
begin
  CreateAccess := CreateOleObject('ADOX.Catalog');
  CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\temp.mdb');
  CreateAccess := Unassigned;
end;

Answer 2

//参考如下代码～～
  ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\temp.mdb';
  ADOQuery1.SQL.Text := 'CREATE TABLE Table1 (Field1 varchar(10), Field2 varchar(10))';
  ADOQuery1.ExecSQL;