Office中国论坛/Access中国论坛
标题:
[求助]只读mdb文件怎么用ado?
[打印本页]
作者:
lanchong
时间:
2005-1-6 23:12
标题:
[求助]只读mdb文件怎么用ado?
只读文件怎么用ado?
运行时错误‘-2147467259(80004005)’
不能使用‘’;文件已在使用中。
Dim cnn1 As New ADODB.Connection
Dim Rst1 As ADODB.Recordset
' 取回系统信息,除了背景图
Dim rst2 As Recordset
Set rst2 = CurrentDb().OpenRecordset("系统信息")
cnn1.Open "
rovider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\Ypnwsr\DATA\DATA\电脑部\MRP\wlbm.mdb"
(此处提示错误)
Set Rst1 = New ADODB.Recordset
Rst1.Open "系统信息", cnn1, adOpenKeyset, adLockOptimistic, _
adCmdTable
Rst1.MoveFirst
rst2.MoveFirst
rst2.Edit
For i = 0 To 6
rst2.Fields(i) = rst2.Fields(i)
Next
rst2.Update
rst2.Close
Rst1.Close
但用连接表的方式可以读到数据
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3