VB how to change the password regularly, vb change the password question

You can consider judging the system time. If you haven't been in contact with it for so long to change your password, if you only need to change it once a week, you can change it manually, which is safe.

All I've been exposed to is to change passwords every 5 minutes, using some kind of pseudo-random algorithm to generate new passwords on a regular basis. Through a handheld device embedded with the same algorithm, the user can know the current password at any time.

Above. The old wolf passing by.

The current date is used when the program is started, and the password is changed 7 days after the last time.

private sub command1_click()

if trim( = then

msgbox "The original password cannot be empty, please re-enter it! ",vbokonly + vbexclamation, "Warning"

exit sub

end if

if trim( = lift) then

msgbox "The new password cannot be empty, please re-enter the quick answer! ",vbokonly + vbexclamation, "Warning"

exit sub

end if

if <>then

msgbox "The new password entered twice is different, please re-enter it! ",vbokonly + vbexclamation, "Warning"

exit sub

end if

if trim( =trim( then

msgbox "Password change successful! ",vbokonly + vbinformation, "Tips"

=elsemsgbox "The original password is wrong! "

end if

end sub

Super generation Zheng Hui code, write on error resume next under private sub command1 click().

It's okay to bring this sentence** suitable for any process of stupid sedan chairs.

When the database is opened once, it must be closed before it can be opened again;

open, then close

An open corresponds to a close

sql, conn, adopenkeyset, adlockpessimistic

if then

msgbox "No records found, please check! ",vbokonly + vbexclamation, "Warning"

exit sub

else if msgbox "The old password is incorrect, please re-enter it! ",vbokonly + vbexclamation, "Warning"

exit sub

end if

set rs = nothing

else =

msgbox "Password change successful! ",vbokonly + vbinformation, "Tips"

=end if

end if

else =

msgbox "Password change successful! ",vbokonly + vbinformation, "Tips"==

end if

end if

The reason you're making the error is that the database didn't shut down instantly!

if msgbox "The old password is incorrect, please re-enter it! ",vbokonly + vbexclamation, "Warning"

else === ** should be added here.

set rs = nothing

sql = select * from userinfo where username='"trim( +

sql, conn, adopenkeyset, adlockpessimistic

msgbox "Password change successful! ",vbokonly + vbinformation, "Tips"

if = then

do while "name") if then

msgbox "Didn't find it"

elsepasswd") =

msgbox "Password change successful! "

unload me

end if

elsemsgbox "Passwords are inconsistent! "

end if

For example, there is also a form2

When you modify something in form1 in form2, add form1 in front of itThat's it.

For example, if you want to change the text on a button in form1, this is how it works.

aaaaaa"

Define a common variable in the module to store the current user, how good it is to be available everywhere in the whole program, anyway, there are modules!

sql = select * from zlb where username='"trim( ) and if = trim( then debugging, sometimes the equation is not true because of spaces.

You can make this function into a main function as an entry point to the program.

sql = select * from zlb where username='"trim( &

The password must be saved, the way of saving can be a database, it can also be saved in a text file, of course, there are other ways, your form 1 ** itself is set in the program, so the password is saved, and the login of form 1 is still:"Zhang San"and AA.

Typing is not easy, such as satisfaction, hope.

Answer, support me.

Probably because the string of words is broken and is judged to be an invalid program, try to cut the SQL command into several strings and then combine them, or use the format() function to operate.

The error of select * from user is normal, because the table name user is caused by the use of the internal function user with the same name as the sql, and the solution is just to add :

select * from [user]

Suggestion: Check if this is the case with other table names or field names, and change the name to avoid inexplicable errors!

set rs = new

set = conn

select * from user"

Modified to: set rs = new

select * from user",conn,3,3 other garbled characters, can't judge.

It's best not to use select * from user, just write the field name.

It is best not to use Chinese for field names.

This, this, this, this.