AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organizer/frmLanguage_Translator.vb
View File

@@ -41,7 +41,7 @@ Public Class frmLanguage_Translator
sql = sql.Replace("@OBJECT", group)
End If
Dim DT_OBJ As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT_OBJ As DataTable = MYDB_ECM.GetDatatable(sql)
Clear_Grid_View()
If Not IsNothing(DT_OBJ) Then
TBPMO_LANGUAGE_OBJECTBindingSource1.DataSource = DT_OBJ
@@ -131,7 +131,7 @@ Public Class frmLanguage_Translator
Exit Sub
End If
Dim upd = String.Format("UPDATE TBPMO_LANGUAGE_OBJECT SET {3} = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", e.Value, USER_USERNAME, Grid_RecordID, e.Column.FieldName)
If ClassDatabase.Execute_non_Query(upd, False) = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
ts_statelbl.Text = "Row/ID (" & Grid_RecordID.ToString & ") Updated - " & Now
ts_statelbl.BackColor = Color.Yellow
ts_statelbl.Visible = True