Version プロパティの例 (VB)

この例では、Connection オブジェクトの Version プロパティを使って、現在の ADO のバージョンを表示します。また、いくつかのダイナミック プロパティを使って、次の項目を表示します。

• 現在の DBMS の名前およびバージョン
  
  
• OLE DB のバージョン
  
  
• プロバイダの名前およびバージョン
  
  
• ODBC のバージョン
  
  
• ODBC ドライバの名前およびバージョン

Public Sub VersionX()

    Dim cnn1 As ADODB.Connection

    ' Open 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