'先Save
rsShow.Save "c:\t.rs"
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "c:\t.rs"
Do While Not rs.EOF
Debug.Print rs.Fields(0).Value
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
rsShow.Save "c:\t.rs"
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "c:\t.rs"
Do While Not rs.EOF
Debug.Print rs.Fields(0).Value
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
MsgBox adors.RecordCount
Dim adors1 As New ADODB.Recordset
adors1.Open "c:\temp.dat"
MsgBox adors.RecordCount
两个值一样
建议安装VB的sp5,如果操作sql server 2000建议升级ado至2.6,sp5为2.5。