AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_13022016

Browse Source
This commit is contained in:
SchreiberM
2016-02-15 13:03:32 +01:00
parent 85d4120c50
commit 8016ae977e
10 changed files with 1479 additions and 1073 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
app/DD-Record-Organiser/frmConnections.vb
View File

@@ -1,4 +1,5 @@
Imports Oracle.ManagedDataAccess.Client
Imports System.Data.Odbc
Public Class frmConnections
@@ -49,7 +50,7 @@ Public Class frmConnections
Case "MS-SQLServer"
cmbDatabase.Items.Clear()
' DATABASETextBox.Visible = False
Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
Me.lblServer.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
Me.lblInitialCatalog.Text = "Datenbank-Name:"
Me.SERVERTextBox.ReadOnly = False
Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window
@@ -65,27 +66,49 @@ Public Class frmConnections
Case "Oracle"
' DATABASETextBox.Visible = True
Me.cmbDatabase.Visible = False
Me.lblDataSource.Text = "IP Oracle-Server:"
Me.lblServer.Text = "IP Oracle-Server:"
Me.lblInitialCatalog.Visible = True
Me.lblInitialCatalog.Text = "Servicename:"
Me.SERVERTextBox.ReadOnly = False
Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window
Me.SERVERTextBox.Text = ""
Me.lblUserId.Text = "UserId:"
Me.lblPassword.Text = "Passwort:"
Me.lblInitialCatalog.Visible = True
'Me.DATENBANKTextBox.Visible = True
chkOR_ohne_TNS.Visible = True
End Select
Case "ODBC (SAP - MAXDB)"
Me.lblServer.Text = "Servername:"
Me.lblInitialCatalog.Text = "Databasename:"
Me.lblInitialCatalog.Visible = True
Me.cmbDatabase.Visible = False
Me.lblDataSource.Visible = True
Me.SERVERTextBox.ReadOnly = False
Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window
Me.SERVERTextBox.Text = ""
Me.lblUserId.Text = "Username:"
Me.lblPassword.Text = "Password:"
Case "ODBC"
Me.lblServer.Text = "DSN Name:"
Me.lblInitialCatalog.Visible = False
Me.cmbDatabase.Visible = False
Me.DATABASETextBox.Visible = False
Me.SERVERTextBox.Visible = False
Me.lblUserId.Text = "Username:"
Me.lblPassword.Text = "Password:"
End Select
If Me.SQL_PROVIDERComboBox.SelectedItem <> "ODBC" Then
End If
Me.SERVERTextBox.Visible = True
Me.lblServer.Visible = True
Me.lblUserId.Visible = True
Me.lblPassword.Visible = True
Me.SERVERTextBox.Visible = True
Me.USERNAMETextBox.Visible = True
Me.PASSWORDTextBox.Visible = True
Else
Me.lblDataSource.Visible = False
Me.lblServer.Visible = False
Me.lblUserId.Visible = False
Me.lblPassword.Visible = False
Me.SERVERTextBox.Visible = False
@@ -166,7 +189,29 @@ Public Class frmConnections
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:")
End Try
Case "ODBC (SAP - MAXDB)"
Dim Connstring
Try
Dim conn As New OdbcConnection("driver=sap db;servernode=" & SERVERTextBox.Text & ";serverdb=" + DATABASETextBox.Text & _
";uid=" & USERNAMETextBox.Text & ";pwd=" + PASSWORDTextBox.Text)
Connstring = conn.ConnectionString
conn.Open()
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
conn.Close()
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & vbNewLine & Connstring, MsgBoxStyle.Critical, "Error in Create Conenction SAPMAX DB:")
End Try
Case "ODBC"
Dim Connstring
Try
Dim conn As New OdbcConnection("dsn=" & SERVERTextBox.Text & ";uid=" & USERNAMETextBox.Text & ";pwd=" + PASSWORDTextBox.Text)
Connstring = conn.ConnectionString
conn.Open()
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
conn.Close()
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & vbNewLine & Connstring, MsgBoxStyle.Critical, "Error in Create Conenction ODBC:")
End Try
Case Else
MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:")
End Select
@@ -231,11 +276,6 @@ Public Class frmConnections
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs)
Me.DD_ECMAdmin.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName
Me.DD_ECMAdmin.TBDD_CONNECTION.ERSTELLTWANNColumn.DefaultValue = Date.Now
End Sub
Private Sub BEMERKUNGTextBox_TextChanged(sender As Object, e As EventArgs) Handles BEMERKUNGTextBox.TextChanged
If BEMERKUNGTextBox.Text.Contains("without tnsnames") Then
Me.chkOR_ohne_TNS.Checked = True
@@ -244,9 +284,14 @@ Public Class frmConnections
End If
End Sub
Private Sub TBDD_CONNECTIONBindingSource_AddingNew1(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew
Me.DD_ECMAdmin.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName
Me.DD_ECMAdmin.TBDD_CONNECTION.ERSTELLTWANNColumn.DefaultValue = Date.Now
End Sub
Private Sub TBDD_CONNECTIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.CurrentChanged
Me.lblSave.Visible = False
Select Me.SQL_PROVIDERComboBox.SelectedItem
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
cmbDatabase.Items.Clear()
cmbDatabase.Items.Add(DATABASETextBox.Text)