DAtabase integriert
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user