-1
嗨繼承人的代碼,它沒有任何錯誤,但是當你檢查數據庫沒有被添加數據庫沒有更新1000
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Create_btn.Click
Call getConnect()
If New_Username.Text = "" And New_Password.Text = "" And New_Pass_Code.Text = "" Then
MsgBox("check the empty textbox or wrong Admin Password", MsgBoxStyle.Critical, "needed")
Else
con.Open()
sql = "INSERT into Accounts (Username, Password, Pass_Code) values('" _
& New_Username.Text & "','" _
& New_Password.Text & "' , '" _
& New_Pass_Code.Text & "')"
Dim sqlcomd As New SqlClient.SqlCommand
sqlcomd.CommandText = sql
sqlcomd.Connection = con
sql = sqlcomd.ExecuteNonQuery
MsgBox("data saved")
con.Close()
End If
雖然這不能回答你的問題,請谷歌參數化查詢。您會發現編寫查詢更容易,並且您的代碼不會受到SQL注入攻擊的攻擊。 –
用'sqlcomd.ExecuteNonQuery'更改'sql = sqlcomd.ExecuteNonQuery' ... – matzone