jj: Revert ChoiceList Method, Add WMCC Start Check, Only use a single instance of ClassPMWindream in Application
This commit is contained in:
@@ -3,7 +3,7 @@ Imports Oracle.ManagedDataAccess.Client
|
||||
Imports DD_LIB_Standards
|
||||
|
||||
Public Class frmSQL_DESIGNER
|
||||
Private _windreamPM As ClassPMWindream
|
||||
'Private _windreamPM As ClassPMWindream
|
||||
|
||||
Dim CurrentPosition As Integer = 0
|
||||
Dim CurrentPlaceholders As New Placeholders()
|
||||
@@ -54,14 +54,14 @@ Public Class frmSQL_DESIGNER
|
||||
|
||||
Try
|
||||
' Windream instanziieren
|
||||
_windreamPM = New ClassPMWindream()
|
||||
'_windreamPM = New ClassPMWindream()
|
||||
'Windream initialisieren (Connection, Session, ... aufbauen)
|
||||
_windreamPM.Create_Session()
|
||||
'_windreamPM.Create_Session()
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
|
||||
End Try
|
||||
cmbIndexe.Items.Clear()
|
||||
Dim indexe = _windreamPM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
|
||||
Dim indexe = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
|
||||
If indexe IsNot Nothing Then
|
||||
For Each index As String In indexe
|
||||
Me.cmbIndexe.Items.Add(index)
|
||||
|
||||
Reference in New Issue
Block a user