₦airaland Forum

Hello,

Want to know how to embedded access database into my application.The user require to enter default password then later change it when he/she gain access into the application or is there any other way i can do it

Please someone should help me

this is the code


Private Sub butOK_Click(Index As Integer)
Dim Password As String
If txtPassword.Text = "" Then
MsgBox "Invalid Password,try again!", vbOKCancel + vbCritical, "Login Error"
Else
If txtPassword.Text <> 1234 Then
MsgBox "Incorrect Password", vbCritical, "Login Error"
Else
If txtPassword.Text = 1234 Or FrmLogin.txtPassword = FrmChangePassword.txtReconfirm Then
Me.Hide
FrmMenu.Show
End If
End If
End If
End Sub

This is just to change access password.

Sub ChangeDBPassword ()
      Dim Db As Database

      Set Db = OpenDatabase("C:\MyDB.mdb",True, _
         False,";pwd=1234"
      Db.NewPassword "1234","newpassword"
      Db.Close
      MsgBox "Password Changed", vbok, "Password"
End Sub

Refrence Microsoft DAO Object Library for the code above to work.

thanks dell_net,i will try your code and get back to you

to login try,

Private Sub butOk_Click()
if txtpassword.text <> "" then
if txtpassword.text = 1234 then
FrmMenu.show
Me.hide
else
MsgBox "Invalid password", vbCritical , "Error"
me.txtpassword.setfocus
end if
else
msgbox "Invalid Username", vbCritical , "Error"
me.txtUsername.setfocus
end if
End Sub

thanks findam,i also need it to connect to database.

If you need help with that, google for "connecting to MS Access from visual basic". This is is a common functionality back in the days, so you will get plenty of hits.

skoten:
thanks findam,i also need it to connect to database.