使用 Recordset 物件

或者，您可以使用 Recordset.Open 隱含建立連線，並在單一作業中透過該連線發出命令。 例如，在 Visual Basic 中：

Dim oRs As ADODB.Recordset  
Dim sConn As String  
Dim sSQL as String  
  
sConn = "Provider='SQLOLEDB';Data Source='MySqlServer';" & _             "Initial Catalog='Northwind';Integrated Security='SSPI';"  
  
sSQL = "SELECT ProductID, ProductName, CategoryID, UnitPrice " & _  
             "FROM Products"  
  
' Create and Open the Recordset object.  
Set oRs = New ADODB.Recordset  
oRs.CursorLocation = adUseClient  
oRs.Open sSQL, sConn, adOpenStatic, _  
               adLockBatchOptimistic, adCmdText  
  
MsgBox oRs.RecordCount  
  
oRs.MarshalOptions = adMarshalModifiedOnly  
' Disconnect the Recordset.  
Set oRs.ActiveConnection = Nothing  
oRs.Close          
Set oRs = Nothing  

請注意，oRs.Open 會採用連接字串 (sConn)，取代 Connection 物件 (oConn)，做為其 ActiveConnection 參數的值。 此外，也會藉由設定 Recordset 物件上的 CursorLocation 屬性來強制執行用戶端資料指標類型。 再次將此與 HelloData 範例進行比對。