关于ADODB问题的请教

huangyz_xy

本人对这方面非常薄弱,昨天看了一个高手编制的软件,自己弄的时候老是出关于ADODB的错误,请教大家一下:    ,下面相关代码:
Public Sub main()
CR = Chr$(13)
stroutdir = CurrentProject.path
Set CN = CurrentProject.Connection
Set recconf = New ADODB.Recordset
Set recsave = New ADODB.Recordset
recconf.Open "Config", CN, adOpenStatic, adLockOptimistic, adCmdTable
recsave.Open "ConfSave", CN, adOpenStatic, adLockOptimistic, adCmdTable
recsave.MoveFirst
recconf.MoveFirst
recconf.Find "Name like " & "'" & recsave![ConfigName] & "'"
If recconf.EOF Or recconf.BOF Then
    recconf.MoveFirst
    recsave![ConfigName] = recconf![Name]
    recsave.Update
    recsave.MoveFirst
End If
End Sub

<如果原创者看到此贴,请多原谅>

todaynew

你在每个子程序或函数中有的设置了cn有的没有设置，所以便会出错。为了简单起见，你可以直接用：
recconf.Open "tbname", CurrentProject.Connection, adOpenStatic, adLockOptimistic, adCmdTable
这样就不必在折腾CN了。

zhuyiwen

确实。

估计 CN 是全局变量。
我想如果程序正常运行应该没什么问题，出问题的时候多半是之前编辑了VBA代码。

建议你按 todaynew  所说直接使用 Currentproject.Connection 。

sxb2007

把错误代码贴完整，没有看清是那里错了，
Public Sub main()过程后面应加入
        recconf.Close
        Set recconf= Nothing

        recsave.Close
        Set recsave= Nothing
按经验，可以是你把cn 链接程序关了，

按 todaynew 的方法也可以，把CN 改成 CurrentProject.Connection，也可以解决问题

zhuyiwen

确实。

估计 CN 是全局变量。
我想如果程序正常运行应该没什么问题，出问题的时候多半是之前编辑了VBA代码。

建议你按 todaynew  所说直接使用 Currentproject.Connection 。

huangyz_xy

多谢各位的高招,问题解决了!

huangyz_xy

多谢各位的高招,问题解决了!