Condividi tramite

Utilizzo di un oggetto Recordset

  • Articolo

In alternativa, è possibile usare Recordset.Open per stabilire in modo implicito una connessione ed eseguire un comando su tale connessione in una singola operazione. Ad esempio, in 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

Si noti che oRs.Open accetta una stringa di connessione (sConn), al posto di un oggetto Connection (oConn), come valore del parametro ActiveConnection. Viene inoltre applicato il tipo di cursore sul lato client impostando la proprietà CursorLocation sull'oggetto Recordset. Anche in questo caso, confrontarlo con l'esempio di HelloData.