标题: 关于ADODB问题的请教 [打印本页] 作者: huangyz_xy 时间: 2010-9-14 00:16 标题: 关于ADODB问题的请教 本人对这方面非常薄弱,昨天看了一个高手编制的软件,自己弄的时候老是出关于ADODB的错误,请教大家一下:[attach]43471[/attach][attach]43472[/attach][attach]43473[/attach] ,下面相关代码:
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