Version 屬性范例

Version 屬性范例

該范例使用 Connection 對象的 Version 屬性顯示當前的 ADO 版本。同時還使用幾個動態(tài)屬性顯示當前的 DBMS 名稱和版本、OLE DB 的版本、提供者名稱和版本、驅動程序名稱和版本以及驅動程序 ODBC 的版本。

Public Sub VersionX()

   Dim cnn1 As ADODB.Connection

   ' 打開連接。

   Set cnn1 = New ADODB.Connection

   strCnn = “driver={SQL Server};server=srv;” & _

      “user id=sa;password=;database=pubs;”

   cnn1.Open strCnn

   strVersionInfo = "ADO Version: " & cnn1.Version & vbCr & _

   "DBMS Name: " & cnn1.Properties("DBMS Name") & vbCr & _

   "DBMS Version: " & cnn1.Properties("DBMS Version") & vbCr & _

   "OLE DB Version: " & cnn1.Properties("OLE DB Version") & vbCr & _

   "Provider Name: " & cnn1.Properties("Provider Name") & vbCr & _

   "Provider Version: " & cnn1.Properties("Provider Version") & vbCr & _

   "Driver Name: " & cnn1.Properties("Driver Name") & vbCr & _

   "Driver Version: " & cnn1.Properties("Driver Version") & vbCr & _

   "Driver ODBC Version: " & cnn1.Properties("Driver ODBC Version")

   MsgBox strVersionInfo

   cnn1.Close

End Sub