VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
如何用VB以非独占方式打开EXCEL数据库
发表在VB答疑区
2009-09-26
是否精华
是
否
版块置顶:
是
否
学习VB范例宝典243例后,我尝试做了一个程序。在VB6.0环境下,用ADO的方式打开EXCEL.程序分为两个.一个是在本机运行的.在这个程序中,同一个EXCEL文件可以被多个窗口同时用ADO打开,
在局域网的其他电脑上,还有一个程序,这个程序被设计成可以远程打开本机的上述EXCEL文件.但是,每次运行程序时总是显示,该EXCEL文件被本机运行的程序以独占方式打开,造成程序出错,请问,如何让本机以共享的方式打开EXCEL文件.
该问题涉及到的代码如下:
本机采用以下代码打开EXCEL文件:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=D:\电渣数据表\1月.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [1$]", cn, adOpenKeyset, adLockOptimistic
远程的地址改为Data Source=\\wz\电渣数据表\1月.xls; -----其它代码不变
但是远程机器不能同时打开,报错:“EXCEL文件被本机运行的程序以独占方式打开”
拜托师兄不吝赐教为感!!!!
在局域网的其他电脑上,还有一个程序,这个程序被设计成可以远程打开本机的上述EXCEL文件.但是,每次运行程序时总是显示,该EXCEL文件被本机运行的程序以独占方式打开,造成程序出错,请问,如何让本机以共享的方式打开EXCEL文件.
该问题涉及到的代码如下:
本机采用以下代码打开EXCEL文件:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=D:\电渣数据表\1月.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [1$]", cn, adOpenKeyset, adLockOptimistic
远程的地址改为Data Source=\\wz\电渣数据表\1月.xls; -----其它代码不变
但是远程机器不能同时打开,报错:“EXCEL文件被本机运行的程序以独占方式打开”
拜托师兄不吝赐教为感!!!!
分享到：
