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

MS

Browse Source
This commit is contained in:
SchreiberM
2023-07-20 14:12:24 +02:00
parent c2deb54f11
commit ea5ea5f205
64 changed files with 8139 additions and 7996 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD-Record-Organizer/frmUserKonfig.vb
View File

@@ -13,18 +13,15 @@ Public Class frmUserKonfig
End Sub
Private Sub frmUserKonfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBDD_CLIENT". Sie können sie bei Bedarf verschieben oder entfernen.
Load_User()
Load_Clients()
End Sub
Public Sub Load_User()
Try
Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_USERTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER)
Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
Dim sql = "select GUID, CLIENT_NAME FROM TBDD_CLIENT order by Client_Name"
Dim DT_CLIENT As DataTable = MYDB_ECM.GetDatatable(sql)
@@ -34,7 +31,7 @@ Public Class frmUserKonfig
End Sub
Sub Load_Clients()
Try
Me.TBDD_CLIENTTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CLIENTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBDD_CLIENTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_CLIENT)
Catch ex As Exception
MsgBox("Error in Load Clients:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)