MS Emailtemplate
This commit is contained in:
@@ -31,8 +31,10 @@
|
||||
LOGCONFIG.Debug = True
|
||||
ElseIf oMode = "PM.IDBWITHWMFS" Then
|
||||
IDB_USES_WMFILESTORE = True
|
||||
ElseIf oMode.StartsWith("PM.IDBCS!") Then
|
||||
CONNECTION_STRING_IDB = oMode.Replace("PM.IDBCS!", "")
|
||||
ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
|
||||
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
|
||||
Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
|
||||
CONNECTION_STRING_IDB = oConString
|
||||
Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
|
||||
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
|
||||
If Not IsNothing(oDT) Then
|
||||
|
||||
Reference in New Issue
Block a user