win7 64位系统 安装office2010 64位版本,金字塔3.8 beta3 64位
使用了下载的dbdemo公式和数据库
创建了一个宏
Sub Test()
Set adoconnection=CreateObject("adodb.connection")
adoconnection.Open("provider=Microsoft.ACE.OLEDB.12.0;Data Source="&application.apppath&"\dbdemo\test.mdb")
Set rs = adoconnection.Execute("select stockopen from SH600000")
application.msgout rs("stockopen").Value
adoconnection.close
End Sub
消息窗口输出了29.5 正常
编辑公式 DATABASEDEMO
//连接d:\test.mdb数据库
DATABASE('provider=Microsoft.ACE.OLEDB.12.0;Data Source==C:\jzt\dbdemo\test.mdb');
//检索数据库表
bb:DBTABLE('Select * From SH600000');
//读取STOCKCLOSE字段数据
cc:DBVALUE('stockopen');
一直就是未知错误
求解 谢谢
DATABASE('provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\jzt\dbdemo\test.mdb');
多了一个=号