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
Commenti e suggerimenti
https://aka.ms/ContentUserFeedback.
Presto disponibile: Nel corso del 2024 verranno gradualmente disattivati i problemi di GitHub come meccanismo di feedback per il contenuto e ciò verrà sostituito con un nuovo sistema di feedback. Per altre informazioni, vedereInvia e visualizza il feedback per