Partager via

Utilisation d’un objet Recordset

  • Article

Vous pouvez également utiliser Recordset.Open pour établir implicitement une connexion et émettre une commande sur cette connexion dans une seule opération. Par exemple, dans 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

Notez que oRs.Open prend une chaîne de connexion (sConn), à la place d’un objet Connection (oConn), comme valeur de son paramètre ActiveConnection. Le type de curseur côté client est également appliqué en définissant la propriété CursorLocation sur l’objet Recordset. Là encore, contrastez-le avec l’exemple HelloData.