MoveRename
This commit is contained in:
Digital Data - Marlon Schreiber
@@ -1,4 +1,5 @@
|
||||
Imports Oracle.ManagedDataAccess.Client
|
||||
Imports System.Data.Odbc
|
||||
Imports Oracle.ManagedDataAccess.Client
|
||||
Public Class frmNIProfilhinzufuegen
|
||||
Private _oDokumentTypen As WINDREAMLib.WMObjects
|
||||
Public Shared _windream As ClassWindream_allgemein
|
||||
@@ -39,7 +40,7 @@ Public Class frmNIProfilhinzufuegen
|
||||
|
||||
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 _
|
||||
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
|
||||
@@ -86,8 +87,8 @@ Public Class frmNIProfilhinzufuegen
|
||||
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 & "'" & _
|
||||
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
|
||||
|
||||
@@ -97,7 +98,7 @@ Public Class frmNIProfilhinzufuegen
|
||||
End If
|
||||
ElseIf rbDatei.Checked = True Then
|
||||
' Nachindexierung über Dateien
|
||||
If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" And _
|
||||
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
|
||||
@@ -122,8 +123,8 @@ Public Class frmNIProfilhinzufuegen
|
||||
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 & "'" & _
|
||||
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
|
||||
@@ -174,7 +175,7 @@ Public Class frmNIProfilhinzufuegen
|
||||
Else
|
||||
If chkbxGetOrdnerRechte.Checked Then
|
||||
If Not ClassNIProfile.Exists(Me.txtProfilname.Text) Then
|
||||
ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, _
|
||||
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()
|
||||
@@ -340,7 +341,7 @@ Public Class frmNIProfilhinzufuegen
|
||||
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=" & _
|
||||
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
|
||||
@@ -360,9 +361,24 @@ Public Class frmNIProfilhinzufuegen
|
||||
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:")
|
||||
MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:")
|
||||
End Select
|
||||
End If
|
||||
|
||||
@@ -559,7 +575,7 @@ Public Class frmNIProfilhinzufuegen
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user