Allgemeines Problem mit Datenbank/Datagridview

  • VB.NET

    Allgemeines Problem mit Datenbank/Datagridview

    Ich möchte ein kleines Tool schreiben, welches gewisse Subnetze scannt und mir anzeigt wer online/offline ist und einiges anderes später auch.
    Ich habe aber ein kleines Problem im Verständnis Datagridview Steuerelement, Databinding Datenbank etc.
    Ich habe eine leere Datenbank erstellt mit einigen Spalten.
    Diese habe ich an ein Datagridview gebunden.
    Nun habe ich folgende Codes:

    VB.NET-Quellcode

    1. Dim treefill As New treefill
    2. Dim scan As New Scan
    3. Private Sub ScanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScanToolStripMenuItem.Click
    5. Dim subnet = TreeView1.SelectedNode.Name
    6. If treefill.iptest(subnet) Then
    7. For a = List.Scanergebnisse.Rows.Count To 255
    8. List.Scanergebnisse.Rows.Add()
    9. Next
    10. ' Me.TableAdapterManager.UpdateAll(Me.List)
    11. Dim cut = Split(subnet, ".")
    12. subnet = cut(0) & "." & cut(1) & "." & cut(2) & "."
    13. scan.IPScan(subnet)
    15. Else : MsgBox("Fehler")
    16. End If
    17. End Sub

    die Klasse scan :

    VB.NET-Quellcode

    1. Imports System.Threading
    2. Public Class Scan
    5. Private Shared Sub ThreadFunc(ByVal ips as String)
    7. Dim iprun = Split(ips, ".")
    8. Dim run As Integer = iprun(3)
    9. For a As Integer = run To run + 49
    10. Dim testIP = iprun(0) & "." & iprun(1) & "." & iprun(2) & "." & a
    12. Call Ping(testIP, 1000, a - 1)
    14. Next
    15. End Sub
    16. Public Function IPScan(ByVal Subnet As String)
    17. Dim Thread1 As Thread = New Thread(AddressOf Scan.ThreadFunc)
    18. Dim Thread2 As Thread = New Thread(AddressOf Scan.ThreadFunc)
    19. Dim Thread3 As Thread = New Thread(AddressOf Scan.ThreadFunc)
    20. Dim Thread4 As Thread = New Thread(AddressOf Scan.ThreadFunc)
    21. Dim Thread5 As Thread = New Thread(AddressOf Scan.ThreadFunc)
    23. Thread1.Start(Subnet & 2)
    24. Thread2.Start(Subnet & 52)
    25. Thread3.Start(Subnet & 102)
    26. Thread4.Start(Subnet & 152)
    27. Thread5.Start(Subnet & 202)
    30. End Function
    31. Public Shared Sub Ping(ByVal IP, ByVal ptime, ByVal ind)
    33. Form1.List.Scanergebnisse.Rows(index:=ind).Item(0) = IP
    34. Form1.list.scanergebnisse.rows(ind).item(5) = Now()
    35. If My.Computer.Network.Ping(IP, ptime) Then
    37. Form1.List.Scanergebnisse.Rows(index:=ind).Item(1) = "online"
    39. Else
    40. Form1.List.Scanergebnisse.Rows(index:=ind).Item(1) = "offline"
    41. End If
    42. End Sub
    44. End Class


    Meine Datenbankquelle heisst List, die hier benötigte Tabelle Scanergebnisse.

    Er wirft mir einen Fehler aus, das die Zeile zB 101 oder 151 bicht existiert.
    Des weiteren glaub ich fehlt mir das Verständnis wie ich diese Daten vernünftig in der Datenbank speichere.
    Wenn mir jemand mal nen Code zeigen könnte, wie man Daten in einer im Projekt erstellten Datenbank zur Laufzeit speichert und im Datagridview anzeigt wäre ich sehr dankbar.

    Vielen Dank
    gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!