Article Details
Id:13138
Product:finPOWER Connect
Type:NEW
Version:2.03.01
Opened:24/07/2015
Closed:24/07/2015
Released:07/08/2015
Job: J015965

Database Information; new function added to get SQL Server Information including Edition

A new Database function has been added to get SQL Server Information, including the full Version text and Edition information.

This information is shown on the Help, About and Tools, Utilities, Debug forms.

The Business Layer function is shown below. Note, you must have a Microsoft SQL Server database opened for this script to work.

  Dim EngineEdition As iseMSSqlServerEngineEdition
  Dim ProductEdition As String
  Dim Version As String

  ' Assume Success
  Main = True

  If DirectCast(finBL.Database.CurrentProviderUtilities, ISDatabaseProviderUtilitiesMSSqlServer).GetDatabaseInformation(Version, ProductEdition, EngineEdition) Then
    finBL.DebugPrint(Version)
    finBL.DebugPrint(ProductEdition)
    finBL.DebugPrint(EngineEdition.ToString())
  Else
    Main = False
  End If