ado中，对同一个表两次使用open方法出错的问题

wuaza

在第二个open方法中使用了where关键字就出错。详见附件中的模块1。

andymark

好像与表字段END有关,单用一个OPEN加上WHERE end='4CAK' 进行测试,也显示错误

把end字段改名,测试则可以,看来END与ADO的相关字段冲突

wwwwa

try:

Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
rs.Open "select * from tb ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF

    rs1.Open "select * from tb  where [end]='" & rs("end") & "' ", CurrentProject.Connection
    Do While Not IsNull(DLookup("parent", "tb", "COMPONENT='" & rs("parent") & "'")) And Not rs1.EOF
        rs1.MoveNext
        
       rs("parent") = rs1("parent")
    Loop
    rs1.Close
   
    rs.MoveNext
Loop

wuaza

谢谢楼上两位。看来确实是end的缘故。wwwwa的方法很好。