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

@@ -368,7 +368,7 @@
pbBackground.ImageLocation = Nothing
pbBackground.Image = Nothing
Dim sql As String = String.Format("UPDATE TBPMO_STRUCTURE_NODES_CONFIGURATION SET NODE_IMAGE IS NULL WHERE GUID = {0}", Me.GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(sql, False) = True Then
If MYDB_ECM.ExecuteNonQuery(SQL) = True Then
setimageNull = False
End If
Catch ex As Exception
@@ -386,7 +386,7 @@
pbBackground.ImageLocation = Nothing
pbBackground.Image = Nothing
Dim sql = "SELECT NODE_IMAGE FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE GUID = " & GUIDTextBox.Text
Dim img = ClassDatabase.Execute_Scalar(sql)
Dim img = MYDB_ECM.GetScalarValue(SQL)
' Hintergrundbild unwandeln und anzeigen
If Not IsDBNull(img) Then
Dim bimage() As Byte = img