"Roh-SQL" auf MySQL funktioniert / parametrisiert in VB nicht

  • VB.NET
  • .NET (FX) 4.0

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

    "Roh-SQL" auf MySQL funktioniert / parametrisiert in VB nicht

    Hallo Leute,

    Ich habe ein kleines Query, welches auf dem MySQL-Server direkt wunderbar funktioniert, wenn ich es aber dann in eine String-Variable in VB zum parametrisieren packe, spuckt mir der MySQL-Server einen Syntax-Fehler aus.

    Quellcode

    1. "You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''3040_messdaten' m, '3040_rauheiten' r WHERE m.TXLCode LIKE 'GW101%' AND m.TXLCo' at line 1"


    Roh-SQL:

    SQL-Abfrage

    1. SELECT
    2. m.TXLCode,
    3. m.ol1,
    4. m.ol2,
    5. m.ow1,
    6. m.ow2,
    7. m.r11,
    8. m.r12,
    9. m.r13,
    10. m.r21,
    11. m.r22,
    12. m.r23,
    13. m.r31,
    14. m.r32,
    15. m.r33,
    16. m.r41,
    17. m.r42,
    18. m.r43,
    19. r.lw,
    20. r.cw
    21. FROM
    22. 3040_messdaten m,
    23. 3040_rauheiten r
    24. WHERE
    25. m.TXLCode LIKE 'GW101%' /* Tool 1 */
    26. AND
    27. m.TXLCode = r.TXLCode


    Dieser dann in VB:

    VB.NET-Quellcode

    1. Public Function get_messwerte(ByVal _type As String, Optional ByVal _toolFilter As String = "none") As List(Of String)
    2. Dim iReturn As New List(Of String)
    3. Dim SQLString As String = ""
    4. Dim messtable As String = "", rautable As String = ""
    5. Dim trv() As String = {"Tool", "Rev", "Part"}
    7. If _toolFilter = "none" Then
    8. Select Case _type
    9. Case "3040"
    10. messtable = "3040_messdaten"
    11. rautable = "3040_rauheiten"
    12. Case "2121"
    13. messtable = "2121_messdaten"
    14. rautable = "2121_rauheiten"
    15. Case "2121C"
    16. messtable = "2121C_messdaten"
    17. rautable = "2121C_rauheiten"
    18. Case "3030"
    19. messtable = "3030_messdaten"
    20. rautable = "3030_rauheiten"
    21. Case Else
    22. Hilfssachen.ShowError(funcinfo.GetCurrentMethod.Name, "Falscher Bauteiltyp angegeben:" + CrLf + "_type = " + _type)
    23. iReturn.Clear()
    24. Return iReturn
    25. End Select
    27. End If
    29. SQLString = "SELECT m.TXLCode, m.ol1, m.ol2, m.ow1, m.ow2, " _
    30. + "m.r11, m.r12, m.r13, m.r21, m.r22, m.r23, " _
    31. + "m.r31, m.r32, m.r33, m.r41, m.r42, m.r43, " _
    32. + "r.lw, r.cw " _
    33. + "FROM @MessTable m, @RauTable r " _
    34. + "WHERE m.TXLCode LIKE 'GW101%' " _
    35. + "AND m.TXLCode = r.TXLCode"
    36. MessageBox.Show(SQLString)
    38. Try
    39. Using conn As New MySqlConnection(connectstring), cmd As New MySqlCommand(SQLString, conn)
    40. cmd.Parameters.AddWithValue("@MessTable", messtable)
    41. cmd.Parameters.AddWithValue("@RauTable", rautable)
    42. conn.Open()
    43. Dim reader As MySqlDataReader = cmd.ExecuteReader
    45. If reader.HasRows Then
    46. reader.Read()
    47. If _type = "3040" Or _type = "3030" Then
    48. trv = Hilfssachen.getToolRevPart(reader.Item("TXLCode").ToString)
    49. iReturn.Add(reader.Item("TXLCode").ToString)
    50. iReturn.Add(trv(0).ToString)
    51. iReturn.Add(trv(1).ToString)
    52. iReturn.Add(trv(2).ToString)
    53. iReturn.Add(reader.Item("ol1").ToString)
    54. iReturn.Add(reader.Item("ol2").ToString)
    55. iReturn.Add(reader.Item("ow1").ToString)
    56. iReturn.Add(reader.Item("ow2").ToString)
    57. iReturn.Add(reader.Item("r11").ToString)
    58. iReturn.Add(reader.Item("r12").ToString)
    59. iReturn.Add(reader.Item("r13").ToString)
    60. iReturn.Add(reader.Item("r21").ToString)
    61. iReturn.Add(reader.Item("r22").ToString)
    62. iReturn.Add(reader.Item("r23").ToString)
    63. iReturn.Add(reader.Item("r31").ToString)
    64. iReturn.Add(reader.Item("r32").ToString)
    65. iReturn.Add(reader.Item("r33").ToString)
    66. iReturn.Add(reader.Item("r41").ToString)
    67. iReturn.Add(reader.Item("r42").ToString)
    68. iReturn.Add(reader.Item("r43").ToString)
    69. iReturn.Add(reader.Item("lw").ToString)
    70. iReturn.Add(reader.Item("cw").ToString)
    71. ElseIf _type = "2121" Or _type = "2121C" Then
    72. trv = Hilfssachen.getToolRevPart(reader.Item("TXLCode").ToString)
    73. iReturn.Add(reader.Item("TXLCode").ToString)
    74. iReturn.Add(trv(0).ToString)
    75. iReturn.Add(trv(1).ToString)
    76. iReturn.Add(trv(2).ToString)
    77. iReturn.Add(reader.Item("ol").ToString)
    78. iReturn.Add(reader.Item("ow").ToString)
    79. iReturn.Add(reader.Item("r11").ToString)
    80. iReturn.Add(reader.Item("r12").ToString)
    81. iReturn.Add(reader.Item("r21").ToString)
    82. iReturn.Add(reader.Item("r22").ToString)
    83. iReturn.Add(reader.Item("r31").ToString)
    84. iReturn.Add(reader.Item("r32").ToString)
    85. iReturn.Add(reader.Item("r41").ToString)
    86. iReturn.Add(reader.Item("r42").ToString)
    87. iReturn.Add(reader.Item("lw").ToString)
    88. iReturn.Add(reader.Item("cw").ToString)
    89. End If
    90. End If
    91. reader.Close()
    92. End Using
    93. Catch ex As Exception
    94. Hilfssachen.ShowError(funcinfo.GetCurrentMethod.Name, ex.Message)
    95. End Try
    97. Return iReturn
    98. End Function


    Was aufällt ist, dass die Parameter in SingleQuotes gepackt wurden. MySQL erwartet dort doch ` anstatt ', oder?

    Kann ich überhaupt Tabellennamen parametrisieren?

    Grüße!

    Edit: Hab die reader.Item-Bezeichner korrigiert.

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

    In dem von Dir verlinktem Post ist unter dem Abschnitt "Allgemeine Einschränkungen" zu lesen:


    Parameter sind nur vorgesehen, um Inhalte variabel zu übergeben. Sie können nicht statt der Namen von Tabellen oder Spalten benutzt werden. So etwas geht überhaupt nicht:

    C#-Quellcode

    1. cmd.CommandText = "UPDATE @table SET @column = @value;";
    2. cmd.Parameters.AddWithValue("@table", "Adress");
    3. cmd.Parameters.AddWithValue("@column", "Prename");
    4. cmd.Parameters.AddWithValue("@value", "Juergen");

    Allenfalls auf dem folgenden Weg können Tabellen und Spalten variabel gestaltet werden:

    C#-Quellcode

    1. cmd.CommandText = String.Format("UPDATE {0} SET {1} = @value;", "Adress", "Prename");
    2. cmd.Parameters.AddWithValue("@value", "Juergen");

    Ja - vergiss den letzten Post von mir... :/
    Da war ich mit den Gedanken schon wieder weiter unten im Text z.B:
    cmd.CommandText = String.Format("UPDATE {0} SET {1} = @value;", "Adress", "Prename")
    cmd.Parameters.AddWithValue("@value", "Juergen")
    ...aber dass bedeutet nicht mehr parametrisieren...

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „VB1963“ ()

    Das hier

    VB.NET-Quellcode

    1. Public Function get_messwerte(ByVal _type As String, Optional ByVal _toolFilter As String = "none") As List(Of String)
    ist ziemlicher Mist.
    Messwerte sind allerhöchstwahrscheinlich anderen Datentyps als String.

    Bzw. wenn du sie bereits in der Datenbank als Textwerte angelegt hast, ist bereits das Mist.

    Ich empfehle immer, Datenverarbeitungen erstmal ohne Datenbank auszuprogrammieren, dann würde der nun erforderliche Umbau wesentlich leichter vonstatten gehen.

    Hey EDR,

    ja ... prinzipiell sind die Messwerte Floats. Aber in der Liste werden eben auch Daten wie die Bauteilbezeichnung mitgeliefert,
    und das ist ein String. Ebenso gibts in der Tabelle auch noch ein Datums-Feld, das (in einem anderen Programm) auch in die Liste sollte.

    Da ich aber nicht ein solch ausgeklügeltes Datenbankmodell basteln kann, wie es möglich wäre, habe ich in allen meinen Tabellen sowohl Floats und Strings.
    Allerdings sind die Datenfelder in der Tabelle selbst schon als Decimal definiert, wo es von nöten ist.

    Wie ich in einer Liste Daten verschiedenen Typs speichere, weiss ich nicht.
    Wie ich aus einer Funktion mehrere Rückgabewerte ausgebe, weiss ich ebensowenig.

Facebook
Telefonspende