606 lines
31 KiB
VB.net
606 lines
31 KiB
VB.net
Imports System.Data.Odbc
|
|
Imports Oracle.ManagedDataAccess.Client
|
|
Public Class frmNIProfilhinzufuegen
|
|
Private _oDokumentTypen As WINDREAMLib.WMObjects
|
|
Public Shared _windream As 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
|
|
_windream = New ClassWindream_allgemein(CURR_LogConfig)
|
|
' 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
|
|
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, True) 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, True) 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 "ODBC"
|
|
Dim connectionString As String
|
|
connectionString = $"DSN={txtDataSource.Text};UID={txtUserId.Text};Pwd={txtPassword.Text};"
|
|
Try
|
|
Dim conn As OdbcConnection
|
|
Dim dr As OdbcDataReader
|
|
|
|
|
|
conn = New OdbcConnection(connectionString)
|
|
conn.Open()
|
|
conn.Close()
|
|
conn.Dispose()
|
|
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & vbNewLine & vbNewLine & connectionString, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau ODBC:")
|
|
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
|
|
|
|
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
|
|
If RadioButton2.Checked Then
|
|
txtWindreamSuche.ReadOnly = False
|
|
btnWindreamSuche.Visible = False
|
|
Else
|
|
txtWindreamSuche.ReadOnly = True
|
|
btnWindreamSuche.Visible = False
|
|
End If
|
|
End Sub
|
|
End Class |