AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Emailtemplate

Browse Source
This commit is contained in:
SchreiberM
2019-11-21 16:30:21 +01:00
parent 65f0763208
commit 7e541a8013
30 changed files with 3539 additions and 1075 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@@ -9,7 +9,7 @@ Public Class ClassDatabase
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
If DTConnection.Rows.Count = 1 Then
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER")
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
Case "MS-SQL"
If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then
connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"