先在窗口放一个ADODataSet1控件后,点击ConnectionString属性的小按钮,点击 Build按钮,选择驱动程序:Microsoft Jet4.0 Old Db provider,点击下一步,指定MDB文件存放路径后,点击测试连接,当提示成功即可。然后在CommmandText输入表操作命令后,将Active设为True.
if 你的问题是打开数据库 then 同意楼上的 else 使用VBA操纵Access数据库。
var my:variant; my:=createoleobj('access.application');
Build按钮,选择驱动程序:Microsoft Jet4.0 Old Db provider,点击下一步,指定MDB文件存放路径后,点击测试连接,当提示成功即可。然后在CommmandText输入表操作命令后,将Active设为True.
else
使用VBA操纵Access数据库。
my:=createoleobj('access.application');