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

change user password

P: 4
how to change users passwords in VB but not i SQL ?
Feb 21 '07 #1
Share this Question
Share on Google+
8 Replies


MMcCarthy
Expert Mod 10K+
P: 14,534
how to change users passwords in VB but not i SQL ?
Is this an Access or a VB question? Please provide more information.

Mary
Feb 22 '07 #2

P: 4
Microsoft Access
Feb 22 '07 #3

MMcCarthy
Expert Mod 10K+
P: 14,534
Microsoft Access
Without more information the best I can do is point you in the direction of this website.

http://www.jmwild.com/Accesssecurity.htm


Mary
Feb 23 '07 #4

P: 4
omg
i need a code in visual basic to change users passwords on usersecurity level in Ms access
i dont need an instruction how to run a creator but a vb code!
in sql thath code is
Expand|Select|Wrap|Line Numbers
  1. ALTER USER <UserName> PASSWORD <NewPassword> <OldPassword>
i need something like this but in Vb now you get it ?
Feb 23 '07 #5

MMcCarthy
Expert Mod 10K+
P: 14,534
omg
i need a code in visual basic to change users passwords on usersecurity level in Ms access
i dont need an instruction how to run a creator but a vb code!
in sql thath code is
Expand|Select|Wrap|Line Numbers
  1. ALTER USER <UserName> PASSWORD <NewPassword> <OldPassword>
i need something like this but in Vb now you get it ?
Marcuu

You have given very little information so far and we're not psychic so please don't be rude.

Where is the user table? Is it in Access or in a SQL backend. Is the security you are asking about the SQL level security or a linked table in Access?

Mary
Feb 23 '07 #6

P: 4
learn how to reply from ADezii
i have found the code on google groups
Expand|Select|Wrap|Line Numbers
  1. Public Function ChangePassword(strUser As String, _
  2.         strOldPassword As String, strNewPassword As String)
  3.     Dim wrk As DAO.Workspace
  4.     Dim usr As DAO.User
  5.  
  6.  
  7.     Set wrk = DBEngine(0)
  8.     Set usr = wrk.Users(strUser)
  9.  
  10.     'Change the password
  11.     usr.NewPassword strOldPassword, strNewPassword
  12.  
  13.     Set usr = Nothing
  14.     Set wrk = Nothing
  15. End Function
  16.  
  17.  
Feb 23 '07 #7

MMcCarthy
Expert Mod 10K+
P: 14,534
I'm glad you found the code. And I'm sorry you feel unable to apologise for your rudeness. Please don't expect me to attempt to answer any future questions from you.
Feb 23 '07 #8

NeoPa
Expert Mod 15k+
P: 31,494
Marcuu,
Not being able to speak the language well is no excuse for your rudeness.
We welcome all sorts on this web site, but most people - even the fairly ignorant ones - have at least the sense to be polite to those donating their free time to help them.
If this is beyond your capability then don't expect too much help here.

MODERATOR.
Feb 26 '07 #9

Post your reply

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