Loading

How to change the database password programmatically?

Submitted by: 
admin
Friday, December 5, 2008 - 11:50


This tutorial will teach you on how to change the database password of an Access database programmatically using visual basic 6.0.

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";Persist Security Info=False;Mode=12;Jet OLEDB:Database Password="current password here"

sqlExecStr = "ALTER Database Password " & txtNewPass & " " & txtOldPass & ";"

CN.Execute sqlExecStr

Where CN is your database connection variable.

If you use the database before changing the password be sure to close it by adding code like:

CN.close

Open the database exclusively by adding:

Mode=12;

This is very important since you cannot change the password if you did not open it exclusively.



admin's picture

Article by admin

admin has submitted 444 source code / articles.

If you like This post, you can follow SourceCodester on Twitter.

Subscribe to SourceCodester feed via RSS or EMAIL to receive instant updates.

Comments

Submitted by barbyan on Sat, 01/24/2009 - 01:29

how do i get the password to the downloaded VOTING SYSTEM software?

 

admin's picture

Submitted by admin on Sat, 01/24/2009 - 11:39

Search for term "password" in the code editor window. Be sure to select current project.

Submitted by Anonymous on Mon, 03/09/2009 - 16:58

what is the databse password .

my id is babaganesh_dutta@yahoo.co.in

admin's picture

Submitted by admin on Mon, 03/09/2009 - 17:11

Please read FAQ.

Submitted by Anonymous on Sat, 04/25/2009 - 11:52

I am a regular beneficiary of your tips and helps, keep up the good job. I must tell you, am inpressed by your selfless devotion to helping developers.

Submitted by Anonymous on Thu, 07/02/2009 - 22:46

how did you initialized the CN variable? please send me the answer here atejaiko@gmail.com

admin's picture

Submitted by admin on Fri, 07/03/2009 - 11:22

Public CN As New Connection

Submitted by Anonymous on Fri, 07/31/2009 - 14:01

HOW CAN ME WRITE IT IN VISUAL BASIC 2008

AND HOW CAN ME CREATE NEW PASSWORD FOR ACCESS 2003

Submitted by Anonymous on Tue, 08/18/2009 - 17:45 
  1. Option Explicit
  2.  
  3. Public ADOCON As ADODB.Connection
  4. Public ADORECORD As ADODB.Recordset
  5.  
  6. Public Sub ConnectToDB(ByVal dbPath As String, Optional ByVal Password As String = "")
  7. Dim conStr As String
  8.  
  9.  
  10.     conStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";Jet OLEDB:Database Password=" & Password & ";"
  11.  
  12.     ADOCON.CursorLocation = adUseClient
  13.     ADOCON.Mode = adModeReadWrite
  14.     ADOCON.Open conStr
  15.  
  16. End Sub
  17.  
  18. Public Function ChangeDatabasePassword(dbPath As String, oldPassword As String, newPassword As String) As Boolean
  19. Dim sqlStr As String, conStr As String
  20.  
  21.  
  22.     conStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";Jet OLEDB:Database Password=" & oldPassword & ";"
  23.  
  24.     If ADOCON.State <> 0 Then ADOCON.Close
  25.  
  26.     sqlStr = "ALTER Database Password " & newPassword & " " & oldPassword & ";"
  27.     ADOCON.Mode = adModeShareExclusive
  28.     ADOCON.Open conStr
  29.     ADOCON.Execute sqlStr
  30.     ADOCON.Close
  31.     Call mADO.ConnectToDB(App.Path & "\dbpw.mdb", newPassword)
  32.  
  33. End Function

Thats How i got it to work :D

admin's picture

Submitted by admin on Wed, 08/19/2009 - 13:24

Good

Submitted by Anonymous on Thu, 09/03/2009 - 18:22

hi i declared my obeject as folloes but it complains.here is the code
Dim objUser As User

If txtUsername.Text <> "" Then
If txtNewPassword.Text = txtConfirmNew.Text Then
objUser = GetObject("LDAP://cn=" + txtUsername.Text _
+ ",cn=Users,dc=mycorp,dc=com")

objUser.SetPassword(txtNewPassword.Text)
objUser.pwdLastSet = 0
objUser.lockoutTime = 0
objUser.SetInfo()

'Reset everything
txtUsername.Text = ""
txtNewPassword.Text = ""
txtConfirmNew.Text = ""

MsgBox("Password changed!")
Else
MsgBox("Passwords are not the same, please try again!")
End If
Else
MsgBox("A username must be specified!")
End If

admin's picture

Submitted by admin on Fri, 09/04/2009 - 12:10

What is the error you encounter?

Submitted by Anonymous on Fri, 02/26/2010 - 20:56

is there more understandable code for changing password using vb 6.0??:) thanks

Submitted by Anonymous on Sat, 05/29/2010 - 02:44

Hi there!
I would like to change my password that is stored on the database?

Submitted by Anonymous on Mon, 03/22/2010 - 15:54

My code is as follows,

------------------
Set con = New ADODB.Connection

Dim strConstring As String, strChgPw
Dim newPassword As String
Dim oldpassword As String

newPassword = "Sid"
oldpassword = "Null"

strConstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MGallary;Data Source=SIDDHESH-DFF718"

con.Open strConstring

strChgPw = "ALTER Database Password " & newPassword & " " & oldpassword & ";"
con.Execute strChgPw
---------------------------------

But while running it promts error for line
con.Execute strChgPw

as: Incorrect syntax error near keyword 'Null'

I have not set any password for my database
Please help

Submitted by Anonymous on Fri, 10/14/2011 - 01:53

also close the connection after
con.Execute strChgPw
write here con.close

Submitted by Anonymous on Fri, 04/30/2010 - 11:22

Hi Everyone,
Can I know how to use combo box when I click the first combo box , the second combox also change to display data related to first combo box?

I'm just start to learn vb6 and i'm new in this language. Can anyone help me please..
Thank you very much..

Submitted by Anonymous on Tue, 10/19/2010 - 13:13

I am vb programmer

Add new comment