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

jj: fix connection string bugs

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-12 14:32:33 +02:00
parent d31fdc9fae
commit 00e9cd1966
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
DDUserManager/DDUserManager/frmADImport_Groups.vb
View File

@ -3,13 +3,11 @@ Imports DevExpress.XtraGrid.Views.Grid
Public Class frmADImport_Groups
Private Sub frmADImport_Groups_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "UserDataSet.TBDD_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TBDD_GROUPSTableAdapter.Fill(Me.UserDataSet.TBDD_GROUPS)
'TODO: Diese Codezeile lädt Daten in die Tabelle "UserDataSet.TBDD_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TBDD_GROUPSTableAdapter.Fill(Me.UserDataSet.TBDD_GROUPS)
Try
Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups(Environment.UserName)
TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_GROUPSTableAdapter.Fill(Me.UserDataSet.TBDD_GROUPS)
Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups(Environment.UserName)
UserDataSet.TBLOCAL_ADGROUPS.Clear()

2
DDUserManager/DDUserManager/frmADImport_Users.vb
View File

@ -7,6 +7,8 @@ Public Class frmADImport_Users
Private Sub frmADImport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups(Environment.UserName)
gridAD_Groups.DataSource = groups

1
DDUserManager/DDUserManager/frmMain.vb
View File

@ -23,6 +23,7 @@ Public Class frmMain
TBDD_GROUPS_USERTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_USER_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
If TBDD_USERTableAdapter.IsUserManagerAdmin(Environment.UserName) = 1 Then
Dim userRow As TBDD_USERRow = GetCurrentUserRow(Environment.UserName)