Question

我试图将信息存储到mysql数据库，但由于某些原因它不能为我工作。

Dim connString As String = "server=sql3.freemysqlhosting.net; userid=Censored;password=Censored;database=sql364455"
Dim conn As New MySqlConnection(connString)
Dim cmd As New MySqlCommand()
Try
    conn.Open()
    cmd.Connection = conn
    cmd.CommandText = "INSERT INTO accounts (`user_num`, `username`, `password`) values (@1,@2,@3)"
    MsgBox("1")
    cmd.Parameters.AddWithValue("@1", TextBox1.Text)
    cmd.Parameters.AddWithValue("@2", TextBox2.Text)
    cmd.Parameters.AddWithValue("@3", TextBox3.Text)
    MsgBox("2")
    cmd.ExecuteNonQuery()
    MsgBox("3")
    MessageBox.Show("User Profile Created!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
    conn.Close()
Catch ex As Exception
End Try

根据此代码，消息框1和2弹出，但3不是。

有什么想法吗？提前谢谢。

Answer 1

@WoeIsMe Plutonix已经告诉你如何正确编写它（把它放在括号中：[密码]）。而且，只是和建议;如果你已经使用MsgBox作为调试工具，总是将另一个放在catch块中，除了MsgBox（ex.ToString（）），所以你就知道它为什么不起作用了。 - Josh Part 8

我已经在异常块上放了一个msgbox来找出问题所在，我发现它没有用，因为：＆＃34;重复输入＆＃39; 0＆＃39;关键＆＃39; PRIMARY＆＃39; ＆＃34; - 它没有用，因为已经有一个用户有这个号码。

非常感谢所有帮助过我的人。

我用来检测问题的代码：

    Dim connString As String = "server=sql3.freemysqlhosting.net; userid=username;password=password;database=sql364455"
    Dim conn As New MySqlConnection(connString)
    Dim cmd As New MySqlCommand()
    Try
        conn.Open()
        cmd.Connection = conn
        cmd.CommandText = "INSERT INTO accounts (user_num, username, password) values (@1,@2,@3)"
        MsgBox("1")
        cmd.Parameters.AddWithValue("@1", TextBox1.Text)
        cmd.Parameters.AddWithValue("@2", TextBox2.Text)
        cmd.Parameters.AddWithValue("@3", TextBox3.Text)
        MsgBox("2")
        cmd.ExecuteNonQuery()
        MsgBox("3")
        MessageBox.Show("User Profile Created!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        conn.Close()
    Catch ex As Exception
        ' here
        MsgBox(ex.Message)
    End Try

无法将信息保存到mysql数据库

1 个答案: