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

TSSittzungen

Browse Source
This commit is contained in:
ms
2019-10-25 11:48:37 +02:00
parent ce28d0bcce
commit 2197c92cba
35 changed files with 1397 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Dokumentation/Classes/cFirewallEntry.vb
View File

@@ -46,7 +46,7 @@ Public Class cFirewallEntry
From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
ORDER BY [fwr_in]"
SQL.SQL2DS(selector, ds)
cSQL.SQL2DS(selector, ds)
End Function
@@ -86,13 +86,13 @@ ORDER BY [fwr_in]"
Public Function insertFirewallEntry(ByRef entry As cFirewallEntry)
Dim insert As String
getInsertCmd(insert)
SQL.InsertSQL("TbL_FirewallRules", insert)
cSQL.InsertSQL("TbL_FirewallRules", insert)
End Function
Public Function updateFirewallEntry(ByRef entry As cFirewallEntry)
Dim update, where As String
getUpdateCmd(update, where)
SQL.UpdateSQL("TbL_FirewallRules", update, where)
cSQL.UpdateSQL("TbL_FirewallRules", update, where)
'MsgBox(update & where)
End Function