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

test

Browse Source
This commit is contained in:
d.breimaier
2022-11-07 16:26:27 +01:00
parent 566de3a883
commit 4ec29d0288
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAGAddIn/ThisAddIn.vb
View File

@@ -177,16 +177,23 @@ Public Class ThisAddIn
End Sub End Sub
Public 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 If con.getValueTxtBySql("SELECT 1", "FMZOLL") <> 1 Then
MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet") MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet")
Application.Quit()
End If End If
'For Each COMAddIn As COMAddIn In Me.Application.COMAddIns
' If (COMAddIn.ProgId.Contains("< ADDIN_PROG_ID >")) Then
' COMAddIn.Connect = False
' Exit
Next