vb.net密码修改,vb密码字符怎么设置

vb.net修改登录密码，帮忙看看这个哪里错了呢，该怎么写？

Dim sql As String = "Update userTable Set 密码='" TextBox2.Text " ' where 用户名='" ursename "'"

网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了余干免费建站欢迎大家使用！

你说得真能把人搞晕。

你总能得到用户名吧，然后拿用户名和旧口令再去调用一下验证口令哪块代码看成功没有不就好了。

登陆以后应该把用户信息放到Session里面。然后就可以得到了啊。实在不会至少可以使用隐藏Text，把用户名输出到用户的页面上，提交的时候一并带上来就好了。

If Trim(ypsw.Text) = "" Then

MsgBox("原密码不能为空！", MsgBoxStyle.Critical)

ElseIf Trim(xpsw.Text) = "" Then

MsgBox("新密码不能为空！", MsgBoxStyle.Critical)

ElseIf Trim(qpsw.Text) Trim(xpsw.Text) Then

MsgBox("确认密码与新密码不一致！", MsgBoxStyle.Critical)

Else

Dim mycon As New OleDbConnection

mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath "\data\Datas.mdb"

mycon.Open()

Dim mycmd As New OleDbCommand

mycmd.CommandText = "select * from 管理员 where 用户名='admin' and 密码='" ypsw.Text " '"

mycmd.Connection = mycon

Dim myada As New OleDbDataAdapter

myada.SelectCommand = mycmd

Dim myda As New DataSet

myada.Fill(myda, "yh")

If myda.Tables("yh").Rows.Count 1 Then

MsgBox("您输入的原密码不正确，请重新输入！", MsgBoxStyle.Critical)

ypsw.Focus()

Else

mycmd.CommandText = "update 管理员 set 密码='" Trim(ypsw.Text) " '"

mycmd.ExecuteNonQuery()

MsgBox("密码修改成功！", MsgBoxStyle.Information)

End If

以下这里有错误：

Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username " 'AND password='" userpassword " '"

修改为：

Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username "' AND password='" userpassword "'"

名称栏目：vb.net密码修改,vb密码字符怎么设置
转载来源：http://6mz.cn/article/hegphp.html