Datadridview filtern

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Apollo.

    Datadridview filtern

    Hallo zusammen

    :cursing: ?( stehe gerade völlig auf dem Schlauch

    ich habe mir einige Beiträge zum Filtern des Datagridview angeschaut und bin jetzt ganz verwirrt.

    Ich bekomme egal wie ich es probiere keine Filterung hin. Selectieren und markieren funktioniert gut.

    was mache ich falsch? Brauche anstoß in die richtige Richrung

    Hier mein bisheriger Code:

    VB.NET-Quellcode

    1. Option Explicit On
    3. Imports System.Data.OleDb
    4. Imports Microsoft.Office.Interop
    5. Imports System.IO
    7. Public Class Form1
    8. Dim conn As OleDbConnection
    9. Dim dta As OleDbDataAdapter
    10. Dim dts As DataSet
    11. Dim excel As String
    12. Dim OpenfileDialog As New OpenFileDialog
    14. Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles ImportExcel.Click
    15. Try
    16. OpenfileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
    17. OpenfileDialog.Filter = "All files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|xls files (+.xls)|*.xls"
    18. If OpenfileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
    19. Dim fi As New IO.FileInfo(OpenfileDialog.FileName)
    20. Dim FileName As String = OpenfileDialog.FileName
    21. excel = fi.FullName
    22. conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
    23. dta = New OleDbDataAdapter("select * from [Übersicht$]", conn)
    24. dts = New DataSet
    25. dta.Fill(dts, "[Übersicht$]")
    26. DGV1.DataSource = dts
    27. DGV1.DataMember = "[Übersicht$]"
    28. conn.Close()
    29. End If
    30. Catch ex As Exception
    31. MsgBox(ex.Message)
    32. conn.Close()
    33. End Try
    35. End Sub
    37. Private Sub btnFiltern_Click(sender As Object, e As EventArgs) Handles btnFiltern.Click
    38. Dim grid As DataGridView
    39. Dim sSuchwert As String
    41. grid = DGV1
    42. sSuchwert = CboBox1.Text
    44. Funktionen.SucheWertundMarkiereZeile(grid, sSuchwert)
    46. End Sub


    CodeTags korrigiert und Thema verschoben ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @Apollo

    hatte dir doch 3 Beispile in deinem anderen Thread gezeigt.

    Filtern kannst du mit SQL
    aus dem anderen Thread

    VB.NET-Quellcode

    1. 'Bsp.3) select Daten mit Vorname = anfangs buchstabe B
    2. 'Vorname und Nachname sind Spaltennamen in der Excel Tabelle:
    3. DataGridView1.DataSource = ExcelOleDb("E:\vbexcel.xlsx", "SELECT Vorname, Nachname FROM [Tabelle3$] Where Vorname Like 'B%'")
    4. 'liefert dir dann z.b:
    5. 'Bernd
    6. 'Betty
    7. 'Boris
    8. 'etc....

    Sorry

    hatte das 3 Beispiel ganz vergesssen abgescheichert und vergessen habe es aber wieder gefunden.
    Danke Kasi noch mal.

    bezüglich des vbnet Tag habe vergessen die Sprache einzutragen

    Quellcode

    1. vbnet[/color]]

    werde mich bessern und nächstes mal dran denken.

Facebook
Telefonspende