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

@@ -98,7 +98,7 @@
Dim column = e.Column.FieldName
Dim id = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("GUID"))
Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR SET {0} = '{1}',CHANGED_WHO = '{2}',LANGUAGE = '{3}' where GUID = {4}", column, e.Value, USER_USERNAME, USER_LANGUAGE, id)
If ClassDatabase.Execute_non_Query(sql, False) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox("Update Value not successfull. Check logfile", MsgBoxStyle.Critical)
End If