MSBuildProblem_PM
This commit is contained in:
Digital Data - Marlon Schreiber
247
DD_PM_WINDREAM/frmConnection.vb
Normal file
247
DD_PM_WINDREAM/frmConnection.vb
Normal file
@@ -0,0 +1,247 @@
|
||||
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
|
||||
Reference in New Issue
Block a user