如何同时使用两个“记录集”（recordset）？

yyy811240 · 发表于 2009-12-9 15:53

我想在一段程序里面同时使用两个记录集（recordset）：rst 和 rst2 ，希望他们开始时同时指向一个地方，然后rst不断向后移动（rst.movenext），而rst2不移动，我的程序如下，在程序中rst2好像跟着rst移动了，应该如何改，谢谢！！：

Sub 连接进销存表数据库()

Dim conn As ADODB.Connection
Dim WN As String
Dim sSql As String
Dim TableName As String
Dim ColumnName As String
Dim i As Integer
Dim rst As ADODB.Recordset
Dim rst2 As ADODB.Recordset

WN = "3.mdb"
TableName = "SH_600000_2008"
ColumnName = "示例栏"

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset

With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & [CurrentProject].[Path] & "\" & WN
.Open
End With
If conn.State = 1 Then
MsgBox "连接成功！"

rst.Open Source:=TableName, ActiveConnection:=conn.ConnectionString, CursorType:=adOpenDynamic, LockType:=adLockOptimistic

If rst.State = 1 Then
MsgBox "记录集打开成功！"
End If

Set rst2 = rst
i = 0

Do While Not rst.EOF
rst.MoveNext
rst("示例栏") = i
i = i + 1

MsgBox "rst = " & rst("示例栏")
MsgBox "rst2 = " & rst2("示例栏")

Loop

rst.Close
rst2.Close

conn.Close

End If
Set conn = Nothing
End Sub

amolin · 发表于 2009-12-9 16:13

Set rst2 = rst， rst2和rst是同一个记录集。。。建议使用RecordSetClone.

yyy811240 · 发表于 2009-12-9 16:32

原帖由 amolin 于 2009-12-9 16:13 发表
Set rst2 = rst， rst2和rst是同一个记录集。。。建议使用RecordSetClone.

是啊，我当时也发现了，然后也看到了clone这个东东，猜想有可能是用来做这个的，但没想出来怎么用，rst2.clone rst ?

yyy811240 · 发表于 2009-12-11 08:49

别沉了，大家帮我看看哈~！！

yyy811240 · 发表于 2009-12-11 14:15

原帖由 yyy811240 于 2009-12-9 16:32 发表

是啊，我当时也发现了，然后也看到了clone这个东东，猜想有可能是用来做这个的，但没想出来怎么用，rst2.clone rst ?

这个我自己刚刚试出来了：set rst2 = rst.clone 就可以了，但是需要注意：
rst.Open Source:=TableName, ActiveConnection:=conn.ConnectionString, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
这一句需要改一下，其中的CursorType:=adOpenDynamic要改为：CursorType:=adOpenKeyset：
rst.Open Source:=TableName, ActiveConnection:=conn.ConnectionString, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
我比较笨，自己试了好久，嘿嘿

		自动登录	找回密码
密码			免费注册

[求助] 如何同时使用两个“记录集”（recordset） ？

[求助] 如何同时使用两个“记录集”（recordset）？