大家好,小弟第一次用vba,测试说明书的程序,按shift+f5运行时出现错误说找不到可安装的ISAM,请问如何解决?
Sub DataInsert()
Set adoConn=CreateObject("Adodb.Connection")
adoConn.Open"Provider=MicroSoft.Jet.OLEDB.4.0;DataSource="&Application.AppPath&"\test.mdb"
strSqlcre="create table if00"
adoConn.Execute(strSqlcre)
strSqlalt1="alter table if00 add stockdate double"
strSqlalt2="alter table if00 add vclose double"
addConn.Execute(strSqlalt1)
addConn.Execute(strSqlalt2)
addConn.close
end sub
sub application_vbastart()
call DataInsert()
end sub
应该是调试时找不到调试工具导致的,你在金字塔的安装目录下,找到scd10en.exe这个文件,双击安装一下,然后再重启操作系统试试