DAtabase integriert
This commit is contained in:
@@ -16,7 +16,7 @@
|
||||
Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
|
||||
Me.lblCompanyName.Text = My.Application.Info.CompanyName
|
||||
' Me.txtDescription.Text = My.Application.Info.Description
|
||||
Dim version = ClassDatabase.Execute_Scalar("SELECT PRODUCT_VERSION FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
|
||||
Dim version = MYDB_ECM.GetScalarValue("SELECT PRODUCT_VERSION FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
|
||||
If Not IsNothing(version) Then
|
||||
Me.lbldatabase.Text = String.Format("Database-Version: {0}", version.ToString)
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user