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
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://vcdvsql.cn/article48/hegphp.html
成都網站建設公司_創新互聯,為您提供虛擬主機、軟件開發、電子商務、域名注冊、定制開發、標簽優化
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯