how to change password and to update the changed password

[rekhasc]

plz help me to write the code to change the current password and to update the new password:

i have written the code but its giving error,my code is
[code=vb]
Private Function pass() As Boolean
Dim cn As New ADODB.Connectio n
Dim rs As New ADODB.Recordset
Dim sql As String

cn.Open = "provider=micro soft.jet.OLEDB. 4.0;Data source=F:\icici \database.mdb;P ersist security info=true"

sql = "update Table1 " & _
"set Password= '" & Text2.Text & "'" & _
"where Password= '" & Text1.Text & "'"
rs.Open sql, cn, adOpenStatic, adLockOptimisti c


cn.BeginTrans
cn.Execute sql
cn.CommitTrans


cn.Close
MsgBox "password has been changed successfully"
End Function

Private Sub Command1_Click( )
Call pass
End Sub

[/code]
compiler error: expected a function or variable in "cn.open="" "line.am using vb6.0 as front end and database is Ms Access with ADODC..

[shrimant]

[code=vb]Private Function pass() As Boolean
Dim cn As New ADODB.Connectio n
Dim sql As String

cn.Open "provider=micro soft.jet.OLEDB. 4.0;Data source=F:\icici \database.mdb;P ersist security info=true"

sql = "update Table1 " & _
"set Password= '" & Text2.Text & "'" & _
" where Password= '" & Text1.Text & "'"
cn.Execute(sql)
cn.Close
Set cn = Nothing
MsgBox "password has been changed successfully"
End Function

Private Sub Command1_Click( )
Call pass
End Sub
[/code]
Please make sure to insert some spaces before the where clause and remove the "=" sign in cn.open

[rekhasc]

[code=vb]Private Function pass() As Boolean
Dim cn As New ADODB.Connectio n
Dim sql As String

cn.Open "provider=micro soft.jet.OLEDB. 4.0;Data source=F:\icici \database.mdb;P ersist security info=true"

sql = "update Table1 " & _
"set Password= '" & Text2.Text & "'" & _
" where Password= '" & Text1.Text & "'"
cn.Execute(sql)
cn.Close
Set cn = Nothing
MsgBox "password has been changed successfully"
End Function
[/code]



when i run d prog its giving error
could not find installable ISAM.....
can any one help me plz

[debasisdas]

Find details regarding the topic here.

[rekhasc]

Find details regarding the topic here.

i am using access 2007 is this the reason for that error ....
if any changes required for access 2007...

[debasisdas]

i am using access 2007 is this the reason for that error ....
if any changes required for access 2007...

follow the first few searched links in the provided link for the reply.

[shrimant]

i am using access 2007 is this the reason for that error ....
if any changes required for access 2007...

If it it Access 2007 I beleive the connection string should be:

"Provider=Micro soft.ACE.OLEDB. 12.0;Data Source=F:\icici \database.mdb;P ersist Security Info=False"

But I seriously doubt because the Access 2007 file have an extension .accdb where as you file has a .mdb extension which tells that you are still using a Access 2000 thru 2003 file.

So I am in the impression that you do not have all the Microsoft data access components, please download the latest MDAC from:

http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&displaylang=en

Before making any code changes.

[Amit Chaudhary]

' set a password to a existing database in vb6...



dim db as database

Set db = OpenDatabase(Ap p.Path & "\database.mdb" , True, False, ";pwd=" & false)

db.newpassword "","Passwor d"




' change password


dim db as database

Set db = OpenDatabase(Ap p.Path & "\database.mdb" , True, False, ";pwd=" & "old_passwo rd")

db.newpassword "old_password", "new_Passwo rd"