mysql - 连接必须有效并在 vb 2008 中打开

Question

Imports MySql.Data.MySqlClient
Public Class daftar

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Cn As New MySqlConnection
    Dim str As String
    Dim dt As New DataTable
    Dim cmd As New MySqlCommand
    Cn = New MySqlConnection("server=localhost;" _
       & "user id=root;" _
       & "password=;" _
       & "database=loginapp")
    Try
        Cn.Open()
        MsgBox("Connected")
    Catch ex As Exception
        MsgBox("Failed Connection " & vbCrLf & "Error Message : " & ex.Message, MsgBoxStyle.Critical, "Peringatan")
    End Try
    cmd.Parameters.AddWithValue("@id", user.Text)
    cmd.Parameters.AddWithValue("@pass", pass.Text)
    str = "INSERT INTO tbluser(Username,Password) VALUES (@id,@pass)"
    cmd = New MySqlCommand(str)
    cmd.ExecuteNonQuery()
    MessageBox.Show("Insert Data Siswa Berhasil Dilakukan")
    Cn.Close()
End Sub
End Class

我遇到“cmd.ExecuteNonQuery”问题，它有一条消息“连接必须有效并打开”任何人都可以帮助我解决这个问题吗？

Answer 1

我认为您不明白 New 关键字的作用。您正在创建一个新命令并向其添加参数，然后通过重新创建一个全新的 MySqlCommand 实例来销毁您的工作。除了这个错误之外，您从未将命令设置为使用已打开的连接。你最好再去读一下文档。