Attribute VB_Name = "cli_Info"
'----------------------------------------------------------------------------
'
' (c) Copyright IBM Corp. 2007 All rights reserved.
' 
' The following sample of source code ("Sample") is owned by International 
' Business Machines Corporation or one of its subsidiaries ("IBM") and is 
' copyrighted and licensed, not sold. You may use, copy, modify, and 
' distribute the Sample in any form without payment to IBM, for the purpose of 
' assisting you in the development of your applications.
' 
' The Sample code is provided to you on an "AS IS" basis, without warranty of 
' any kind. IBM HEREBY EXPRESSLY DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR 
' IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 
' MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. Some jurisdictions do 
' not allow for the exclusion or limitation of implied warranties, so the above 
' limitations or exclusions may not apply to you. IBM shall not be liable for 
' any damages you suffer as a result of using, copying, modifying or 
' distributing the Sample, even if IBM has been advised of the possibility of 
' such damages.
'----------------------------------------------------------------------------
'
' SOURCE FILE NAME: cli_Info.bas
'
' SAMPLE: Get information at the client level
'
' FORMS USED:
'         frmMain (Demo.frm)
'
'----------------------------------------------------------------------------
'
' For more information on the sample programs, see the README file.
'
' For information on building ADO applications with Visual Basic, 
' see the Developing ADO.NET and OLE DB Applications book.
'
' For information on using SQL statements, see the SQL Reference.
'
' For the latest information on programming, compiling, and running DB2
' applications, visit the DB2 Information Center:
'     http://publib.boulder.ibm.com/infocenter/db2luw/v9r7/index.jsp
'----------------------------------------------------------------------------


Option Explicit

'This procedure returns the environment information.
Public Function VersionInfo(cn As ADODB.Connection) As String
  
  'define an error handler so that partial information
  'can still be obtained in case of error.
  On Error GoTo VersionInfo_Exit

  'set up the version information string by using Connection
  'Dynamic Properties
  Dim strVersionInfo As String
  strVersionInfo = "ADO Version: " & cn.Version
  strVersionInfo = strVersionInfo & vbCr & _
    "DBMS Name: " & cn.Properties("DBMS Name")
  strVersionInfo = strVersionInfo & vbCr & _
    "DBMS Version: " & cn.Properties("DBMS Version")
  strVersionInfo = strVersionInfo & vbCr & _
    "OLE DB Version: " & cn.Properties("OLE DB Version")
  strVersionInfo = strVersionInfo & vbCr & _
    "Provider Name: " & cn.Properties("Provider Name")
  strVersionInfo = strVersionInfo & vbCr & _
    "Provider Version: " & cn.Properties("Provider Version")
  strVersionInfo = strVersionInfo & vbCr & _
    "Driver Name: " & cn.Properties("Driver Name")
  strVersionInfo = strVersionInfo & vbCr & _
    "Driver Version: " & cn.Properties("Driver Version")
  strVersionInfo = strVersionInfo & vbCr & _
    "Driver ODBC Version: " & cn.Properties("Driver ODBC Version")
'
'  the following section of codes may be used to get a full list of
'  all the available properties:
'
'  Dim pro As ADODB.Property
'  For Each pro In cn.Properties
'    strVersionInfo = strVersionInfo & vbCr & _
'      pro.Name & ": " & pro.Value
'  Next

VersionInfo_Exit:
  VersionInfo = strVersionInfo

End Function