Version Property Example (VB)

This example uses the Version property of a Connection object to display the current ADO version. It also uses several dynamic properties to show:

• the current DBMS name and version.
• OLE DB version.
• provider name and version.
• ODBC version.
• ODBC driver name and version.

'BeginVersionVB
Public Sub VersionX()

   Dim Cnxn As ADODB.Connection
   Dim strCnxn As String
   Dim strVersionInfo As String

   ' Open connection
   Set Cnxn = New ADODB.Connection
   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Cnxn.Open strCnxn
   
   strVersionInfo = "ADO Version: " & Cnxn.Version & vbCr
   strVersionInfo = strVersionInfo & "DBMS Name: " & Cnxn.Properties("DBMS Name") & vbCr
   strVersionInfo = strVersionInfo & "DBMS Version: " & Cnxn.Properties("DBMS Version") & vbCr
   strVersionInfo = strVersionInfo & "OLE DB Version: " & Cnxn.Properties("OLE DB Version") & vbCr
   strVersionInfo = strVersionInfo & "Provider Name: " & Cnxn.Properties("Provider Name") & vbCr
   strVersionInfo = strVersionInfo & "Provider Version: " & Cnxn.Properties("Provider Version") & vbCr

   MsgBox strVersionInfo

   Cnxn.Close
   Set Cnxn = Nothing

End Sub
'EndVersionVB

See Also

Connection Object | Version Property

© 1998-2001 Microsoft Corporation. All rights reserved.