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