edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

VeragAddIn: bei Verbindungsfehler wird AddIn beendet (nur AddIn!)

Browse Source
This commit is contained in:
d.breimaier
2022-11-07 16:34:50 +01:00
parent cae73e2932
commit aec0f2a4b7
1 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
VERAGAddIn/ThisAddIn.vb
View File

@@ -179,19 +179,16 @@ Public Class ThisAddIn
Private Sub checkConnection() Private Sub checkConnection()
Dim con = New VERAG_PROG_ALLGEMEIN.SQL Dim con = New VERAG_PROG_ALLGEMEIN.SQL
If con.getValueTxtBySql("SELECT 1", "FMZOLL") <> 1 Then
MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet")
End If
For Each COMAddIn As COMAddIn In Me.Application.COMAddIns For Each COMAddIn As COMAddIn In Me.Application.COMAddIns
' If (COMAddIn.ProgId.Contains("< ADDIN_PROG_ID >")) Then If COMAddIn.ProgId.Contains("VERAGAddIn") Then
If con.getValueTxtBySql("SELECT 1", "FMZOLL") <> 1 Then
' COMAddIn.Connect = False MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet")
' Exit COMAddIn.Connect = False
End If
End If
Next Next