Office中国论坛/Access中国论坛

标题: ado中，对同一个表两次使用open方法出错的问题 [打印本页]

作者: wuaza 时间: 2007-4-10 21:33
标题: ado中，对同一个表两次使用open方法出错的问题
在第二个open方法中使用了where关键字就出错。详见附件中的模块1。[attach]23899[/attach]

作者: andymark 时间: 2007-4-10 22:56
好像与表字段END有关,单用一个OPEN加上WHERE end='4CAK' 进行测试,也显示错误

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

作者: wwwwa 时间: 2007-4-10 23:12
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 时间: 2007-4-11 04:02
谢谢楼上两位。看来确实是end的缘故。wwwwa的方法很好。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)