nach Ping vorhandene Namen in DGV füllen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von tuvok.

    nach Ping vorhandene Namen in DGV füllen

    Hallo,
    ich will mir ne Art Verknüpfungsverwaltung bauen .. und möchte das in nem DGV nur die PCs angezeigt werden die auch Online sind.
    Alle PCNamen stehen in einer Datenbank die ausgelesen wird.

    Jetzt habe ich versucht, mit nem Backgroundworker das hinzubekommen.. aber ich verstehe den Fehler nicht wirklich oder ich verstehe den Sinn nicht so ganz..
    Wäre schön, wenn Ihr mir helfen könntet..

    VB.NET-Quellcode

    1. Private Sub VerkVerwaltung_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
    2. BackgroundWorker1.RunWorkerAsync()
    3. End Sub
    5. Dim übergabe1 As List(Of String) = New List(Of String)
    6. Dim übergabe2 As List(Of String) = New List(Of String)
    7. Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    8. Dim PingPC() As String
    9. Dim PCBeschreib() As String
    10. cmd.CommandText = "select * from tbl_pcinfo Where NichtAnzeigen = '" & 0 & "' order by PCName"
    13. Try
    14. con.Open() 'Verbindung zur db öffnen
    15. reader = cmd.ExecuteReader()
    16. Dim zahl As Integer = 0
    17. Do While reader.Read()
    19. PingPC(zahl) = reader("PCName")
    20. PCBeschreib(zahl) = reader("PCBeschreibung")
    21. zahl = zahl + 1
    22. Loop
    23. reader.Close()
    24. con.Close()
    25. Catch ex As Exception
    26. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    27. End Try
    29. For i As Integer = 0 To PingPC.Length - 1
    30. If My.Computer.Network.Ping(PingPC(i)) = True Then
    31. übergabe1.Add(PingPC(i))
    32. übergabe1.Add(PCBeschreib(i))
    33. End If
    34. Next
    35. End Sub
    37. Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    38. DataGridView1.Rows.Clear()
    39. DataGridView1.RowHeadersVisible = False 'markier Button ausblenden
    40. For Each _ZEILE As Integer In übergabe1
    41. DataGridView1.Rows.Add(_ZEILE, übergabe2.Item(_ZEILE))
    42. Next
    43. End Sub


    Bei Zeile 29 macht er nen Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt. NullReferenceExeption

    PingPc ist ein Array.

    Da ein Array nicht dynamisch erweiterbar ist, ist es notwendig eine Arraygrenze oder Initialisierung anzugeben.
    Du legst aber gar nichts fest, sondern deklarierst lediglich das Array (Z. 8).
    Somit bleibt das Array leer.

    Benutze einfach eine List(Of String).
    Referenz: msdn.microsoft.com/en-us/library/6sh2ey19.aspx

    Liebe Grüße
    /nicht getestet

    m mit dem thema Arrays das is glaub net so mein Fall :)..

    VB.NET-Quellcode

    1. Private Sub VerkVerwaltung_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
    2. BackgroundWorker1.RunWorkerAsync()
    3. End Sub
    5. Dim übergabe1 As List(Of String) = New List(Of String)
    6. Dim übergabe2 As List(Of String) = New List(Of String)
    7. Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    8. Try
    9. Catch ex As Exception
    10. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    11. End Try
    13. Dim PingPC As String()
    14. Dim PCBeschreib() As String
    15. Dim myArrayList As New ArrayList
    16. cmd.CommandText = "select DISTINCT PCName, PCBeschreibung from tbl_pcinfo Where NichtAnzeigen Like '" & 0 & "' order by PCName"
    17. con.Open() 'Verbindung zur db öffnen
    18. reader = cmd.ExecuteReader()
    19. Dim zahl As Integer = 0
    20. If reader.hasRows() Then
    21. While reader.Read()
    22. myArrayList.Add(reader("PCName").ToString())
    23. Dim PCName As String() = CType(myArrayList.ToArray(GetType(String)), String())
    24. 'Dim PCName As String = reader("PCName").ToString()
    25. 'MessageBox.Show(PCName)
    26. PingPC(zahl) = PCName
    27. Dim PCBeschreibung As String = reader("PCBeschreibung").ToString()
    28. If Not IsNothing(PCBeschreibung) Then
    29. PCBeschreib(zahl) = PCBeschreibung
    30. Else
    31. PCBeschreib(zahl) = ""
    32. End If
    33. zahl = zahl + 1
    34. End While
    36. reader.Close()
    37. End If
    38. con.Close()
    40. For i As Integer = 0 To PingPC.Count - 1
    41. If My.Computer.Network.Ping(PingPC(i)) = True Then
    42. übergabe1.Add(PingPC(i))
    43. übergabe1.Add(PCBeschreib(i))
    44. End If
    45. Next
    46. End Sub
    48. Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    49. DataGridView1.Rows.Clear()
    50. DataGridView1.RowHeadersVisible = False 'markier Button ausblenden
    51. For Each _ZEILE As Integer In übergabe1
    52. DataGridView1.Rows.Add(_ZEILE, übergabe2.Item(_ZEILE))
    53. Next
    54. End Sub
    55. End Class


    er macht mir den Fehler Der Wert vom Typ "1-dimensionales Array von String" kann nicht in "String" konvertiert werden.
    also an dieser Stelle

    VB.NET-Quellcode

    1. PingPC(zahl) = PCName

    Was soll das Try-Catch bewirken?

    VB.NET-Quellcode

    1. Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    3. Dim PingPC As New List(Of String)
    4. Dim PCBeschreib As New List(Of String)
    5. Dim myList As New List(Of String)
    7. 'Muss Distinct nicht ans Ende? Ist bei Linq jedefalls so.
    8. cmd.CommandText = "select DISTINCT PCName, PCBeschreibung from tbl_pcinfo Where NichtAnzeigen Like '0' order by PCName"
    9. con.Open() 'Verbindung zur db öffnen
    11. reader = cmd.ExecuteReader()
    13. If reader.hasRows() Then
    14. While reader.Read()
    16. myList.Add(reader("PCName").ToString())
    17. PingPC.Add(PCName)
    19. Dim PCBeschreibung As String = reader("PCBeschreibung").ToString()
    21. If Not String.IsEmpty(PCBeschreibung) Then
    22. PCBeschreib.Add(PCBeschreibung)
    23. Else
    24. 'Unnötig?
    25. PCBeschreib.Add(String.Empty)
    26. End If
    27. End While
    29. reader.Close()
    30. End If
    31. con.Close()
    33. For i As Integer = 0 To PingPC.Count - 1
    34. Übergabe.Add(PingPc(i))
    35. Übergabe.Add(PCBeschreib(i))
    36. Next
    38. End Sub

    Auch wenn mir den Sinn des Codes nicht einleuchtet.
    Jetzt kann man ihn wenigstens lesen.

    Was hast du eig. vor?
    /nicht getestet

    Tag,
    so habe es mal ausprobiert.. aber der Code ging so auch nicht.. *nachdenk*

    er sagt mir

    VB.NET-Quellcode

    1. PingPC.Add(PCName)

    Der Wert vom Typ "System.Windows.Forms.DataGridViewTextBoxColumn" kann nicht in "String" konvertiert werden.

    und hier

    VB.NET-Quellcode

    1. If Not String.IsEmpty(PCBeschreibung) Then

    "IsEmpty" ist kein Member von "String".

    ich glaube ich überdenke das ganze noch mal..
    ich möchte auf jeden Fall .. das ganze in einem Backgroundworker laufen lassen damit das Tool trotzdem noch arbeiten kann..
    und es soll halt die PC Namen aus der DB nach dem Pingen aussortieren und nur die PCs die Online sind in das DGV reinlesen

    Backgroundworker ist ziemlich ineffizient, weil der nur einen Thread bereitstellt.
    Wenn du also 50 PCs durchpingen willst - jeder mit TimeOut 2s, dann ist die Anzeige u.U. erst nach 100s vollständig.
    Stattdessen kannst du die 50Pings auch mit asynchronen Methoden abfahren, also parallel.
    Dann ist die Anzeige nach 2s komplett.

    gugge auch IPScanner - Post#2.

    tuvok schrieb:

    "IsEmpty" ist kein Member von "String".

    Ja, keine Ahnung welches Framework du nutzt.
    Nimm halt

    VB.NET-Quellcode

    1. Not [String] Is Nothing


    tuvok schrieb:

    Der Wert vom Typ "System.Windows.Forms.DataGridViewTextBoxColumn" kann nicht in "String" konvertiert werden.

    Zeig mal die Stelle, wo PcName deklariert wird.

    Aber vermutlich hat das Ganze sowieso kein Sinn.
    Mach es am Besten gleich richtig - Bau dir eine Klasse "Pc" mit den entsprechenden Eigenschaften & benutze TPL.
    /nicht getestet

    Zeig mal die Stelle, wo PcName deklariert wird.

    PCName = ne Spalte aus der Tabelle in meiner Datenbank

    Das andere Problem habe ich hiermit gelöst

    VB.NET-Quellcode

    1. If Not String.IsNullOrEmpty(PCBeschreibung) Then


    aber ich werde das ganze mal rausschmeissen, da es mir jetzt wieder neue Fehler aufzeigt..

Facebook
Telefonspende