AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: AppCustom:884b7790577ba6d8186573411f1b995577ed914c
Branches Tags
AppCustom:master
...
compare: AppCustom:3b655e6a9e8ec71d8454152dc44295ef766580fc
Branches Tags
AppCustom:master

3 Commits
884b779057 ... 3b655e6a9e

Author SHA1 Message Date
Jonathan Jenne
3b655e6a9e Version 2.2.0.10 2021-12-10 10:39:49 +01:00
Jonathan Jenne
99b5944f85 Fix missing connection string on table adapter 2021-12-10 10:39:35 +01:00
Jonathan Jenne
f0612df969 remove hardcoded connection strings 2021-12-09 11:00:04 +01:00
4 changed files with 5 additions and 14 deletions
Show Stats Expand all files Collapse all files

6
SchaumKommiCollo/KommiCollo/My Project/AssemblyInfo.vb
View File

@ -11,8 +11,8 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyTitle("KommiCollo")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("KommiCollo")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2013")>
<Assembly: AssemblyProduct("KommiCollo")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2021")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.0.8")>
<Assembly: AssemblyVersion("2.2.0.10")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

6
SchaumKommiCollo/KommiCollo/frmAbschluss.vb
View File

@ -4,12 +4,6 @@
Private Sub frmAbschluss_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Try
If (System.Diagnostics.Debugger.IsAttached) = False Then
My.Settings.ConfigConnectionString = "Data Source=192.168.13.101;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd"
My.Settings.ConfigConnStringMercator = "Data Source=192.168.13.101;Initial Catalog=CP2DD;Persist Security Info=True;User ID=sa;Password=dd"
My.Settings.Save()
End If
Me.VWAbschlussTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString

5
SchaumKommiCollo/KommiCollo/frmMain.vb
View File

@ -31,11 +31,6 @@ Public Class frmMain
Application.Exit()
End If
Try
'If (System.Diagnostics.Debugger.IsAttached) = False Then
My.Settings.ConfigConnectionString = "Data Source=192.168.13.101;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd"
My.Settings.ConfigConnStringMercator = "Data Source=192.168.13.101;Initial Catalog=CP2DD;Persist Security Info=True;User ID=sa;Password=dd"
My.Settings.Save()
' End If
tslblConString.Text = "Constrings: " & My.Settings.ConfigConnectionString.Replace("=sa;Password=dd", "XXX") & " # " & My.Settings.ConfigConnStringMercator.Replace("=sa;Password=dd", "XXX")
Me.TBWH_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString

2
SchaumKommiCollo/KommiCollo/frmStammdatenverwaltung.vb
View File

@ -32,6 +32,8 @@ Public Class frmStammdatenverwaltung
Try
Me.TBKOMMCOLLI_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBWH_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_TERMINARTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Catch ex As Exception
MsgBox("Fehler bei Load ConnectionString: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
Exit Sub