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

SQL Abfragen angepasst

Browse Source
This commit is contained in:
ms
2018-11-23 09:28:55 +01:00
parent 03caa3c3e7
commit 5fd4447edb
1 changed files with 103 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

174
Dokumentation/Main.vb
View File

@@ -29,11 +29,15 @@ Public Class Main
Private Version As String = My.Resources.Version Private Version As String = My.Resources.Version
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.KeyPreview = True Me.KeyPreview = True
If sAppPath = "C:\Users\miesenbeck\Documents\Visual Studio 2017\Sebastian Spielwiese\Dokumentation\Dokumentation\bin\Debug" Then If sAppPath = "C:\Users\miesenbeck\Documents\Visual Studio 2017\Sebastian Spielwiese\Dokumentation\Dokumentation\bin\Debug" Or sAppPath = "C:\Users\miesenbeck\source\repos\Doku\Dokumentation\bin\Debug" Then
Debug = True Debug = True
LblDEBUGMODE.Visible = True LblDEBUGMODE.Visible = True
LblDEBUGMODE.ForeColor = Color.Red LblDEBUGMODE.ForeColor = Color.Red
@@ -363,60 +367,68 @@ Public Class Main
Suchparameter &= " and FQDN is not NUll" Suchparameter &= " and FQDN is not NUll"
End If End If
'''ABFRAGE DEFINIEREN'''
'''
'Dim SelSQL4DGV As String = "*"
Dim SelSQL4DGV As String = "FQDN, IPAdresse, Modell, Standort, Type, Seriennummer, QINFO, Info, DHCP, Host"
If ChKZugangsdaten.Checked Then
SelSQL4DGV &= ", Benutzer, Passwort"
End If
'''ABFRAGE RADIOBUTTONS + SUCHPARAMETER''' '''ABFRAGE RADIOBUTTONS + SUCHPARAMETER'''
If RadGlobal.Checked Then If RadGlobal.Checked Then
Dim dataadapter As New SqlDataAdapter("select * from TbL_Netzwerkclients where " & Suchparameter & " order by host", con) Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", con)
con.Open() con.Open()
dataadapter.Fill(ds) dataadapter.Fill(ds)
ElseIf RadNurNetzwerk.Checked Then ElseIf RadNurNetzwerk.Checked Then
Dim dataadapter As New SqlDataAdapter("select * from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", con) Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", con)
con.Open() con.Open()
dataadapter.Fill(ds) dataadapter.Fill(ds)
ElseIf RadStandort.Checked Then ElseIf RadStandort.Checked Then
Dim dataadapter As New SqlDataAdapter("select * from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", con) Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", con)
con.Open() con.Open()
dataadapter.Fill(ds) dataadapter.Fill(ds)
ElseIf suchbegriff = "" Then ElseIf suchbegriff = "" Then
Dim dataadapter As New SqlDataAdapter("select * from TbL_Netzwerkclients order by host", con) Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", con)
con.Open() con.Open()
dataadapter.Fill(ds) dataadapter.Fill(ds)
End If
con.Close()
Try
endtime = DateTime.Now
LblDebugInfo.Text = "dgvload: " & ((endtime - starttime).Milliseconds) & vbCrLf
''--------------------------------------------------------------------------------------------------------/START// Abfrage DHCP Clients
con.Open()
cmd.CommandText = "SELECT DHCPAbfragen FROM Tbl_Netzwerke WHERE NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "'"
reader = cmd.ExecuteReader()
Do While reader.Read()
DHCPAbfragen = Class1.ReadNullAs0(reader, "DHCPAbfragen")
Loop
reader.Close()
If DHCPAbfragen = True Then
If ChkDHCPClients.Checked = True Then
Dim NWAdresse As String
Class1.Name2Netzwerk(Standort, Netzwerk, NWAdresse)
Dim DHCPServer As String = Class1.GetDHCPServer(NWAdresse)
GetDHCPClients(NWAdresse, DHCPServer, ChkFreieHosts.Checked, ds)
Else
End If
End If End If
con.Close()
''--------------------------------------------------------------------------------------------------------/Ende// Abfrage DHCP Clients Try
dgvfill(ds, "Netzwerk") endtime = DateTime.Now
Dim endtimedgvfill As Date = Date.Now LblDebugInfo.Text = "dgvload: " & ((endtime - starttime).Milliseconds) & vbCrLf
LblDebugInfo.Text &= "dgvfill: " & ((endtimedgvfill - starttime).Milliseconds) & vbCrLf ''--------------------------------------------------------------------------------------------------------/START// Abfrage DHCP Clients
Catch ex As Exception con.Open()
MsgBox("dgvload_filter(): " & ex.Message) cmd.CommandText = "SELECT DHCPAbfragen FROM Tbl_Netzwerke WHERE NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "'"
End Try reader = cmd.ExecuteReader()
Do While reader.Read()
DHCPAbfragen = Class1.ReadNullAs0(reader, "DHCPAbfragen")
Loop
reader.Close()
If DHCPAbfragen = True Then
If ChkDHCPClients.Checked = True Then
Dim NWAdresse As String
Class1.Name2Netzwerk(Standort, Netzwerk, NWAdresse)
Dim DHCPServer As String = Class1.GetDHCPServer(NWAdresse)
GetDHCPClients(NWAdresse, DHCPServer, ChkFreieHosts.Checked, ds)
Else
End If
End If
con.Close() ''--------------------------------------------------------------------------------------------------------/Ende// Abfrage DHCP Clients
NetzwerkInfoAnzeige() dgvfill(ds, "Netzwerk")
Else Dim endtimedgvfill As Date = Date.Now
Suchparameter = "(TITEL LIKE'" & suchbegriff & "'OR INFO LIKE'" & suchbegriff & "'OR LINK LIKE'" & suchbegriff & "')" LblDebugInfo.Text &= "dgvfill: " & ((endtimedgvfill - starttime).Milliseconds) & vbCrLf
Catch ex As Exception
MsgBox("dgvload_filter(): " & ex.Message)
End Try
con.Close()
NetzwerkInfoAnzeige()
Else
Suchparameter = "(TITEL LIKE'" & suchbegriff & "'OR INFO LIKE'" & suchbegriff & "'OR LINK LIKE'" & suchbegriff & "')"
Dim dataadapter As New SqlDataAdapter("select * from TbL_Allgemein where " & Suchparameter & "", con) Dim dataadapter As New SqlDataAdapter("select * from TbL_Allgemein where " & Suchparameter & "", con)
con.Open() con.Open()
dataadapter.Fill(ds) dataadapter.Fill(ds)
@@ -467,30 +479,30 @@ Public Class Main
.Columns("QINFO").HeaderText = "Quick-Info" .Columns("QINFO").HeaderText = "Quick-Info"
.Columns("NWSTANDORT").DisplayIndex = 8 ' .Columns("NWSTANDORT").DisplayIndex = 8
If ChKZugangsdaten.Checked = False Then 'If ChKZugangsdaten.Checked = False Then
.Columns("Benutzer").Visible = False ' .Columns("Benutzer").Visible = False
.Columns("Passwort").Visible = False ' .Columns("Passwort").Visible = False
ElseIf ChKZugangsdaten.Checked = True Then 'ElseIf ChKZugangsdaten.Checked = True Then
.Columns("Benutzer").Visible = True ' .Columns("Benutzer").Visible = True
.Columns("Benutzer").DisplayIndex = 6 ' .Columns("Benutzer").DisplayIndex = 6
.Columns("Passwort").Visible = True ' .Columns("Passwort").Visible = True
.Columns("Passwort").DisplayIndex = 7 ' .Columns("Passwort").DisplayIndex = 7
End If 'End If
.Columns("NETNAME").Visible = False '' .Columns("NETNAME").Visible = False
.Columns("Netzwerk").Visible = False '.Columns("Netzwerk").Visible = False
.Columns("DHCP").Visible = False .Columns("DHCP").Visible = False
.Columns("MAC").Visible = False '.Columns("MAC").Visible = False
.Columns("LINK").Visible = False '.Columns("LINK").Visible = False
.Columns("Linked").Visible = False '.Columns("Linked").Visible = False
.Columns("Linked").DisplayIndex = 9 '.Columns("Linked").DisplayIndex = 9
.Columns("LinkedWith").Visible = False '.Columns("LinkedWith").Visible = False
.Columns("AddIp").Visible = False '' .Columns("AddIp").Visible = False
.Columns("HOST").Visible = False .Columns("HOST").Visible = False
.Columns("NWSTANDORT").Visible = False '' .Columns("NWSTANDORT").Visible = False
.Columns("Info").Width = 250 '.Columns("Info").Width = 250
'.Sort(DgVMain.Columns("Host"), System.ComponentModel.ListSortDirection.Ascending) '.Sort(DgVMain.Columns("Host"), System.ComponentModel.ListSortDirection.Ascending)
End With End With
@@ -643,6 +655,8 @@ Public Class Main
Private Sub CmdNetzwerkbearbeiten_Click(sender As Object, e As EventArgs) Handles CmdNetzwerkbearbeiten.Click Private Sub CmdNetzwerkbearbeiten_Click(sender As Object, e As EventArgs) Handles CmdNetzwerkbearbeiten.Click
werbinich() werbinich()
Class1.Absender = "Main" Class1.Absender = "Main"
NWEdit.StartPosition = FormStartPosition.Manual
NWEdit.Location = New Point(Location.X + 300, Location.Y + 300)
'NetzwerkBearbeiten.Show() 'NetzwerkBearbeiten.Show()
NWEdit.Show() NWEdit.Show()
End Sub End Sub
@@ -677,6 +691,12 @@ Public Class Main
End Sub End Sub
Public Function StartHostBearbeiten() Public Function StartHostBearbeiten()
HostBearbeiten.StartPosition = FormStartPosition.Manual
HostBearbeiten.Location = New Point(Location.X + 150, Location.Y + 150)
EintragBearbeiten.StartPosition = FormStartPosition.Manual
EintragBearbeiten.Location = New Point(Location.X + 150, Location.Y + 150)
If Tabelle = "TbL_Netzwerkclients" Then If Tabelle = "TbL_Netzwerkclients" Then
If LstStandort.SelectedItem = "" Then If LstStandort.SelectedItem = "" Then
@@ -688,9 +708,21 @@ Public Class Main
Exit Function Exit Function
End If End If
Class1.Absender = "Main" Class1.Absender = "Main"
HostBearbeiten.Show() If HostBearbeiten.Visible Then
MsgBox("Fenster ist bereits geöffnet.")
HostBearbeiten.BringToFront()
Else
HostBearbeiten.Show()
End If
ElseIf Tabelle = "TbL_Allgemein" Then ElseIf Tabelle = "TbL_Allgemein" Then
EintragBearbeiten.Show() If EintragBearbeiten.Visible Then
MsgBox("Fenster ist bereits geöffnet.")
EintragBearbeiten.BringToFront()
Else
EintragBearbeiten.Show()
End If
End If End If
End Function End Function