Dim command As MySqlCommand = Me.FormUI.Conn.CreateCommand()
command.CommandText = "SELECT * FROM `user` WHERE name = ?name AND pass = ?pass"
Dim myParam_user As MySqlParameter = command.Parameters.Add("?name", MySqlDbType.Text)
Dim myParam_pass As MySqlParameter = command.Parameters.Add("?pass", MySqlDbType.Binary) myParam_user.Value = Trim(Me.UserName)
myParam_pass.Value = MD5Manager.Encrypt(Trim(Me.Password))
Dim reader As MySqlDataReader = command.ExecuteReader() If Not reader.HasRows Then
MsgBox("用户名或密码错误")
reader.Close()
Exit Sub
Else
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货