Suche optimieren (Case Sensitive nicht beachten)

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von surfer09.

    Suche optimieren (Case Sensitive nicht beachten)

    Guten Abend,ich bräuchte einmal Hilfe bei meinem Programm. Im Code unten ist die Suche definiert, um einen Text in einer geladenen Excel Tabelle zu suchen. Aktuell sucht das Programm aber Case Sensitive, das möchte ich eigentlich vermeiden. Das Programm soll die Groß-/Kleinschreibung bei der Suche nicht beachten. Hat jemand einen Tipp für mich?
    Außerdem wäre es gut, wenn im Suchfeld mehrere Wörter eingetragen werden, dass die Suche das auch hinbekommt. Aktuell kommt die Suche nur mit einem Wort klar.
    Beispiel: In der Tabelle steht: "Morgen ist Sonntag, der 4.10." Finden kann ich den Eintrag jetzt nur über ein Suchwort "Montag", oder "Sonntag". Ich würde gerne "Morgen 4.10." eingeben können.
    Ich hoffe, ich konnte mein Anliegen einigermaßen erklären, ansonsten gerne nochmal fragen. ;)


    VB.NET-Quellcode

    1. Sub anzeigesuche()
    3. ' Excel-Tabelle anzeigen
    4. Dim oDs As System.Data.DataSet
    5. Dim oConn As System.Data.OleDb.OleDbConnection
    6. Dim oAdapter As System.Data.OleDb.OleDbDataAdapter
    8. ' Pfad und Tabellennamen bitte anpassen!
    10. ' Connection-String für die DB.Verbindung zur Excel-Datei
    11. Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" &
    12. "Data Source=" & MDIParent1.path & ";" &
    13. "Extended Properties=Excel 8.0;"
    15. ' Connection herstellen
    16. oConn = New System.Data.OleDb.OleDbConnection(sConn)
    18. ' Excel-Tabelle referenzieren
    19. ' Hinweis: Tabellenname muss mit abschließendem $-Zeichen und
    20. ' in eckigen Klammern stehen
    22. Dim text As String
    23. text = txt_suche.Text
    24. oAdapter = New System.Data.OleDb.OleDbDataAdapter(
    25. "SELECT * FROM [" & sTable & "$] WHERE Beschreibung LIKE '*" & text & "*'", oConn)
    27. ' DataSet erstellen und mit Daten aus dem DataAdapter füllen
    28. oDs = New System.Data.DataSet
    29. Try
    30. oAdapter.Fill(oDs)
    32. ' DataGrid füllen und Daten anzeigen
    33. With DataGrid1
    34. .DataSource = oDs.Tables(0)
    35. .ReadOnly = True
    36. .Refresh()
    37. End With
    38. Catch ex As Exception
    39. MessageBox.Show(ex.Message)
    41. Finally
    42. ' DB-Verbindung schließen
    43. oConn.Close()
    44. End Try
    45. faerben()
    46. End Sub


    Quelle: vbarchiv.net/tipps/tipp_1575.html


    *Thread-Label und Code-Tag auf VB.NET geändert*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „surfer09“ ()

    Möge die Moderation diesen meinen nicht als Moderator geschriebenen Post bewerten und ggf. löschen, aber:
    Man nehme 1:1-Code aus dem vb@rchiv, füge seine Wünsche an und hoffe, dass jemand anderes den Fremdcode anpasst. Veralbern kann ich mich selbst.
    Wenn Du nicht weiß, wie der Code genau arbeitet, dann wäre es zumindest angebracht, Deine Quellen zu nennen und Deinen Wissenstand kenntlich zu machen, aber so ist es einfach nur dreist.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Sorry, das der Code aus irgendwelchen Archiven stammt wusste ich nicht, sonst hätte ich es sicherlich dazu geschrieben.
    Ich finde es dreist einfach so drauf los zu preschen und andere Benutzer hier so zu verurteilen. Es gibt mit Sicherheit auch noch weitere, die hiervon lernen können und wollen.
    Ich bin was Programmierung angeht kein Profi, deswegen suche ich mir ja Hilfe.

    Ist das abgefackt, du gibts indirekt zu abgeschrieben zu haben ohne die Quelle zu nennen und greifst um von dem Scheiß abzulenken einen Moderator an? Super Idee.
    Um einen wenigsten kleinen nicht-OT-Beitrag zu leisten. Sagt dir String.ToUpper oder String.ToLower etwas? Man kann so wunderbar Case-Insensitive suchen.

    Nochmal: Sorry, ich wusste nicht das der Code von einer Seite in einem VB Archiv stammt. Ich habe das Programm so bekommen und wollte die Suche etwas optimieren, daher habe ich hier um Hilfe gefragt.

    Die genannten Funktionen sagen mir aber so nichts - wie gesagt ich bin totaler Anfänger auf dem Gebiet. Ich gehe aber davon aus, dass diese in der Select-Anweisung eingebaut werden müssen?

    Quellcode

    1. Dim text As String
    2. text = txt_suche.Text
    3. oAdapter = New System.Data.OleDb.OleDbDataAdapter(
    4. "SELECT * FROM [" & sTable & "$] WHERE Beschreibung LIKE '*" & text & "*'", oConn)



    P.S. Die Quelle ist nun auch hinterlegt.
    Gruß surfer

    Das habe ich nun davon, dass ich mir den Quellcode nicht angeguckt habe. Tatsächlich habe ich von Oledb keine Ahnung, habe aber diese Seite hier gefunden:
    stackoverflow.com/questions/15…-make-it-case-insensitive
    Dabei spielt die Sprache (C#) hier keine Rolle, must mal schauen ob es dir hilft.

    Ok, dass du den Code selbst so bekommen hast, ist natürlich dann schon echt unglücklich gelaufen. Dafür angeblafft zu werden hast du dann sicherlich auch nicht verdient.
    Andererseits ist so eine Vorgehensweise hier leider alles andere als unüblich, daher kann *ich* auch @VaporiZed seine Reaktion verstehen. Musst du nicht, ist okay.

    mit dem % Zeichen solltest du erfolgreicher sein

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. objConnection = New OleDbConnection(strConnectionString)
    4. Dim text As String = "Petra"
    6. 'select Tabelle
    7. 'objCommand = New OleDbCommand("SELECT * FROM [TestP$]", objConnection)
    9. 'select Range
    10. 'objCommand = New OleDbCommand("SELECT * FROM [TestP$C6:K10]", objConnection)
    12. 'select mit Suchwort
    13. 'CompanyName und Contactname sind in der ersten Zeile als Header
    14. objCommand = New OleDbCommand("SELECT CompanyName, ContactName FROM [TestP$] Where ContactName Like '%" & text & "%'", objConnection)
    15. 'WHERE Beschreibung LIKE '*" & text & "*'"
    16. objDataAdapter = New OleDbDataAdapter
    17. objDataAdapter.SelectCommand = objCommand
    18. objDataTable = New System.Data.DataTable
    19. objDataAdapter.Fill(objDataTable)
    21. DataGridView1.DataSource = objDataTable.DefaultView

    Das ist ja komisch. Schau mal hier, wie das bei mir aussieht (siehe Screenshots). Im Code ist jetzt die %-Version im Einsatz.
    Er findet den Eintrag nur, wenn er so geschrieben wird, wie er in der Tabelle steht.

    Quellcode

    1. Dim text As String
    2. text = txt_suche.Text
    3. oAdapter = New System.Data.OleDb.OleDbDataAdapter(
    4. "SELECT * FROM [" & sTable & "$] WHERE Beschreibung Like '%" & text & "%'", oConn)
    Bilder

    • Suche_1.jpg

      40,48 kB, 799×134, 70 mal angesehen

    • Suche_2.jpg

      36,68 kB, 662×139, 57 mal angesehen

    • Suche_3.jpg

      30,55 kB, 538×143, 59 mal angesehen

    Der Like-Operator arbeitet möglicherweise unterschiedlich. Zumindest in vb kann man eine Option setzen, die Case-(in)-Sensitivität festlegt.
    aber dieser Like-Operator arbeitet ja auf der (Pseudo-)DB. Eventuell gibts da ja auch so Einstellungen.

    Aber ich würde die Tabelle komplett in die DataTable laden, und selbige dann mit vb.net-Mitteln durchwühlen.

    Hi surfer

    mache es jetzt so...
    ändere natürlich Tabellenname etc....

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Public Class Form1
    5. Private objConnection As OleDbConnection
    6. Private objCommand As OleDbCommand
    7. Private objDataAdapter As OleDbDataAdapter
    8. Private objDataTable As System.Data.DataTable
    10. Private PathExcelFile As String = "E:\vbexcel2.xls"
    11. Private strConnectionString As String = _
    12. "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & PathExcelFile & ";" _
    13. & "Extended Properties=""Excel 8.0;HDR=Yes"""
    15. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    16. objConnection = New OleDbConnection(strConnectionString)
    17. Dim text As String = "Petra"
    18. 'select Tabelle
    19. 'objCommand = New OleDbCommand("SELECT * FROM [TestP$]", objConnection)
    20. 'select Range
    21. 'objCommand = New OleDbCommand("SELECT * FROM [TestP$C6:K10]", objConnection)
    22. 'select mit Suchwort
    23. 'CompanyName und Contactname sind in der ersten Zeile als Header
    24. objCommand = New OleDbCommand("SELECT CompanyName, ContactName FROM [TestP$] Where ContactName Like '%" & text & "%'", objConnection)
    26. objDataAdapter = New OleDbDataAdapter
    27. objDataAdapter.SelectCommand = objCommand
    28. objDataTable = New System.Data.DataTable
    29. objDataAdapter.Fill(objDataTable)
    30. DataGridView1.DataSource = objDataTable.DefaultView
    32. objDataAdapter = Nothing
    33. objCommand = Nothing
    34. objConnection = Nothing
    35. End Sub
    36. End Class


    habe jetzt auch dein Code probiert, und bekomme das gleiche Ergebnis wie in Post#10
    so keine Ahnung was du machst, erstelle mal an neues Projekt und schau ob es funktioniert

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    2. anzeigesuche()
    3. End Sub
    4. Sub anzeigesuche()
    5. ' Excel-Tabelle anzeigen
    6. Dim oDs As System.Data.DataSet
    7. Dim oConn As System.Data.OleDb.OleDbConnection
    8. Dim oAdapter As System.Data.OleDb.OleDbDataAdapter
    10. Dim PathExcelFile As String = "E:\vbexcel2.xls"
    12. Dim sConn As String = _
    13. "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & PathExcelFile & ";" & "Extended Properties=""Excel 8.0;HDR=YES"""
    14. '--------------------------------------------------------
    16. ' Connection herstellen
    17. oConn = New System.Data.OleDb.OleDbConnection(sConn)
    18. ' Excel-Tabelle referenzieren
    19. ' Hinweis: Tabellenname muss mit abschließendem $-Zeichen und
    20. ' in eckigen Klammern stehen
    21. Dim text As String
    22. text = "Petra"
    23. Dim sTable As String = "TestP"
    24. oAdapter = New System.Data.OleDb.OleDbDataAdapter(
    25. "SELECT * FROM [" & sTable & "$] WHERE ContactName LIKE '%" & text & "%'", oConn)
    26. ' DataSet erstellen und mit Daten aus dem DataAdapter füllen
    27. oDs = New System.Data.DataSet
    28. Try
    29. oAdapter.Fill(oDs)
    30. ' DataGrid füllen und Daten anzeigen
    31. With DataGridView1
    32. .DataSource = oDs.Tables(0)
    33. .ReadOnly = True
    34. .Refresh()
    35. End With
    36. Catch ex As Exception
    37. MessageBox.Show(ex.Message)
    38. Finally
    39. ' DB-Verbindung schließen
    40. oConn.Close()
    41. End Try
    42. 'faerben()
    43. End Sub

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

Facebook