Uso di un oggetto Connection

Prima di aprire un oggetto Connection, è necessario definire alcune informazioni sull'origine dati e sul tipo di connessione. La maggior parte di queste informazioni viene mantenuta dal parametro ConnectionString del metodo Open nell'oggetto Connection o dalla proprietà ConnectionString nell'oggetto Connection. Una stringa di connessione è costituita da un elenco di coppie argomento/valore separate da punti e virgola, con i valori racchiusi tra virgolette singole. Ad esempio:

Dim sConn As String  
sConn = "Provider='SQLOLEDB';Data Source='MySqlServer';" & _  
             "Initial Catalog='Northwind';Integrated Security='SSPI';"  

Nota

È anche possibile specificare un file ODBC DSN (Data Source Name) o un file UDL (Data Link) in una stringa di connessione. Per altre informazioni sui DSN, vedere Gestione delle origini dati nella Guida di riferimento per programmatori ODBC. Per altre informazioni sugli UDL, vedere Panoramica delle API Data Link nella Guida di riferimento per programmatori OLE DB.

In genere, si stabilisce una connessione chiamando il metodo Connection.Open con una stringa di connessione appropriata come parametro. Un esempio è illustrato nel frammento di codice Visual Basic seguente:

Dim oConn As ADODB.Connection  
Dim oRs As ADODB.Recordset  
Dim sConn As String  
Dim sSQL as String  
  
' Open a connection.  
Set oConn = New ADODB.Connection  
.Open   
  
' Make a query over the connection.  
sSQL = "SELECT ProductID, ProductName, CategoryID, UnitPrice " & _  
             "FROM Products"  
Set oRs = New ADODB.Recordset  
oRs.Open sSQL, , adOpenStatic, adLockBatchOptimistic, adCmdText  
  
MsgBox oRs.RecordCount  
  
' Close the connection.  
oConn.Close  
Set oConn = Nothing  
  

Qui oRs.Open accetta una variabile Connection (oConn) come valore del relativo parametro ActiveConnection. Inoltre, la proprietà Connection.CursorLocation presuppone il valore predefinito di adUseServer. Confrontare questo esempio con quello di HelloData nella sezione precedente. L'istruzione seguente comporta errori di runtime.

oRs.MarshalOptions = adMarshalModifiedOnly  
' Disconnect the Recordset.  
Set oRs.ActiveConnection = Nothing