Backgroundworker-Progressbar-DGV filtern

  • VB.NET
  • .NET (FX) 4.0

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Backgroundworker-Progressbar-DGV filtern

    Hallo Leute,

    ich versuche momentan einen Backgroundworker mit einer Progressbar zu realisieren. Mein Projekt sieht so aus, ich lade Daten aus einer SQL-Datenbank in ein DGV. Das DGV kann man über die rowfilter-Methode filtern. Zusätzlich wird bei jedem Datensatz geschaut, ob es in einem Verzeichnis Dateien zu diesem Datensatz gibt. Dadurch werden zwei Spalten(Verträge und Beschwerden) im DGV hinzugefügt in denen, dann jeweils "Ja" oder "Nein" für vorhandene Dateien steht.

    Problem bei dieser Lösung ist es, dass beim Filtern der Datensätze zu langen Ladezeiten führt. Damit der Benutzer nun sieht, dass etwas passiert möchte ich eine Progressbar mit Backgroundworker realisieren.

    Momentaner Stand:
    MainKlasse

    VB.NET-Quellcode

    1. Private Sub aus_indi_SelectionChangeCommitted(sender As System.Object, e As System.EventArgs) Handles aus_indi.SelectionChangeCommitted, ausw_angebot.SelectionChangeCommitted,..........................
    2. BackgroundWorker1.RunWorkerAsync()
    3. End Sub
    5. Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    6. Call vertragsFeldENTHINZU()
    8. dvauswertung.RowFilter = ""
    9. If ausw_land.SelectedIndex > 0 Or aus_indi.SelectedIndex > 0 Or ausw_angebot.SelectedIndex > 0 Or ausw_plz.SelectedIndex > 0 Or aus_preisniveau.SelectedIndex > 0 Or ...... Then
    10. dvauswertung.RowFilter = filterSQL() 'Wenn ein filter ausgewählt --> Funktion filterSQL aufrufen und filterstring zusammenbauen
    11. Else
    12. Call tabelleAuswertungFuellen() 'Kein Filter ausgewählt --> tabelle füllen ohne Filter
    13. End If
    14. If check_vertraege.Checked = True Then
    15. Call fileVorhandenpruefen()
    16. End If
    18. End Sub
    20. Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    21. MessageBox.Show("Funktioniert")
    22. End Sub
    24. Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    26. End Sub​


    Klasse mit verschiedenen Funktionen

    VB.NET-Quellcode

    1. Public Function filterSQL() As String
    3. Dim bundesland As String = frm_basis.ausw_land.SelectedValue
    4. Dim indikation As String = frm_basis.aus_indi.SelectedValue
    5. Dim plz As String = frm_basis.ausw_plz.SelectedValue
    6. Dim filter As String = ""
    7. Dim preisniveau As String = frm_basis.aus_preisniveau.SelectedItem
    8. Dim klinikangebot As String = ""
    9. Dim preisKleiner As String = frm_basis.ausw_preiskleiner.Text
    10. Dim preisGroßer As String = frm_basis.ausw_preisgroßer.Text
    11. Dim ik_nummer As String = frm_basis.aus_ik_nummer.Text
    12. Dim landkreis As String = frm_basis.ausw_landkreis.SelectedValue
    13. Dim premium As String = frm_basis.ausw_premium.SelectedItem
    16. 'IndikationsString
    17. If frm_basis.aus_indi.SelectedIndex > 0 Then
    18. indikation = "IndiID = " & indikation & ""
    19. End If
    21. 'BundeslandString
    22. If frm_basis.ausw_land.SelectedIndex > 0 Then
    23. bundesland = " AND BundeslandID = " & bundesland & ""
    24. End If
    26. 'KrankenhausangebotString
    27. If frm_basis.ausw_angebot.SelectedIndex > 0 Then
    28. klinikangebot = angebot()
    29. End If
    31. 'Postleitzahl
    32. If frm_basis.ausw_plz.SelectedIndex > 0 Then
    33. plz = " AND Postleitzahl = " & plz & ""
    34. End If
    36. 'Preisniveau
    37. If frm_basis.aus_preisniveau.SelectedIndex > 0 Then
    38. preisniveau = " AND Preisniveau = '" & preisniveau & "'"
    39. End If
    42. filterParameterBEARB(bundesland, indikation, klinikangebot, plz, preisniveau)
    44. filter = indikation & bundesland & klinikangebot & plz & preisniveau
    46. filterSTRINGbearb(filter) 'Entfernt gegebenfalls am Anfang des FILTERStrings "AND"
    48. Return filter
    49. End Function
    51. Function fileVorhandenpruefen()
    52. ' Prüfen ob Vertragsfile vorhanden
    54. vertragsFeldENTHINZU()
    56. Dim VGVpfad As String = "######################"
    58. Dim ik_nummerDGV As String = ""
    59. Dim hilfsstring As String
    62. ' Überprüfen im Ordner VGV ob die Klinik ein Vertrag besitzt
    63. frm_basis.dgv_auswertung.Columns.Add("fileVGV", "Vergütungsverträge")
    65. Dim dirVGV As New DirectoryInfo(VGVpfad)
    66. For i As Integer = 0 To frm_basis.dgv_auswertung.RowCount - 2
    67. ik_nummerDGV = frm_basis.dgv_auswertung.Item(0, i).Value
    68. For Each file As FileInfo In dirVGV.GetFiles
    69. hilfsstring = file.Name.Substring(0, 9)
    70. If hilfsstring = ik_nummerDGV Then
    71. frm_basis.dgv_auswertung.Item(18, i).Value = "Ja"
    72. End If
    73. Next
    74. If frm_basis.dgv_auswertung.Item(18, i).Value = "" Then
    75. frm_basis.dgv_auswertung.Item(18, i).Value = "Nein"
    76. End If
    77. Next
    82. ' Überprüfen im Ordner Beschwerde ob die Klinik ein Vertrag besitzt
    83. frm_basis.dgv_auswertung.Columns.Add("fileBes", "Beschwerden")
    84. For i As Integer = 0 To frm_basis.dgv_auswertung.RowCount - 2
    85. ik_nummerDGV = frm_basis.dgv_auswertung.Item(0, i).Value
    87. Dim beschwerdePfad As String = "##########################"
    88. Dim dirBeschwerde As New DirectoryInfo(beschwerdePfad)
    89. If IO.Directory.Exists(beschwerdePfad) Then
    90. For Each file As FileInfo In dirBeschwerde.GetFiles
    91. hilfsstring = file.Name.Substring(0, 9)
    92. If hilfsstring = "" Then GoTo keineBeschwerde
    94. frm_basis.dgv_auswertung.Item(19, i).Value = "Ja"
    96. Next
    97. End If
    98. keineBeschwerde:
    99. If frm_basis.dgv_auswertung.Item(19, i).Value = "" Then
    100. frm_basis.dgv_auswertung.Item(19, i).Value = "Nein"
    101. End If
    102. Next
    104. End Function
    106. Function vertragsFeldENTHINZU()
    107. 'Falls Checkbox Filter Verträge false dann werden die Spalten entfernt
    108. If frm_basis.dgv_auswertung.Columns.Contains("fileVGV") = True Then
    109. frm_basis.dgv_auswertung.Columns.Remove("fileVGV")
    110. End If
    111. If frm_basis.dgv_auswertung.Columns.Contains("fileBes") = True Then
    112. frm_basis.dgv_auswertung.Columns.Remove("fileBes")
    113. End If
    114. End Function​


    Soweit funktioniert das alles. Nun weiß ich aber nicht, wo und wie ich den ReportProgess von dem Backgroundworker hinschreiben soll. Woher weiß er mit wieviel Prozent er die Progessbar füllen muss?! Geht das ganze überhaupt so?! :D Fragen über Fragen...

    Achja wenn ich das ganze jetzt Ausführe bringt er mir ein Fehler bei der Funktion "vertragsFeldENTHINZU()"
    "Additional information: Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Für den aktuellen Thread muss der STA-Modus (Single Thread Apartment) festgelegt werden, bevor OLE-Aufrufe ausgeführt werden können. Stellen Sie sicher, dass die Hauptfunktion mit STAThreadAttribute gekennzeichnet ist.."

    Kann damit absolut nichts anfangen. Hoffe ihr könnt mich auf die richtige Spur bringen

    Gruß

    @Kevin12345 Es gibt 2 Möglichkeiten:
    • Du schätzt ab, wieviel Prozent abgearbeitet sind, entweder grob und unpräzise (kein Aufwand) oder genau (hoher Aufwand)
      oder
    • Du meldest gar keinen Progress und schaltest die ProgressBar auf Style = Marquee, dann signalisiert sie einfach nur Beschäftigung.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Kevin12345 schrieb:

    Backgroundworker
    Das ist ein Einzeiler. Probier aus, wie lange das dauert bei Deiner Anzahl von Dateien. Danach entscheide.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Kevin12345 schrieb:

    Backgroundworker
    Das ist ein Einzeiler.
    Ist es nicht.
    Backgroundworker ist ein Datentyp.
    Und mit einem Einzeiler kann man mit einem Backgroundworker auf keinen Fall irgendetwas erreichen.

    Im anderen Punkt stimme ich dir zu: Je mehr Dateien einzulesen sind, desto länger dauerts. Und das sollte er nachmessen, denn u.U. ist das kaum der Rede wert.

    Ich sagte übrigens "in ein Dictionary einlesen", von Array sagte ich nichts.
    Und ob man das beim Startup macht, oder wann anders, ist eine weitere Frage - je nachdem , wie oft sich das betreffnde Dateisystem ändert.

    Jdfs. auf keinen Fall für jede zu untersuchende Datei eine eigene Datei-Suche abfahren - das sagte ich.