2015-09-20 50 views
0
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」問題開放,它有一個消息「連接必須是有效的,公開」可有人能幫助我解決這個問題?連接必須是有效的,並在2008年VB

+0

您沒有將您的打開連接分配給您的命令。 – InbetweenWeekends

+0

將密碼信息作爲純文本傳遞不是一個好主意。 – OneFineDay

回答

0

我不相信你明白New關鍵字的作用。您正在創建一個新命令併爲其添加參數,然後通過重新創建一個全新的MySqlCommand實例來破壞您的工作。除了這個錯誤之外,您從未將您的命令設置爲使用您打開的連接。你最好再去閱讀文檔。

相關問題