*********简单问题**********

Question

Dim Name
Name = "Bluesky1"
Dim rs0 As New ADODB.Recordset
With rs0
     .LockType = adLockOptimistic
     .Open "select DISTINCT(Tariff_Customer) from Tariff", conn
End WithDim rs As New ADODB.RecordsetWith rs
     .LockType = adLockOptimistic
     .Open "select * from Tariff where Tariff_Customer =" & "'" & rs0.Fields("Tariff_Customer") & "'", conn
End With
提示错误：表Tariff已经打开。请问如何能同时访问一个表？

Answer 1

.LockType = adLockOptimisticn 换成其它的.

Answer 2

.LockType = adLockOptimisticn 换成其它的.
也不行啊

Answer 3

去掉.LockType = adLockOptimisticn 这一行.

Answer 4

Dim Name
Name = "Bluesky1"Dim rs0 As New ADODB.Recordset
rs0.Open "select DISTINCT(Tariff_Customer) from Tariff", conn,1,1Dim rs As New ADODB.Recordset
rs.Open "select * from Tariff where Tariff_Customer =" & "'" & rs0.Fields("Tariff_Customer") & "'", conn,1,1

Answer 5

将conn的cursorlocation定为客户端

Answer 6

DaiLM() 谢谢你可是我加上循环之后，又提示已经打开？Dim Name
Name = "Bluesky1"Dim rs0 As New ADODB.Recordset
rs0.Open "select DISTINCT(Tariff_Customer) from Tariff", conn,1,1'======================
While Not rs0.EOF 
'======================
Dim rs As New ADODB.Recordset
rs.Open "select * from Tariff where Tariff_Customer =" & "'" & rs0.Fields("Tariff_Customer") & "'", conn,1,1'===================
rs0.movenext
wend
'=================
请问如何解决阿？谢谢！

Answer 7

DaiLM() 谢谢你可是我加上循环之后，又提示已经打开？Dim Name
Name = "Bluesky1"Dim rs0 As New ADODB.Recordset
rs0.Open "select DISTINCT(Tariff_Customer) from Tariff", conn,1,1'======================
While Not rs0.EOF 
'======================
Dim rs As New ADODB.Recordset
rs.Open "select * from Tariff where Tariff_Customer =" & "'" & rs0.Fields("Tariff_Customer") & "'", conn,1,1'===================
rs0.movenext
wend
'=================
请问如何解决阿？谢谢！

Answer 8

'加一句：
Dim Name
Name = "Bluesky1"Dim rs0 As New ADODB.Recordset
rs0.Open "select DISTINCT(Tariff_Customer) from Tariff", conn,1,1'======================
While Not rs0.EOF 
'======================
Dim rs As New ADODB.Recordset
rs.Open "select * from Tariff where Tariff_Customer =" & "'" & rs0.Fields("Tariff_Customer") & "'", conn,1,1'===================
rs.close
rs0.movenext
wend
'=================

Answer 9

'最好不要在循环中去定义rs。如下：Dim Name
Name = "Bluesky1"Dim rs0 As New ADODB.Recordset
Dim rs As New ADODB.Recordsetrs0.Open "select DISTINCT(Tariff_Customer) from Tariff", conn,1,1'======================
While Not rs0.EOF 
'======================
rs.Open "select * from Tariff where Tariff_Customer =" & "'" & rs0.Fields("Tariff_Customer") & "'", conn,1,1'===================
rs.close
rs0.movenext
wend
'=================