GeneticW
Messages postés34Date d'inscriptionsamedi 3 juin 2006StatutMembreDernière intervention23 avril 2011 25 févr. 2012 à 06:14
Tu peut la poster quelques part la Bd ? Je vais t'envoyer le mdp.
BOLITHO976
Messages postés1Date d'inscriptionvendredi 24 février 2012StatutMembreDernière intervention24 février 2012 24 févr. 2012 à 16:52
bonjour, je suis nouveau et novice ! je viens de trouver ce post et je suis au désespoir; j'ai une base mdb 2003 protégée par un MDP. J'ai téléchargé votre ZIP mais le mot de passe (décidément) "test" ne semble plus valide. Pourriez vous m'aider?
cordialement
Bolitho
joeb1010
Messages postés7Date d'inscriptionmardi 21 décembre 2004StatutMembreDernière intervention 2 décembre 2010 2 déc. 2010 à 13:26
Le truc marche à 100% Grand merci
cs_FlyingAlex
Messages postés17Date d'inscriptionmardi 3 mars 2009StatutMembreDernière intervention25 novembre 2010 18 nov. 2009 à 20:40
Je n'arrive pas à utiliser la bdd : lorque je l'ouvre, il y a marqué pas d'objet et quand je clique sur parcourir : erreur d'execution 438 : propriété ou methode non gérée par cet objet. Il me met un bug à cette ligne (la dernière) :
Option Compare Database
Option Explicit
'***************************************************
'Author: Krsev Ivan
'Description: this program retrieve ms access database password
'Author Email address: ivan@chameleon.co.yu
'Use this program as you whish, just drop me an email to say thank you
'that's my reward
'Because i'm lasy i used forms from Vipul Parmar and part for access97 pasword
'In accsess 2000 password is stored at the begining of file at offset 0x42H
'Differencies from access 97 is that every char uses 2 (A1 E2) words insted of 1 (A1) probably because of unicode
'But we are dealing only with half of it. Not interested in right half
'Access2000 password is limited on 20 chars MAX, if you use more it'll be truncated
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim dbname As String
Dim passw As String
Dim bckPass As String
Dim mask97 As String
Dim mask2k As String
Dim priv As String
Dim priv2 As String
Dim prviput As Boolean
Dim TrebaObavestiti As Boolean
Public cnn1 As ADODB.Connection
Private Sub Command1_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Access97 Files (*.mdb)|*.mdb"
Me.cd1.Filter = strfilter
Pour info je suis sur access 2007.
Merci d'avance!!!!
garci80
Messages postés1Date d'inscriptionmercredi 26 novembre 2008StatutMembreDernière intervention 2 juin 2009 2 juin 2009 à 11:55
Bravo et merci !
Aucun problème, cela marche bien.
25 févr. 2012 à 06:14
24 févr. 2012 à 16:52
cordialement
Bolitho
2 déc. 2010 à 13:26
18 nov. 2009 à 20:40
Option Compare Database
Option Explicit
'***************************************************
'Author: Krsev Ivan
'Description: this program retrieve ms access database password
'Author Email address: ivan@chameleon.co.yu
'Use this program as you whish, just drop me an email to say thank you
'that's my reward
'Because i'm lasy i used forms from Vipul Parmar and part for access97 pasword
'In accsess 2000 password is stored at the begining of file at offset 0x42H
'Differencies from access 97 is that every char uses 2 (A1 E2) words insted of 1 (A1) probably because of unicode
'But we are dealing only with half of it. Not interested in right half
'Access2000 password is limited on 20 chars MAX, if you use more it'll be truncated
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim dbname As String
Dim passw As String
Dim bckPass As String
Dim mask97 As String
Dim mask2k As String
Dim priv As String
Dim priv2 As String
Dim prviput As Boolean
Dim TrebaObavestiti As Boolean
Public cnn1 As ADODB.Connection
Private Sub Command1_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Access97 Files (*.mdb)|*.mdb"
Me.cd1.Filter = strfilter
Pour info je suis sur access 2007.
Merci d'avance!!!!
2 juin 2009 à 11:55
Aucun problème, cela marche bien.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.