Provider 和 DefaultDatabase 屬性范例

Provider 和 DefaultDatabase 屬性范例

該范例通過(guò)打開(kāi)三個(gè)使用不同提供者的 Connection 對(duì)象演示 Provider 屬性。還使用 DefaultDatabase 屬性設(shè)置 Microsoft ODBC 提供者的默認(rèn)數(shù)據(jù)庫(kù)。

Public Sub ProviderX()

   Dim cnn1 As ADODB.Connection

   Dim cnn2 As ADODB.Connection

Dim cnn3 As ADODB.Connection

   ' 使用 Microsoft ODBC 提供者打開(kāi)連接。

   Set cnn1 = New ADODB.Connection

   cnn1.ConnectionString = "driver={SQL Server};" & _

      "server=bigsmile;uid=sa;pwd=pwd"

   cnn1.Open strCnn

   cnn1.DefaultDatabase = "pubs"

   ' 顯示提供者。

   MsgBox "Cnn1 provider: " & cnn1.Provider

   ' 使用 Microsoft Jet 提供者打開(kāi)連接。

   Set cnn2 = New ADODB.Connection

   cnn2.Provider = "Microsoft.Jet.OLEDB.3.51"

   cnn2.Open "C:\Samples\northwind.mdb", "admin", ""

   ' 顯示提供者。

   MsgBox "Cnn2 provider: " & cnn2.Provider

   ' 使用 Microsoft SQL 服務(wù)器提供者打開(kāi)連接。

   Set cnn3 = New ADODB.Connection

   cnn3.Provider = "sqloledb"

   cnn3.Open "Data Source=srv;Initial Catalog=pubs;", "sa", ""

   ' 顯示提供者。

   MsgBox "Cnn3 provider: " & cnn3.Provider

   cnn1.Close

   cnn2.Close

   cnn3.Close

End Sub