By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
434,654 Members | 1,840 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 434,654 IT Pros & Developers. It's quick & easy.

help with login password.

P: 52
the code i use presently changes the password but when it is revisited or the progamme is shut down and then started up again the password wil revert to the old one.I was thinking that i could use the Modelo that i can store the password there and change it.
IF ANYONE KNOWS HOW TO DO THIS.
i don't to store the password in a Access docso id be greatful if anyone could give me an answer.
THANK YOU VERY MUCH
Feb 1 '08 #1
Share this Question
Share on Google+
4 Replies


P: 68
the code i use presently changes the password but when it is revisited or the progamme is shut down and then started up again the password wil revert to the old one.I was thinking that i could use the Modelo that i can store the password there and change it.
IF ANYONE KNOWS HOW TO DO THIS.
i don't to store the password in a Access docso id be greatful if anyone could give me an answer.
THANK YOU VERY MUCH
Hey,
u didn't mention here, where u store the Password. You have to store the password in a file. Then u see the topic on how write in a file. U can use here FileSystemObject. When u change ur password, everytime u write into that file, but not append.

Regards,
shuvo2k6
Feb 1 '08 #2

100+
P: 274
IF you post your code here it will be easy to see how you are doing that.
Feb 2 '08 #3

lotus18
100+
P: 866
I was thinking that i could use the Modelo that i can store the password there and change it.
Can anyone explain to me what MODELO is?

Rey Sean
Feb 2 '08 #4

Ali Rizwan
100+
P: 927
Add a reference Microsoft Runtime Library to your project.

Declare Variables

Expand|Select|Wrap|Line Numbers
  1. Dim fso as new filesystemobject
  2. dim f as file
  3. dim t as textstream
Now to store your password to a text file use this code:

Expand|Select|Wrap|Line Numbers
  1. Private Sub cmdwrite_Click()
  2.             set f=fso.getfile(file path)
  3.             set t=f.openastextstream(forwriting)
  4.             t.writeline(text1.text)
  5.             t.close
  6. End Sub

Now to read your password from text file use this code:
Expand|Select|Wrap|Line Numbers
  1. Private Sub cmdread_Click()
  2.             dim a as string
  3.             set f=fso.getfile(file path)
  4.             set t=f.openastextstream(forreading)
  5.             a=t.readline
  6.             t.close
  7. End Sub

For any more help you can contact me.

Regards
>> ALI <<
Feb 6 '08 #5

Post your reply

Sign in to post your reply or Sign up for a free account.