用Delphi怎样实现调用Dao来创建数所库()

Question

在Vb中可以利用DAO很容易地创建ACCESS数据库。
不知怎么用Delphi来创建Access?
有那位大虾这样做过。最好能有源码。谢谢

Answer 1

没有人回复呀？
我补充问一个问题：
用Execute直接导出可以用
ADOConnection1.Execute('SELECT * INTO Customers IN "C:\Temp\Northwind.xls" "Excel 8.0;" FROM CUSTOMERS');
但我调试没有成功。
有谁能帮我调试一下么？

Answer 2

Const
  SConnectionString       = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
function CreateAccessFile(FileName:String;PassWord:string=''):boolean;
//建立Access文件，如果文件存在则失败
var
  STempFileName:string;
  vCatalog:OleVariant;
begin
  STempFileName:='d:\temp\123.mdb';
  try
    vCatalog:=CreateOleObject('ADOX.Catalog');
    vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
    result:=CopyFile(PChar(STempFileName),PChar(FileName),True);
    DeleteFile(STempFileName);
  except
    result:=false;
  end;
end;                                +'Jet OLEDB:Database Password=%s;';

Answer 3

Const
  SConnectionString       = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
                                +'Jet OLEDB:Database Password=%s;';

Answer 4

我试了，就是这样
非常感谢！
你有QQ没有呀？可以和你联系么？交个朋友好么？我的QQ：13823062