ADODB建立无连接RecordSet的方法

ADODB建立无连接RecordSet的方法

 

Private Sub Command1_Click()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.CursorLocation = adUseClient
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
             "C:/Documents and Settings/Administrator/My Documents/" & _
             "11.mdb;Persist Security Info=False"
    Set rst = cnn.Execute("select * from itb1")
    rst.ActiveConnection = Nothing '你要先执行这一句，用以断开连接
    cnn.Close                      '然后才可以在这里关闭连接
    Set DataGrid1.DataSource = rst '你可以看到rst中仍有数据存在
   
    Dim rst1 As New ADODB.Recordset '以下我建立一个无连接Recordset
    rst1.ActiveConnection = Nothing
    rst1.CursorLocation = adUseClient
    rst1.CursorType = adOpenStatic
    rst1.LockType = adLockOptimistic
   
    Set rst1 = rst.Clone            '我在这复制前一个记录集
    Set DataGrid2.DataSource = rst1 '在这观查rst1的记录与rst一样
   
    '现在我们的rst和rst1都是无连接的了，你是否看到数据？
   
   
End Sub