数据库问题

Question

创建access数据库.
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;
  end;  
提示错误:找不到可安装的isam.改如何解决????
若上述方法错误的话请列举正确的方法.谢谢.
在CreateOleObject('ADOX.Catalog');以前是不是还需要安装mdac???????

Answer 1

procedure TForm1.Button1Click(Sender: TObject);   //要uses ComObj
var
 CreateAccess:OleVariant;
begin
 CreateAccess:=CreateOleObject('ADOX.Catalog');
 CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\my.mdb');
end;
//在我的D7上面测试通过，你的电脑是不是没有安装过Access啊