jj 31.05
This commit is contained in:
Jonathan Jenne
579
ToolCollection/frmNIProfilhinzufuegen.vb
Normal file
579
ToolCollection/frmNIProfilhinzufuegen.vb
Normal file
@@ -0,0 +1,579 @@
|
||||
Imports Oracle.ManagedDataAccess.Client
|
||||
Public Class frmNIProfilhinzufuegen
|
||||
Private _oDokumentTypen As WINDREAMLib.WMObjects
|
||||
Public Shared _windream As New ClassWindream_allgemein
|
||||
Private Shared _Instance As frmNIProfilhinzufuegen = Nothing
|
||||
Private licenseManager As ClassLicenseManager = Nothing
|
||||
|
||||
|
||||
Public Shared Function Instance() As frmNIProfilhinzufuegen
|
||||
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
|
||||
_Instance = New frmNIProfilhinzufuegen
|
||||
End If
|
||||
_Instance.BringToFront()
|
||||
Return _Instance
|
||||
End Function
|
||||
|
||||
Private Sub frmNIProfilhinzufuegen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
' Verbindung mit windream herstellen
|
||||
_windream.Init()
|
||||
|
||||
' die Textfelder löschen
|
||||
Me.txtProfilname.Text = ""
|
||||
Me.txtWindreamSuche.Text = ""
|
||||
|
||||
' die ComboBox leeren
|
||||
Me.cmbObjektTypen.Items.Clear()
|
||||
|
||||
' und die aktuellen Objekttypen eintragen
|
||||
Me.ObjektTypenEintragen()
|
||||
|
||||
' Standardbuttons festlegen
|
||||
Me.AcceptButton = Me.btnOK
|
||||
Me.CancelButton = Me.btnAbbrechen
|
||||
frmLogin_NI.Close()
|
||||
End Sub
|
||||
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
|
||||
|
||||
If Me.rbDatenbank.Checked = True Then
|
||||
' wenn mindestens ein Profilname und ein Dokumententyp angegeben wurde
|
||||
If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" And _
|
||||
Me.cmbDbArt.SelectedIndex <> -1 And Me.txtDataSource.Text <> "" Then ' And Me.cmbIndexValidierung.SelectedIndex <> -1
|
||||
Dim initialCatalog As String
|
||||
If Me.cmbDbArt.SelectedItem = "MS-SQL" Then
|
||||
initialCatalog = Me.cmbInitialCatalog.Text
|
||||
Else
|
||||
initialCatalog = Me.txtInitialCatalog.Text
|
||||
End If
|
||||
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist
|
||||
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem) IsNot Nothing Then
|
||||
|
||||
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
|
||||
|
||||
If Me.txtUserId.Text <> "" Then
|
||||
|
||||
If Me.txtPassword.Text <> "" Then
|
||||
|
||||
' das Profil hinzufügen
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
|
||||
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Me.txtUserId.Text, Me.txtPassword.Text, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
|
||||
Else
|
||||
|
||||
' das Profil hinzufügen mit WIN-AUTHENTIFIZIERUNG
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
|
||||
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Me.txtUserId.Text, "", initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
|
||||
End If
|
||||
Else
|
||||
If Me.CheckBoxwin_aut.Visible = True And Me.CheckBoxwin_aut.Checked Then
|
||||
' das Profil hinzufügen - Windows Authentifizierung
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
|
||||
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, "WINAUTH", Nothing, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
|
||||
Else
|
||||
' das Profil hinzufügen
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "db", "", _
|
||||
Me.cmbDbArt.SelectedItem, Me.txtDataSource.Text, Nothing, Nothing, initialCatalog, Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
' und das Formular schließen
|
||||
Me.Close()
|
||||
Else
|
||||
MsgBox("Es existiert bereits ein Profil mit diesem Namen.", MsgBoxStyle.Information, "Ungültiger Profilname")
|
||||
End If
|
||||
Else
|
||||
' sonst eine Fehlermeldung ausgeben
|
||||
MsgBox("Es konnte auf dem aktuell gewählten windream-Server kein entsprechender Objekttyp gefunden werden." & vbNewLine & _
|
||||
"Bitte setzen Sie sich mit Ihrem windream-Administrator in Verbindung, um zu klären warum der Objekttyp '" & Me.cmbObjektTypen.Text & "'" & _
|
||||
" auf dem windream-Server '" & _windream.GetCurrentServer & "' nicht gefunden werden kann.", MsgBoxStyle.Exclamation, "Ungültiger Objekttyp")
|
||||
End If
|
||||
|
||||
Else
|
||||
' sonst eine Fehlermeldung ausgeben
|
||||
MsgBox("Bitte geben Sie für jedes Pflichtfeld einen Wert an, da ohne diese Angaben kein Profil erstellt werden kann.", MsgBoxStyle.Information, "Eingabe erwartet")
|
||||
End If
|
||||
ElseIf rbDatei.Checked = True Then
|
||||
' Nachindexierung über Dateien
|
||||
If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" And _
|
||||
Me.cmbEndung_xml.SelectedIndex <> -1 Then
|
||||
If Me.rbxls.Checked Or Me.rbxml.Checked Then
|
||||
' und der Objekttyp auf dem aktuellen windream-Server vorhanden ist
|
||||
If _windream.GetObjecttypeByName(Me.cmbObjektTypen.SelectedItem) IsNot Nothing Then
|
||||
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
|
||||
Dim _Typ As String
|
||||
If Me.rbxml.Checked Then
|
||||
_Typ = "xml"
|
||||
Else
|
||||
_Typ = "xls"
|
||||
End If
|
||||
' das Profil hinzufügen
|
||||
'DbArt = "Dateityp"
|
||||
'datasource = Dateiendung
|
||||
'initialCatalog = löschen
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, _
|
||||
_Typ, Me.cmbEndung_xml.Text, "", "", "", "", "", Me.cmbIndexValidierung.Text, Me.chkbxdelete.Checked, 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
|
||||
' und das Formular schließen
|
||||
Me.Close()
|
||||
Else
|
||||
MsgBox("Es existiert bereits ein Profil mit diesem Namen.", MsgBoxStyle.Information, "Ungültiger Profilname")
|
||||
End If
|
||||
Else
|
||||
' sonst eine Fehlermeldung ausgeben
|
||||
MsgBox("Es konnte auf dem aktuell gewählten windream-Server kein entsprechender Objekttyp gefunden werden." & vbNewLine & _
|
||||
"Bitte setzen Sie sich mit Ihrem windream-Administrator in Verbindung, um zu klären warum der Objekttyp '" & Me.cmbObjektTypen.Text & "'" & _
|
||||
" auf dem windream-Server '" & _windream.GetCurrentServer & "' nicht gefunden werden kann.", MsgBoxStyle.Exclamation, "Ungültiger Objekttyp")
|
||||
End If
|
||||
Else
|
||||
MsgBox("Bitte definieren welcher Typ Datei als Nachindexierungsmedium genutzt wird!", MsgBoxStyle.Exclamation, "Kein Dateityp gewählt")
|
||||
End If
|
||||
|
||||
Else
|
||||
' sonst eine Fehlermeldung ausgeben
|
||||
MsgBox("Bitte geben Sie für jedes Pflichtfeld einen Wert an, da ohne diese Angaben kein Profil erstellt werden kann.", MsgBoxStyle.Information, "Eingabe erwartet")
|
||||
End If
|
||||
ElseIf RBLDAP.Checked = True Then
|
||||
' Nachindexierung über AD
|
||||
If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" Then
|
||||
If chkbxUserIdent.Checked = False And txtLDAP_Domaene.Text <> "" And txtLDAP_PW.Text <> "" And txtLDAP_User.Text <> "" Then
|
||||
Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
|
||||
Dim key As String = licenseManager.EncodeLicenseKey(txtLDAP_PW.Text, "#DigitalData9731258!#")
|
||||
' das Profil hinzufügen - AD MIT AUTH
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "activedirectory", "", "", txtLDAP_Domaene.Text, txtLDAP_User.Text, key, "", Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
|
||||
' und das Formular schließen
|
||||
Me.Close()
|
||||
Else
|
||||
If chkbxUserIdent.Checked = True Then
|
||||
' das Profil hinzufügen - AD OHNE AUTH
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "activedirectory", "", "", "", "", "", "", Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
|
||||
' und das Formular schließen
|
||||
Me.Close()
|
||||
Else
|
||||
' sonst eine Fehlermeldung ausgeben
|
||||
MsgBox("Bitte geben Sie Useridentifikationen an, da ohne diese Angaben kein Profil erstellt werden kann.", MsgBoxStyle.Information, "Eingabe erwartet")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
' sonst eine Fehlermeldung ausgeben
|
||||
MsgBox("Bitte geben Sie für jedes Pflichtfeld einen Wert an, da ohne diese Angaben kein Profil erstellt werden kann.", MsgBoxStyle.Information, "Eingabe erwartet")
|
||||
End If
|
||||
ElseIf rbVolltext.Checked = True Then
|
||||
' Nachindexierung über AD
|
||||
If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" And Me.txtVolltextname.Text <> "" Then
|
||||
' das Profil hinzufügen - AD OHNE AUTH
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "fulltext", "", "", "", "", "", "", Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text, txtVolltextname.Text)
|
||||
' und das Formular schließen
|
||||
Me.Close()
|
||||
|
||||
Else
|
||||
' sonst eine Fehlermeldung ausgeben
|
||||
MsgBox("Bitte geben Sie für jedes Pflichtfeld einen Wert an, da ohne diese Angaben kein Profil erstellt werden kann.", MsgBoxStyle.Information, "Eingabe erwartet")
|
||||
End If
|
||||
Else
|
||||
If chkbxGetOrdnerRechte.Checked Then
|
||||
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, _
|
||||
"nur-ordner-indizes", "", "", "", "", "", "", Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
|
||||
' und das Formular schließen
|
||||
Me.Close()
|
||||
Else
|
||||
MsgBox("Es existiert bereits ein Profil mit diesem Namen.", MsgBoxStyle.Information, "Ungültiger Profilname")
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen.Click
|
||||
' Formular schließen
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnWindreamSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWindreamSuche.Click
|
||||
' wenn im Formular der OK-Button geklickt wurde
|
||||
If Me.dlgWindreamSuche.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
||||
' den Speicherort der windream-Suche in die TextBox eintragen
|
||||
Me.txtWindreamSuche.Text = Me.dlgWindreamSuche.FileName
|
||||
End If
|
||||
End Sub
|
||||
Private Sub ObjektTypenEintragen()
|
||||
Try
|
||||
Dim oDokumentTyp As WINDREAMLib.WMObject
|
||||
' Combobox leeren
|
||||
Me.cmbObjektTypen.Items.Clear()
|
||||
' alle Objekttypen durchlaufen
|
||||
For Each oDokumentTyp In _windream.GetObjecttypesAsObjects
|
||||
' und in die Combobox eintragen
|
||||
Me.cmbObjektTypen.Items.Add(oDokumentTyp.aName)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnWindreamsucheLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWindreamsucheLöschen.Click
|
||||
Me.txtWindreamSuche.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub cmbDbArt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDbArt.SelectedIndexChanged
|
||||
If Me.cmbDbArt.SelectedIndex <> -1 Then
|
||||
Me.btnCheck_Con.Visible = True
|
||||
CheckBoxwin_aut.Visible = False
|
||||
chkOR_ohne_TNS.Visible = False
|
||||
Select Case Me.cmbDbArt.SelectedItem
|
||||
|
||||
Case "MS-SQL"
|
||||
Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
|
||||
Me.lblInitialCatalog.Text = "Datenbank-Name:"
|
||||
Me.txtDataSource.ReadOnly = False
|
||||
Me.txtDataSource.BackColor = System.Drawing.SystemColors.Window
|
||||
Me.txtDataSource.Text = ""
|
||||
Me.btnMdbLocation.Visible = False
|
||||
Me.btnMdbLöschen.Visible = False
|
||||
Me.lblUserId.Text = "UserId:"
|
||||
Me.lblPassword.Text = "Passwort:"
|
||||
Me.lblInitialCatalog.Visible = False
|
||||
Me.txtInitialCatalog.Visible = False
|
||||
Me.cmbInitialCatalog.Visible = True
|
||||
Me.lblDatenbank.Visible = True
|
||||
CheckBoxwin_aut.Visible = True
|
||||
Case "ODBC"
|
||||
Me.lblDataSource.Text = "DSN*:"
|
||||
Me.txtDataSource.ReadOnly = False
|
||||
Me.txtDataSource.BackColor = System.Drawing.SystemColors.Window
|
||||
Me.txtDataSource.Text = ""
|
||||
Me.btnMdbLocation.Visible = False
|
||||
Me.btnMdbLöschen.Visible = False
|
||||
|
||||
Me.lblUserId.Text = "UserId:"
|
||||
Me.lblPassword.Text = "Passwort:"
|
||||
Me.lblInitialCatalog.Visible = False
|
||||
Me.txtInitialCatalog.Visible = False
|
||||
Me.cmbInitialCatalog.Visible = False
|
||||
Me.lblDatenbank.Visible = False
|
||||
|
||||
Case "Ole (Access)"
|
||||
Me.lblDataSource.Text = ".mdb Datei*:"
|
||||
Me.txtDataSource.ReadOnly = True
|
||||
Me.txtDataSource.BackColor = System.Drawing.SystemColors.Info
|
||||
Me.txtDataSource.Text = ""
|
||||
Me.btnMdbLocation.Visible = True
|
||||
Me.btnMdbLöschen.Visible = True
|
||||
|
||||
Me.lblUserId.Text = "UserId:"
|
||||
Me.lblPassword.Text = "Passwort:"
|
||||
Me.lblInitialCatalog.Visible = False
|
||||
Me.txtInitialCatalog.Visible = False
|
||||
Me.cmbInitialCatalog.Visible = False
|
||||
Me.lblDatenbank.Visible = False
|
||||
|
||||
Case "Oracle"
|
||||
Me.lblDataSource.Text = "IP Oracle-Server:"
|
||||
Me.txtDataSource.ReadOnly = False
|
||||
Me.txtDataSource.BackColor = System.Drawing.SystemColors.Window
|
||||
Me.txtDataSource.Text = ""
|
||||
Me.btnMdbLocation.Visible = False
|
||||
Me.btnMdbLöschen.Visible = False
|
||||
|
||||
Me.lblUserId.Text = "UserId:"
|
||||
Me.lblPassword.Text = "Passwort:"
|
||||
Me.lblInitialCatalog.Visible = True
|
||||
Me.lblInitialCatalog.Text = "Servicename:"
|
||||
Me.txtInitialCatalog.Visible = True
|
||||
chkOR_ohne_TNS.Visible = True
|
||||
End Select
|
||||
|
||||
Me.lblDataSource.Visible = True
|
||||
Me.lblUserId.Visible = True
|
||||
Me.lblPassword.Visible = True
|
||||
Me.txtDataSource.Visible = True
|
||||
Me.txtUserId.Visible = True
|
||||
Me.txtPassword.Visible = True
|
||||
Else
|
||||
Me.lblDataSource.Visible = False
|
||||
Me.lblUserId.Visible = False
|
||||
Me.lblPassword.Visible = False
|
||||
Me.txtDataSource.Visible = False
|
||||
Me.txtUserId.Visible = False
|
||||
Me.txtPassword.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnMdbLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMdbLöschen.Click
|
||||
Me.txtDataSource.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub btnMdbLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMdbLocation.Click
|
||||
If Me.dlgMdbLocation.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
Me.txtDataSource.Text = Me.dlgMdbLocation.FileName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnCheck_Con_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck_Con.Click
|
||||
Dim msg_string As String
|
||||
Try
|
||||
If Me.cmbDbArt.SelectedIndex <> -1 Then
|
||||
Cursor = Cursors.WaitCursor
|
||||
|
||||
Select Case Me.cmbDbArt.SelectedItem
|
||||
Case "MS-SQL"
|
||||
Dim con As String
|
||||
If CheckBoxwin_aut.Checked Then
|
||||
con = "Data Source=" & Me.txtDataSource.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
|
||||
Else
|
||||
con = "Server=" & Me.txtDataSource.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.txtUserId.Text & ";Password=" & Me.txtPassword.Text & ";"
|
||||
End If
|
||||
msg_string = con
|
||||
Dim connection As New SqlClient.SqlConnection(con)
|
||||
connection.Open()
|
||||
Cursor = Cursors.Default
|
||||
MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
|
||||
My.Settings.Save()
|
||||
'DialogResult = Windows.Forms.DialogResult.OK
|
||||
Case "Oracle"
|
||||
My.Settings.Save()
|
||||
Dim connstr As String
|
||||
Try
|
||||
Dim conn As New OracleConnectionStringBuilder
|
||||
|
||||
If chkOR_ohne_TNS.Checked Then
|
||||
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & txtDataSource.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
|
||||
txtInitialCatalog.Text & ")));User Id=" & txtUserId.Text & ";Password=" & txtPassword.Text & ";"
|
||||
Else
|
||||
conn.DataSource = txtInitialCatalog.Text
|
||||
conn.UserID = txtUserId.Text
|
||||
conn.Password = txtPassword.Text
|
||||
conn.PersistSecurityInfo = True
|
||||
conn.ConnectionTimeout = 120
|
||||
connstr = conn.ConnectionString
|
||||
End If
|
||||
|
||||
Dim connection As New OracleConnection(connstr)
|
||||
connection.Open()
|
||||
|
||||
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
|
||||
My.Settings.Save()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:")
|
||||
End Try
|
||||
|
||||
Case Else
|
||||
MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:")
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Dim template As String = ex.Message
|
||||
Clipboard.SetDataObject(template)
|
||||
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message & vbNewLine & "Connection-String: " & vbNewLine & msg_string, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub rbDatenbank_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbDatenbank.CheckedChanged
|
||||
If rbDatenbank.Checked = True Then
|
||||
Me.grbxDatenbank.Visible = True
|
||||
Me.grbxDatenbank.Dock = DockStyle.Fill
|
||||
'gbxDatenbank.Location = New Point(15, 141)
|
||||
Else
|
||||
Me.grbxDatenbank.Visible = False
|
||||
Me.grbxDatenbank.Dock = DockStyle.None
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rbDatei_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbDatei.CheckedChanged
|
||||
If rbDatei.Checked = True Then
|
||||
Me.grbxDatei.Visible = True
|
||||
Me.grbxDatei.Dock = DockStyle.Top
|
||||
'gbxDatei.Location = New Point(15, 141)
|
||||
Me.grbxDatenbank.Dock = DockStyle.Bottom
|
||||
Me.grbxDatenbank.Visible = False
|
||||
Else
|
||||
Me.grbxDatei.Visible = False
|
||||
Me.grbxDatei.Dock = DockStyle.None
|
||||
Me.grbxDatenbank.Dock = DockStyle.Bottom
|
||||
Me.grbxDatenbank.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rbxml_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbxml.CheckedChanged
|
||||
If Me.rbxml.Checked Then
|
||||
Me.lblDateiendung.Visible = True
|
||||
Me.cmbEndung_xml.Visible = True
|
||||
Else
|
||||
Me.lblDateiendung.Visible = False
|
||||
Me.cmbEndung_xml.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
Private Sub RBLDAP_CheckedChanged(sender As Object, e As EventArgs) Handles RBLDAP.CheckedChanged
|
||||
If RBLDAP.Checked = True Then
|
||||
Me.grbxLDAP.Visible = True
|
||||
Me.chkbxUserIdent.Text = "Identifizierung über aktuellen User: " & Environment.UserDomainName & "\" & Environment.UserName
|
||||
|
||||
Me.grbxLDAP.Dock = DockStyle.Top
|
||||
'gbxDatei.Location = New Point(15, 141)
|
||||
Me.grbxDatenbank.Dock = DockStyle.Bottom
|
||||
Me.grbxDatenbank.Visible = False
|
||||
Else
|
||||
Me.grbxLDAP.Visible = False
|
||||
Me.grbxLDAP.Dock = DockStyle.None
|
||||
Me.grbxDatenbank.Dock = DockStyle.Bottom
|
||||
Me.grbxDatenbank.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub chkdelete_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkbxdelete.CheckedChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cmbDokumentTypen_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbObjektTypen.SelectedIndexChanged
|
||||
Try
|
||||
If Me.cmbObjektTypen.SelectedIndex <> -1 Then
|
||||
Me.cmbIndexValidierung.Items.Clear()
|
||||
|
||||
Dim indexe = _windream.GetIndicesByObjecttype(cmbObjektTypen.Text, True, "NI")
|
||||
|
||||
If indexe IsNot Nothing Then
|
||||
For Each index As String In indexe
|
||||
Me.cmbIndexValidierung.Items.Add(index)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei cmbDokumentTypen.SelectedIndexChanged: ")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub txtPassword_LostFocus(sender As Object, e As System.EventArgs) Handles txtPassword.LostFocus
|
||||
Get_MSSQL_Databases()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Get_MSSQL_Databases()
|
||||
Try
|
||||
' Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
If Me.cmbDbArt.SelectedIndex <> -1 Then
|
||||
|
||||
Select Case Me.cmbDbArt.SelectedItem
|
||||
Case "MS-SQL"
|
||||
Dim con As String
|
||||
If CheckBoxwin_aut.Checked Then
|
||||
con = "Data Source=" & Me.txtDataSource.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
|
||||
Else
|
||||
con = "Server=" & Me.txtDataSource.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.txtUserId.Text & ";Password=" & Me.txtPassword.Text & ";"
|
||||
End If
|
||||
'csb.DataSource = Me.txtDataSource.Text
|
||||
'csb.IntegratedSecurity = False
|
||||
'csb.UserID = Me.txtUserId.Text
|
||||
'csb.Password = Me.txtPassword.Text
|
||||
Dim connection As New SqlClient.SqlConnection(con)
|
||||
'während Verbindungsaufbau Sanduhr-Mauszeiger
|
||||
Cursor = Cursors.WaitCursor
|
||||
connection.Open()
|
||||
Cursor = Cursors.Default
|
||||
' SQLCommand-Objekt über alle Datenbanken erstellen
|
||||
Dim cmd As New SqlClient.SqlCommand("SELECT [name] FROM master.dbo.sysdatabases WHERE name NOT IN ('master', 'tempdb', 'model', 'msdb')", connection)
|
||||
'cmd.CommandType = CommandType.
|
||||
' Ausführen und Ergebnis in einer ListBox anzeigen
|
||||
Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
|
||||
If dr.HasRows Then
|
||||
cmbInitialCatalog.Items.Clear()
|
||||
Do While dr.Read
|
||||
cmbInitialCatalog.Items.Add(dr("name"))
|
||||
Loop
|
||||
cmbInitialCatalog.DroppedDown = True
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Cursor = Cursors.Default
|
||||
|
||||
Dim template As String = ex.Message
|
||||
Clipboard.SetDataObject(template)
|
||||
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub chkbxUserIdent_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserIdent.CheckedChanged
|
||||
If chkbxUserIdent.Checked = False Then
|
||||
Me.chkbxUserIdent.Text = "Identifizierung über dedizierten User"
|
||||
lblLDAP_Domaene.Visible = True
|
||||
lblLDAP_PW.Visible = True
|
||||
lblLDAP_User.Visible = True
|
||||
txtLDAP_Domaene.Visible = True
|
||||
txtLDAP_PW.Visible = True
|
||||
txtLDAP_User.Visible = True
|
||||
Else
|
||||
lblLDAP_Domaene.Visible = False
|
||||
lblLDAP_PW.Visible = False
|
||||
lblLDAP_User.Visible = False
|
||||
txtLDAP_Domaene.Visible = False
|
||||
txtLDAP_PW.Visible = False
|
||||
txtLDAP_User.Visible = False
|
||||
Me.chkbxUserIdent.Text = "Identifizierung über aktuellen User: " & Environment.UserDomainName & "\" & Environment.UserName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub chkbxGetOrdnerRechte_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxGetOrdnerRechte.CheckedChanged
|
||||
If chkbxGetOrdnerRechte.Checked Then
|
||||
Me.cmbOrdnertyp.Enabled = True
|
||||
OrdnerTypenEintragen()
|
||||
Else
|
||||
Me.cmbOrdnertyp.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
Private Sub OrdnerTypenEintragen()
|
||||
Try
|
||||
Dim oOrdnerTyp As WINDREAMLib.WMObject
|
||||
' Combobox leeren
|
||||
Me.cmbOrdnertyp.Items.Clear()
|
||||
' alle Objekttypen durchlaufen
|
||||
For Each oOrdnerTyp In _windream.GetOrdnertypenAsObjects
|
||||
' und in die Combobox eintragen
|
||||
Me.cmbOrdnertyp.Items.Add(oOrdnerTyp.aName)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Ordnertypen:")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rbVolltext_CheckedChanged(sender As Object, e As EventArgs) Handles rbVolltext.CheckedChanged
|
||||
If rbVolltext.Checked = True Then
|
||||
Me.grbxFT.Visible = True
|
||||
|
||||
'gbxDatei.Location = New Point(15, 141)
|
||||
Me.grbxFT.Dock = DockStyle.Fill
|
||||
Else
|
||||
Me.grbxFT.Visible = False
|
||||
Me.grbxFT.Dock = DockStyle.None
|
||||
Me.grbxFT.Dock = DockStyle.Bottom
|
||||
Me.grbxFT.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub CheckBoxwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxwin_aut.CheckedChanged
|
||||
If CheckBoxwin_aut.Checked Then
|
||||
Me.txtUserId.Enabled = False
|
||||
Me.txtPassword.Enabled = False
|
||||
Me.txtUserId.Text = "WINAUTH"
|
||||
Me.txtPassword.Text = ""
|
||||
Else
|
||||
Me.txtUserId.Enabled = True
|
||||
Me.txtPassword.Enabled = True
|
||||
Me.txtUserId.Text = ""
|
||||
Me.txtPassword.Text = ""
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmbInitialCatalog_Click(sender As Object, e As EventArgs) Handles cmbInitialCatalog.Click
|
||||
Get_MSSQL_Databases()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user