247 lines
12 KiB
VB.net
247 lines
12 KiB
VB.net
Imports Oracle.ManagedDataAccess.Client
|
|
Public Class frmConnection
|
|
Dim formloaded As Boolean = False
|
|
Private Sub cmbDbArt_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDbArt.SelectedIndexChanged
|
|
If Me.cmbDbArt.SelectedIndex <> -1 And formloaded = True Then
|
|
Chckwin_aut.Visible = False
|
|
chkOR_ohne_TNS.Visible = False
|
|
Select Case Me.cmbDbArt.SelectedItem
|
|
Case "MS-SQL"
|
|
Me.txtDatasource1.Visible = True
|
|
Me.txtUserId.Visible = True
|
|
Me.txtPassword.Visible = True
|
|
Me.lblDataSource.Text = "SQL-Server (IP oder Name):"
|
|
|
|
Me.lblDataSource.Visible = True
|
|
Me.txtDatasource1.ReadOnly = False
|
|
Me.txtDatasource1.Text = ""
|
|
Me.btnMdbLocation.Visible = False
|
|
Me.btnMdbLöschen.Visible = False
|
|
Me.lblUserId.Visible = True
|
|
Me.lblUserId.Text = "UserId:"
|
|
Me.lblPassword.Visible = True
|
|
Me.lblPassword.Text = "Passwort:"
|
|
Me.lblDatasource2.Visible = True
|
|
Me.lblDatasource2.Text = "Datenbank:"
|
|
Me.txtDatasource2.Visible = True
|
|
Chckwin_aut.Visible = True
|
|
Me.btnCheck_Con.Visible = True
|
|
|
|
Case "ORACLE"
|
|
Me.txtDatasource1.Visible = True
|
|
Me.txtUserId.Visible = True
|
|
Me.txtPassword.Visible = True
|
|
Me.lblDataSource.Text = "Host (IP-Adresse):"
|
|
Me.txtDatasource1.ReadOnly = False
|
|
Me.txtDatasource1.BackColor = System.Drawing.SystemColors.Window
|
|
Me.txtDatasource1.Text = ""
|
|
Me.btnMdbLocation.Visible = False
|
|
Me.btnMdbLöschen.Visible = False
|
|
Me.lblUserId.Text = "UserId:"
|
|
Me.lblPassword.Text = "Passwort:"
|
|
Me.lblDatasource2.Text = "SID:"
|
|
Me.lblDatasource2.Visible = True
|
|
Me.txtDatasource2.Visible = True
|
|
chkOR_ohne_TNS.Visible = True
|
|
Me.btnCheck_Con.Visible = True
|
|
MsgBox("Bitte beachten Sie das Auswahllisten aktuell nur mit MS-SQl möglich sind", MsgBoxStyle.Information)
|
|
Case "ODBC"
|
|
Me.lblDataSource.Text = "DSN*:"
|
|
Me.txtDatasource1.ReadOnly = False
|
|
Me.txtDataSource1.BackColor = System.Drawing.SystemColors.Window
|
|
Me.txtDataSource1.Text = ""
|
|
Me.btnMdbLocation.Visible = False
|
|
Me.btnMdbLöschen.Visible = False
|
|
Me.lblUserId.Text = "UserId:"
|
|
Me.lblPassword.Text = "Passwort:"
|
|
Me.lblDatasource2.Visible = False
|
|
Me.txtDatasource2.Visible = False
|
|
MsgBox("Bitte beachten Sie das Auswahllisten aktuell nur mit MS-SQl möglich sind", MsgBoxStyle.Information)
|
|
Case "Ole (Access)"
|
|
Me.lblDataSource.Text = ".mdb Datei*:"
|
|
Me.txtDatasource1.ReadOnly = True
|
|
Me.txtDatasource1.BackColor = System.Drawing.SystemColors.Info
|
|
Me.txtDatasource1.Text = ""
|
|
Me.btnMdbLocation.Visible = True
|
|
Me.btnMdbLöschen.Visible = True
|
|
Me.lblUserId.Text = "UserId:"
|
|
Me.lblPassword.Text = "Passwort:"
|
|
Me.lblDatasource2.Visible = False
|
|
Me.txtDatasource2.Visible = False
|
|
|
|
|
|
End Select
|
|
Else
|
|
Me.txtDatasource1.Visible = False
|
|
Me.txtUserId.Visible = False
|
|
Me.txtPassword.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub btnCheck_Con_Click(sender As System.Object, e As System.EventArgs) Handles btnCheck_Con.Click
|
|
Try
|
|
If Me.cmbDbArt.SelectedIndex <> -1 Then
|
|
Dim connstr As String
|
|
Select Case Me.cmbDbArt.SelectedItem
|
|
Case "MS-SQL"
|
|
Dim con As String
|
|
If Chckwin_aut.Checked Then
|
|
con = "Data Source=" & Me.txtDataSource1.Text & ";Initial Catalog=" & Me.txtDatasource2.Text & ";Trusted_Connection=True;"
|
|
Else
|
|
con = "Server=" & Me.txtDataSource1.Text & ";Database=" & Me.txtDatasource2.Text & ";User Id=" & Me.txtUserId.Text & ";Password=" & Me.txtPassword.Text & ";"
|
|
End If
|
|
Dim connection As New SqlClient.SqlConnection(con)
|
|
connstr = con
|
|
connection.Open()
|
|
Cursor = Cursors.Default
|
|
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
|
|
My.Settings.Save()
|
|
Case "ORACLE"
|
|
Try
|
|
Dim conn As New OracleConnectionStringBuilder
|
|
If chkOR_ohne_TNS.Checked Then
|
|
connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & txtDatasource1.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
|
|
txtDatasource2.Text & ")));User Id=" & txtUserId.Text & ";Password=" & txtPassword.Text & ";"
|
|
Else
|
|
conn.DataSource = txtDatasource2.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:")
|
|
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
|
|
Me.TBPM_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONNECTION)
|
|
End If
|
|
Catch ex As Exception
|
|
Cursor = Cursors.Default
|
|
Dim template As String = ex.Message
|
|
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TBPM_CONNECTIONBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles TBPM_CONNECTIONBindingNavigatorSaveItem.Click
|
|
Try
|
|
Me.TBPM_CONNECTIONBindingSource.EndEdit()
|
|
If DD_DMSLiteDataSet.TBPM_CONNECTION.GetChanges Is Nothing = False Then
|
|
Me.GEANDERTWERTextBox.Text = Environment.UserName
|
|
Me.TBPM_CONNECTIONBindingSource.EndEdit()
|
|
Me.TBPM_CONNECTIONTableAdapter.Update(DD_DMSLiteDataSet.TBPM_CONNECTION)
|
|
MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler beim Speichern: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub frmConnection_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
Try
|
|
Me.TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
|
|
load_connections()
|
|
Catch ex As Exception
|
|
MsgBox("Fehler bei Laden der Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
Sub load_connections()
|
|
Try
|
|
Me.TBPM_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONNECTION)
|
|
TBPM_CONNECTIONDataGridView.AutoResizeColumns()
|
|
Catch ex As Exception
|
|
MsgBox("Fehler bei Connections laden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
Private Sub Chckwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles Chckwin_aut.CheckedChanged
|
|
If Chckwin_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 frmConnection_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
formloaded = True
|
|
End Sub
|
|
|
|
Private Sub TBPM_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPM_CONNECTIONBindingSource.AddingNew
|
|
DD_DMSLiteDataSet.TBPM_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName
|
|
End Sub
|
|
|
|
Private Sub TBPM_CONNECTIONBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBPM_CONNECTIONBindingSource.PositionChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub chkOR_ohne_TNS_CheckedChanged(sender As Object, e As EventArgs) Handles chkOR_ohne_TNS.CheckedChanged
|
|
If chkOR_ohne_TNS.Checked Then
|
|
Me.lblDatasource2.Visible = True
|
|
Me.txtDatasource2.Visible = True
|
|
Else
|
|
Me.lblDatasource2.Visible = False
|
|
Me.txtDatasource2.Visible = False
|
|
Me.txtDatasource2.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
|
TBPM_CONNECTIONBindingSource.AddNew()
|
|
Me.grpbx_ConnAdd.Visible = True
|
|
End Sub
|
|
|
|
Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click
|
|
Try
|
|
Select Case cmbDbArt.Text
|
|
Case "ORACLE"
|
|
Case "MS-SQL"
|
|
If Me.txtUserId.Text = "WINAUTH" Then
|
|
TBPM_CONNECTIONTableAdapter.CmdInsert(txtBezeichnung.Text, cmbDbArt.Text, txtDatasource1.Text, txtDatasource2.Text, "WINAUTH", "", "", True, Environment.UserName)
|
|
Else
|
|
TBPM_CONNECTIONTableAdapter.CmdInsert(txtBezeichnung.Text, cmbDbArt.Text, txtDatasource1.Text, txtDatasource2.Text, txtUserId.Text, txtPassword.Text, "", True, Environment.UserName)
|
|
End If
|
|
|
|
End Select
|
|
Catch ex As Exception
|
|
MsgBox("Fehler bei Insert Connection: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
|
|
load_connections()
|
|
End Sub
|
|
|
|
Private Sub TBPM_CONNECTIONDataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles TBPM_CONNECTIONDataGridView.SelectionChanged
|
|
grpbx_ConnAdd.Visible = False
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
|
Try
|
|
Dim i, ID As Integer
|
|
i = TBPM_CONNECTIONDataGridView.CurrentRow.Index
|
|
ID = TBPM_CONNECTIONDataGridView.Item(0, i).Value
|
|
If ID > 0 Then
|
|
Dim result As MsgBoxResult = MsgBox("Wollen Sie die Connection wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
|
|
' wenn Löschen ja
|
|
If result = MsgBoxResult.Yes Then
|
|
TBPM_CONNECTIONTableAdapter.Delete(ID)
|
|
load_connections()
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler bei Löschen Connection: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
End Class |