Office中国论坛/Access中国论坛

标题: VB控制ACCESS的问题 [打印本页]

作者: samsonbox 时间: 2004-7-9 21:01
标题: VB控制ACCESS的问题
在VB6中编写个BOTTOM1和BOTTOM2,点击执行以下程序

bottom1的程序

Dim objACC As Object

Set objACC = CreateObject("Access.Application")

objACC.OpenCurrentDatabase "c:\db1.mdb"

DoCmd.TransferSpreadsheet acImport, 8, "a", "c:\a.xls", True, ""

objacc.quit

set objacc=noting

bottom2的程序

Dim objACC As Object

Set objACC = CreateObject("Access.Application")

objACC.OpenCurrentDatabase "c:\db2.mdb"

DoCmd.TransferSpreadsheet acImport, 8, "b", "c:\b.xls", True, ""

objacc.quit

set objacc=noting

运行的时候,第一次按BOTTOM1执行正常,在不退出程序就按BOTTOM2的时候

提示出错,说网络服务什么的,不是独占打开……

请高手指点，怎么解决，是否objacc不能释放而导致的错误？谢谢……

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)