急！急！急！如何在应用程序中创建Access数据库并访问它？

Question

用ACCESSAPPLICATION控件；前提是你的机器装了ACCESS。
procedure TForm1.Button1Click(Sender: TObject);
begin
accessapplication1.NewCurrentDatabase('c:\ss.mdb');
end;

Answer 1

accessapplication1.CurrentDb.ExecuteSQL('');

Answer 2

不要用access的application
用jro

Answer 3

accessapplication1.connection;
accessapplication1.NewCurrentDatabase('c:\ss.mdb');
看Access 的帮助，所有功能，只要Access里有，都能实现
end; 
 
DAO 里也有点

Answer 4

在引用部分加入：
    uses ComObj;
    实现部分：
    procedure TFormOffice.BitBtn1Click(Sender: TObject);
    var
      CreateAccess:OleVariant;
    begin
      CreateAccess:=CreateOleObject('ADOX.Catalog');
      CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Aceco.mdb');
    end;
创建之后，按照正常数据库连接就行了