[英]VB.Net MySQL How to insert values to the database
Pro Devs I'm using VB.Net with MySQL Database and I want to insert values in my DB. 专业开发人员我正在将VB.Net与MySQL数据库一起使用,我想在数据库中插入值。 Example: I have values in my DB which are Admin11 but when I insert another value admin11 I get an error here's my code. 示例:我的数据库中有Admin11值,但是当我插入另一个值admin11时出现错误,这是我的代码。 by the way, these two methods are in different classes. 顺便说一下,这两种方法在不同的类中。
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' “”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“” “”“”“”“”“”“”“”“”“”“”“””
here's my code to check if Username exists in the database... 这是我的代码来检查数据库中是否存在用户名...
Public Sub checkUsernameIfExist() 公共子checkUsernameIfExist()
Dim con = New MySqlConnection
con.ConnectionString = "server=localhost;userid=root;password=alpine;port=3305;database=pos_db;pooling=false;SslMode=none"
con.Open()
Dim query As String = "SELECT Username FROM pos_db.tblusers WHERE BINARY Username=@Users"
Dim cmd As New MySqlCommand(query, con)
cmd.Parameters.AddWithValue("@Users", frmLogin.txtUser.Text)
Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar())
If count <> 0 Then
MessageBox.Show("Username is already taken. Please create a unique one!", "System", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return
Else
insertDataToTblUser.insertToLogin()
End If
con.Close()
con.Dispose()
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' “”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“” “”“”“”“”“”“”“”“”“”“”“”“”“”“”
Here's my code in insert values...... 这是我在插入值中的代码...
Dim con As MySqlConnection Dim con As MySqlConnection
Public Sub insertToLogin()
con = New MySqlConnection
con.ConnectionString = "server=localhost;userid=root;password=alpine;port=3305;database=pos_db;pooling=false;SslMode=none"
con.Open()
Dim qry As String = "INSERT INTO tblUsers (Username,Password,Level) VALUES (@User,@Pass,@lvl)"
Dim cmd As New MySqlCommand(qry, con)
cmd.Parameters.AddWithValue("@User", frmLogin.txtUser.Text)
cmd.Parameters.AddWithValue("@Pass", frmLogin.txtPass.Text)
cmd.Parameters.AddWithValue("@lvl", frmLogin.cmbUserlevel.Text)
cmd.ExecuteNonQuery()
MessageBox.Show("Sign Up Successful", "System", MessageBoxButtons.OK, MessageBoxIcon.Information)
con.Close()
con.Dispose()
End Sub
Please help me thanks a lot. 请帮助我,非常感谢。
These solves my problem Thanks to all who help me. 这些解决了我的问题,感谢所有帮助我的人。
CREATE TABLE `pos_db`.`tblForLogin` (
`Username` VARCHAR(50) CHARACTER SET utf8mb4 COLLATE utf8mb4_bin NOT NULL UNIQUE,
`Password` VARCHAR(50) NOT NULL,
`Level` VARCHAR(50) NOT NULL,
PRIMARY KEY(Username)
);
Change your query: 更改查询:
Dim qry As String = "INSERT INTO tblUsers (Username,`Password`,`Level`) VALUES (@User,@Pass,@lvl)"
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.