Office中国论坛/Access中国论坛

标题: [求助]只读文件怎么用ado? [打印本页]

作者: lanchong 时间: 2005-1-6 22:07
标题: [求助]只读文件怎么用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/)