vb修改密码代码（vb设置密码的代码）

本篇文章给大家谈谈vb修改密码代码，以及vb设置密码的代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB修改数据库密码代码
• 2、请问下VB修改用户密码的问题
• 3、VB设置密码修改

VB修改数据库密码代码

Dim str As StringIf Text23.Text = "" Then

MsgBox "密码不能为空！", vbInformation + vbOKOnly, "提示您"

Exit Sub

End IfIf Text23.Text Text24.Text Then

MsgBox "两次输入的密码不一致！", vbInformation + vbOKOnly, "提示您"

Exit Sub

End Ifstr = "update 登录表 set 密码='" Text23.Text "' where 用户='" Text21.Text "'" If executesql(str) = True Then

MsgBox "密码已经修改！", vbInformation + vbOKOnly, "提示您"

Text23.Text = ""

Text24.Text = ""

Else

MsgBox "修改密码失败，有问题请联系管理员！", vbInformation + vbOKOnly, "提示您"

End If

请问下VB修改用户密码的问题

rs.Fields("密码") = Trim(text3.Text)

rs.Update

Private Sub Command1_Click()

    Dim db As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim sql As String

    db.ConnectionString = "driver={sql server};server=(local);uid=sa;pwd=sa;database=WXCB"

    db.Open

    If Trim(Text2.Text = "") Then

        MsgBox "旧密码不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"

        Text2.Text = ""

        Text2.SetFocus

        Exit Sub

    End If

    If Trim(Text3.Text = "") Then

        MsgBox "新密码不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"

        Text3.Text = ""

        Text3.SetFocus

        Exit Sub

    End If

    If Text3.Text  Text4.Text Then

        MsgBox "两次输入的新密码不同，请重新输入！", vbOKOnly + vbExclamation, "警告"

        Text3.Text = ""

        Text4.Text = ""

        Text3.SetFocus

        Exit Sub

    Else

        sql = "select * from user1 where 用户名 ='"  Text1.Text  "'"

        rs.Open sql, db, adOpenStatic, adLockReadOnly '打开返回的可用记录集

        If rs.EOF = True Then

            MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

            Text1.Text = ""

            Text2.Text = ""

            Text3.Text = ""

            Text4.Text = ""

            Text1.SetFocus

        Else

            If Trim(rs.Fields("密码"))  Trim(Text2.Text) Then

                MsgBox "旧密码不对，请重新输入！", vbOKOnly + vbExclamation, "警告"

                Text2.Text = ""

                Text3.Text = ""

                Text4.Text = ""

                Text3.SetFocus

            Else

                rs.Fields("密码") = Trim(Text3.Text)

                rs.Update

                MsgBox "密码修改成功！", vbOKOnly + vbInformation, "提示"

                Text1.Text = ""

                Text2.Text = ""

                Text3.Text = ""

                Text4.Text = ""

                Text1.SetFocus

            End If

        End If

    End If

    rs.Close

    Set rs = Nothing

End Sub

VB设置密码修改

txtpwd 放在模块中定义为 Public 变量，不然，form2中是无法修改密码的。不过就算你密码修改成功，下次启动时密码还是为初始状态。所以第一次启动时判断是否有密码文件，如果存在就读入到txtpwd 这个变量中，如果没有就把初始密码保存到文件。当程序运行状态下修改密码成功后保存到文件，同时置新密码到txtpwd 变量中。密码保存到文件时可以作一下加密变化，读的时候当然要逆变换一下。

关于vb修改密码代码和vb设置密码的代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。