Question

我有问题。我尝试插入以下文本，在框文本中找到它。

Ledéveloppement耐用（英语*：*可持续发展，parfois traduitpardéveloppementsurtenable）est une nouvelle conception de l'intérêtgénéral，appliquéeàlacroissanceéconomiqueet 重新设计，重建，建筑和建筑 Aspect environnementaux et sociaux d'uneplanèteglobalisée。塞隆拉委员会mondialesur.delfinitiondonnéndansle rapport de la Commission l'environnement etledéveloppementdel'Organization des Nations unies，dit rapport Brundtland，oùcetteexpression est apparue pour la premièrefoisen 1987，ledéveloppementstustaseestundéveloppement 不列颠哥伦比亚省无国界医学院 générationsexperimentsàrépondreàleurspropres besoins。

但是我有一个巨大的mysql错误

您的SQL语法有错误;检查手册对应于您的MariaDB服务器版本，以获得正确的语法靠近'intérêtgénéral，appliquéeàlacroissanceéconomiqueet 在第1行重新设计'

有什么问题？那是我的代码。谢谢你的帮助。

    Imports MySql.Data.MySqlClient
Imports System.Configuration

Public Class TEXT
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As New MySqlCommand
    Dim READER As MySqlDataReader
    Dim a As New OpenFileDialog
    Private Sub TEXT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MysqlConn = New MySqlConnection(ConfigurationManager.ConnectionStrings("text.My.MySettings.textConnectionString").ToString)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "insert into text (text) values ('" & TextBox1.Text & "')"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader
            MessageBox.Show("Datos Guardados")
            MysqlConn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            MysqlConn.Dispose()
        End Try
    End Sub
End Class

Answer 1

可能问题是文本中有一个'，这会使你的查询以不正确的方式连接，为了解决这个问题，你必须为你的文本字符串添加'''，这样查询才能保持正确形式

Answer 2

确定。它通过addparameters解决。

Imports MySql.Data.MySqlClient

导入System.Configuration

公共类TEXT 昏暗的MysqlConn作为MySqlConnection Dim COMMAND As New MySqlCommand Dim READER作为MySqlDataReader 昏暗作为新的OpenFileDialog Private Sub TEXT_Load（sender as Object，e As EventArgs）处理MyBase.Load MysqlConn = New MySqlConnection（ConfigurationManager.ConnectionStrings（＆＃34; Text.My.MySettings.TextConnectionString＆＃34;）。ToString）结束子

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        MysqlConn.Open()
        COMMAND.Connection = MysqlConn
        COMMAND.CommandText = "INSERT INTO  text (text) Values (@Value1)"
        COMMAND.Parameters.AddWithValue("@Value1", If(String.IsNullOrEmpty(TextBox1.Text), DBNull.Value, TextBox1.Text))
        READER = COMMAND.ExecuteReader
        MessageBox.Show("Datos Guardados")
        'MysqlConn.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        MysqlConn.Close()
    End Try
End Sub

结束班

VB NET + TextBox +插入MySQL +重音

2 个答案: