㈠ VB 修改密碼
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
If trim(Text1.text)=」」 or trim(Text2.text)=」」 or trim(text3.text)=」」 or trim(text4.text)=」」 then
MsgBox 「必須輸入相應的用戶名，新、舊密碼」
Exit sub
End if
If Text3.Text <> Text4.Text Then
MsgBox "兩次密碼輸入不一樣"
Exit sub
End if
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\123.mdb"
If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then
sql = "select * from iiiii where u_user='" & Text1.Text & "'and c_code='" & Text2.Text & "'"
rs.Open sql, conn, 1, 3
If rs.RecordCound=0 Then
Msgbox 「您輸入的用戶名或密碼可能有誤，請確認後重新輸入」
Rs.close
Conn.Close
Set rs=nothing
Set Conn=Close
Exit sub
Else
rs.movefirst
rs.Fields("u_user") = Text1.Text
rs.Fields("c_code") = Text2.Text
rs.Update
rs.close
conn.Close
set rs=nothing
set Conn=Close
End If
MsgBox "密碼修改成功"
End Sub
請用我修改的這一段試試
㈡ VB設置密碼修改
txtpwd 放在模塊中定義為 Public 變數，不然，form2中是無法修改密碼的。不過就算你密碼修改成功，下次啟動時密碼還是為初始狀態。所以第一次啟動時判斷是否有密碼文件，如果存在就讀入到txtpwd 這個變數中，如果沒有就把初始密碼保存到文件。當程序運行狀態下修改密碼成功後保存到文件，同時置新密碼到txtpwd 變數中。密碼保存到文件時可以作一下加密變化，讀的時候當然要逆變換一下。
㈢ 用VB修改密碼
你的sql 語句有錯! use 是關鍵字吧。你是不是 user 表少打了個字元！。。。我的意思是說,use 是關鍵這,把表名改了.改成其它的.比如users 或者 m_user 等等!
㈣ vb製作修改密碼的程序
1、新增記錄：
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("用戶名") = username.Text
Adodc1.Recordset.Fields("密碼") = newpassword1.Text
Adodc1.Recordset.Update
MsgBox "新密碼已成功添加！", vbExclamation + vbOKOnly, "添加成功"
以上是新增記錄的必須語句
2、連接資料庫：
Adodc控制項連接資料庫一般在它的屬性窗口，在屬性窗口有連接資料庫的設置和連接數據表的設置：
ConnectionString 屬性是連接資料庫的，你可以在這里配置資料庫的連接
RecordSource 屬性是連接數據表的，你可以在這里配置數據表的連接
當然你也可以在界面代碼中使用：
Adodc1.ConnectionString = "連接資料庫語句"
Adodc1.RecordSource = "連接數據表語句"
㈤ 如何用vb修改密碼
哪裡不行了,可以啊,我運行了下,可以啊!
㈥ VB中如何修改密碼
比如還有一個Form2
那你在Form2裡面來修改Form1里的東西時，前面加上Form1. 就行了啊
比如要修改Form1里的一個按鈕上的文字 那就這么寫
Form1.CommandButton1.Caption = "aaaaaa"
㈦ 在VB編程中修改密碼。
Private Sub Command1_Click()
If Text1.Text <> GetSetting(App.Title, "Settings", "密碼", "") Then MsgBox "密碼錯誤。請重新輸入": Exit Sub
If Text2.Text <> Text3.Text Then MsgBox "兩次輸入不一樣，請重新輸入": Exit Sub
SaveSetting App.Title, "Settings", "密碼", Text2.Text
MsgBox "修改成功！"
Unload Me
End Sub