Suche in MySQL DB

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von M-Arens.

    Suche in MySQL DB

    Hallo zusammen,

    ich habe eine Funktion geschrieben mit der ich eine Suche in einer MySQL Tabelle ausführen möchte. Es wird auch etwas ausgeführt aber nicht das was ich möchte. Die SQL-Syntax schein auch richtig zu sein, da ich ja keinen Fehler bekomme.
    Ich möchte gerne das in der ganzen Tabelle nach dem was in der Variable Suchbegriff steht suchen. Damit auch Sachen gefunden werden, die mitten im Wort stehen habe ich noch "*" vor und nach dem Suchbegriff geschrieben. Fakt ist aber das Ihrgend was anderes gesucht wird, ich aber nicht weiß was. Die Summe der Datensätze verringert sich auf jeden fall.

    Hier mal die Funktion:

    VB.NET-Quellcode

    1. Private Function suchen() As DataTable
    2. 'Variablen für die Suche
    3. Dim s_Suchbegriff As String
    4. Dim s_Kostenstelle As String
    5. Dim s_Herstellername As String
    6. Dim s_Kategorie As String
    7. Dim s_Abteilung As String
    9. 'Variablen Werte zuordnen
    10. If TextBox_Suchbegriff.Text = "" Then
    11. s_Suchbegriff = "*"
    12. Else
    13. s_Suchbegriff = "*" & TextBox_Suchbegriff.Text & "*"
    14. End If
    15. '***********************************************
    16. If ComboBox_Kostenstelle.Text = "" Then
    17. s_Kostenstelle = "*"
    18. Else
    19. s_Kostenstelle = "*" & ComboBox_Kostenstelle.Text & "*"
    20. End If
    21. '***********************************************
    22. If ComboBox_Herstellername.Text = "" Then
    23. s_Herstellername = "*"
    24. Else
    25. s_Herstellername = ComboBox_Herstellername.Text
    26. End If
    27. '***********************************************
    28. If ComboBox_Kategorie.Text = "" Then
    29. s_Kategorie = "*"
    30. Else
    31. s_Kategorie = ComboBox_Kategorie.Text
    32. End If
    33. '***********************************************
    34. If ComboBox_Abteilung.Text = "" Then
    35. s_Abteilung = "*"
    36. Else
    37. s_Abteilung = ComboBox_Abteilung.Text
    38. End If
    41. '#################################################################################
    42. Dim conn As MySqlConnection = verbinden()
    43. Dim myAdapter As New MySqlDataAdapter
    44. Dim SQLAbfrage As String = "SELECT Typ, Bezeichnung, Herstellerbestellnummer, Herstellername, Kategorie, Abteilung, Kostenstelle FROM " _
    45. & "" & sPraefix & "_artikel WHERE Typ or Bezeichnung='" + Replace(s_Suchbegriff, " ", "") + "'" _
    46. & "AND Kategorie='" + Replace(s_Kategorie, " ", "") + "' AND Abteilung='" + Replace(s_Abteilung, " ", "") + "'" _
    47. & "AND Herstellername='" + Replace(s_Herstellername, " ", "") + "' AND Kostenstelle='" & Replace(s_Kostenstelle, " ", "") & "'" _
    48. & "order by Bezeichnung"
    49. Dim myCommand As New MySqlCommand
    50. Dim myData As New DataTable
    51. myCommand.Connection = conn
    52. myCommand.CommandText = SQLAbfrage
    54. myData.Reset()
    55. myCommand.Connection = conn
    56. myCommand.CommandText = SQLAbfrage
    57. myAdapter.SelectCommand = myCommand
    58. myAdapter.Fill(myData)
    59. Return myData
    60. conn.Close()
    61. End Function


    Kann mir einer helfen wo der Fehler steckt?? Das was in den Variablen steht sollte stimmen. Als Beispiel steht in s_Suchbegriff "*taster*"

    Also ich würde dir raten den SQL Query so anzulegen, dass Felder die leer sind auch nicht im Query auftauchen.

    also z.B.

    VB.NET-Quellcode

    1. SQLWhere = ""
    3. If TextSuche1.Text = "" Then
    4. If NOT SQLWhere = "" Then SQLWhere &= " AND " ' Wenn schon etwas in der Variablen steht mit AND verknüpfen
    5. SQLWhere &= "Spalte = '" & TextSuche1.Text & "'"
    6. End If


    So hast du einen sauberen Query. die Variable SQLWhere fügst du dann später nur noch in den eigentlichen Query mit ein.
    Wenn du eine Volltext suche machen willst musst du nicht den = Operator verwenden sondern "Like"

    SQL-Abfrage

    1. SELECT * FROM Tabelle WHERE Spalte LIKE '%test%'


    die % zeichen heißt davor kann noch was stehen und auch dahinter. Wenn du nach 'test%' suchst wird alles gefunden was mit "test" anfängt und wenn nach '%test' suchst wird das gefunden, was micht "test" aufhört. Denke mal das System ist klar oder?

    Edit: Zudem wird in der Where bei dir Type Or Bezeichnung nicht funktionieren, weil hierbei gesucht wird wo Typ nichts ist, weil nicht angegeben.
    Du kannst ja auch nicht in VB eine Bedingung so verknüpfen

    VB.NET-Quellcode

    1. If Variable1 Or Variable2 = "dies" Then


    sondern musst es explizit angeben

    VB.NET-Quellcode

    1. If Variable1 = "dies" Or Variable2 = "dies" Then


    Also denn typ oder Bezeichnung das gleiche sein kann musst es auch so angeben

    SQL-Abfrage

    1. Where Typ = '" & TextBezeichnung.Text & '" OR Bezeichnung = '" & TextBezeichnung.Text & '"

    @M-Arens
    SQLWhere ist eine Variable die genutzt wird um die Filterbedingungen variable zu halten, damit man diese bei Bedarf so setzen kann, wie benötigt. Die Varibale wird dann im WHERE-Teil des SQL-Befehl eingesetzt.
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Also wenn ich das jetzt mit dem SQLWhere mache, ich denke das ich das verstanden habe.


    Wie kann ich das dann in meinem SQL Query mit dem Like verbinden? Ich brauche die Volltextsuche bei dem Suchfeld und der Combo_Kostenstelle?


    SQL-Abfrage

    1. SELECT * FROM Tabelle WHERE " & SQLWhere & " LIKE '%test%'
    ???

    Nein, du musst das bei jeder Abfrage machen SQLWhere ist nur eine Sammlung von Bedingungen.

    VB.NET-Quellcode

    1. SQLWhere = ""
    3. If TextSuche1.Text = "" Then
    4. If NOT SQLWhere = "" Then SQLWhere &= " AND " ' Wenn schon etwas in der Variablen steht mit AND verknüpfen
    5. SQLWhere &= "Spalte LIKE '%" & TextSuche1.Text & "%'"
    6. End If

Facebook