Version 属性范例

该范例使用 Connection 对象的 Version 属性显示当前的 ADO 版本。同时还使用几个动态属性显示当前的 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.CloseEnd Sub