㈠ 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