Provider 和 DefaultDatabase 屬性範例 (VB)
此範例示範 Provider 屬性，方法是使用不同的提供者開啟三個 Connection 物件。 同時也會使用 DefaultDatabase 屬性來設定 Microsoft ODBC 提供者的預設資料庫。
注意
如果您要連線至支援 Windows 驗證的資料來源提供者，您應該指定 Trusted_Connection=yes 或 Integrated Security = SSPI，而非在連接字串中指定使用者識別碼和密碼資訊。
'BeginProviderVB
'To integrate this code
'replace the data source and initial catalog values
'in the connection strings
Public Sub Main()
On Error GoTo ErrorHandler
Dim Cnxn1 As ADODB.Connection
Dim Cnxn2 As ADODB.Connection
Dim Cnxn3 As ADODB.Connection
Dim strCnxn As String
' Open a connection using the Microsoft ODBC provider
Set Cnxn1 = New ADODB.Connection
Cnxn1.ConnectionString = "driver={SQL Server};server='MySqlServer';" & _
"user id='MyUserID';password='<password>';"
Cnxn1.Open strCnxn
Cnxn1.DefaultDatabase = "Pubs"
' Display the provider
MsgBox "Cnxn1 provider: " & Cnxn1.Provider
' Open a connection using the Microsoft Jet provider
Set Cnxn2 = New ADODB.Connection
Cnxn2.Provider = "Microsoft.Jet.OLEDB.4.0"
Cnxn2.Open "Northwind.mdb", _
"MyUserID", "<password>"
' Display the provider.
MsgBox "Cnxn2 provider: " & Cnxn2.Provider
' Open a connection using the Microsoft SQL Server provider
Set Cnxn3 = New ADODB.Connection
Cnxn3.Provider = "sqloledb"
Cnxn3.Open "Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
' Display the provider
MsgBox "Cnxn3 provider: " & Cnxn3.Provider
' clean up
Cnxn1.Close
Cnxn2.Close
Cnxn3.Close
Set Cnxn1 = Nothing
Set Cnxn2 = Nothing
Set Cnxn3 = Nothing
Exit Sub
ErrorHandler:
If Not Cnxn1 Is Nothing Then
If Cnxn1.State = adStateOpen Then Cnxn1.Close
End If
Set Cnxn1 = Nothing
If Not Cnxn2 Is Nothing Then
If Cnxn2.State = adStateOpen Then Cnxn2.Close
End If
Set Cnxn2 = Nothing
If Not Cnxn3 Is Nothing Then
If Cnxn3.State = adStateOpen Then Cnxn3.Close
End If
Set Cnxn3 = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndProviderVB