DAtabase integriert

This commit is contained in:
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions

View File

@@ -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