Creating a Disconnected Recordset : Recordset « Access « VBA / Excel / Access / Word

Creating a Disconnected Recordset

 
Sub Rst_Disconnected()
    Dim conn As ADODB.Connection
    Dim myRecordset As ADODB.Recordset
    Dim strConn As String
    Dim strSQL As String
    Dim strRst As String

    strSQL = "Select * From Orders where CustomerID = 'VINET'"

    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
    strConn = strConn & "Data Source = " & CurrentProject.Path & "\mydb.mdb"

    Set conn = New ADODB.Connection
    conn.ConnectionString = strConn
    conn.Open

    Set myRecordset = New ADODB.Recordset
    Set myRecordset.ActiveConnection = conn
    ' retrieve the data
    myRecordset.CursorLocation = adUseClient
    myRecordset.LockType = adLockBatchOptimistic
    myRecordset.CursorType = adOpenStatic
    myRecordset.Open strSQL, , , , adCmdText

    Set myRecordset.ActiveConnection = Nothing

    myRecordset.MoveFirst
    Debug.Print myRecordset.Fields(0) & " was " & myRecordset.Fields(1) & " before."
    myRecordset.Fields("CustomerID").Value = "OCEAN"
    myRecordset.Update

    strRst = myRecordset.GetString(adClipString, , ",")
    Debug.Print strRst
End Sub

1.	Looping Through a Recordset
2.	Retrieve data from Recordset by table column name
3.	Move cursor in result set
4.	Build a string text from result set
5.	Creating a Custom Recordset
6.	Filling a Combo Box with a Disconnected Recordset
7.	The Supports Method of the Recordset Object
8.	Using the EOF Property to Determine the Bounds of a Recordset
9.	A Recordset That Does Not Support the RecordCount Property
10.	A Recordset That Supports the RecordCount Property
11.	Whether Records Are Returned in a Recordset
12.	The Sort Property of the Recordset Object
13.	Using the AbsolutePosition Property
14.	Using the Bookmark Property
15.	Refreshing Recordset Data
16.	Assigning Recordsets Dynamically to a form
17.	Set recordset to form
18.	Row order in Dynamic Recordset
19.	Dynamic Recordset
20.	Snapshot Recordset
21.	Set Index and seek the recordset

Creating a Disconnected Recordset : Recordset « Access « VBA / Excel / Access / Word

Related examples in the same category