Vb6 access"2003" connection + Dao 3.6 + pass"MISSION" [Résolu]

Messages postés
197
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
25 janvier 2014
- - Dernière réponse : DevLama
Messages postés
355
Date d'inscription
mercredi 13 avril 2011
Statut
Membre
Dernière intervention
15 juin 2019
- 28 mai 2012 à 22:10
bonjours

je travail maintenant, dans l'autre projet mais je vous protégez ma base de donnée avec une mot de passe .



j'ai un problème de ouvrir ma base de donnée. avec mot de passe Suivant :"MISSION"

voir les information suivant,

-- dans le " Module1 "

J'AI déclara les variables :


Global DB As Database
Global FRAIS As Recordset
GLOBAL OUV AS Recordset
Global CMD As Recordset
GLOBAL TRANP AS Recordset
GLOBAL PAS AS Recordset





-- DANS L'interface de démarrage:" Menu "

j'ai Déclara les données suivant:

Private Sub Form_Load()
Set DB = OpenDatabase("\CIRCUIT\DATA BASE\EXEURSIONS.mdb")
Set PAS = db.OpenRecordset("PASS")
Set FRAIS = db.OpenRecordset("FRAIS")
Set Ouv = db.OpenRecordset("ouvrier")
Set TRANP = db.OpenRecordset("TRANSPORT")
Set CMD= db.OpenRecordset("COMMANDE")
END SUB





-- mais dans le " Module1 "

je vous Déclarez la connexion à la base de données

j'ai fait ce code,


Public Sub connect()
Set DB = New DATABASE
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\EXCURSIONS.mdb;Jet OLEDB:Database Password=MISSION;"
End Sub



mais marche pas

aide-moi SVP.
Comme faire une connections entre VB6.0 est access 2003 avec un mot de passe "MISSION"
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
197
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
25 janvier 2014
2
3
Merci
Bonjours j'ai réalise ce code, est marche bien.

--- dans " Module1 " j'ai fait :


Global DB As Database
Dim STRDBNAME As String
Public Sub connect()
   STRDBNAME = "C:\CIRCUIT\DATA BASSE\EXCURSIONS.mdb"
   Set DB = DBEngine.OpenDatabase(STRDBNAME, False, False, ";PWD=MISSION")
End Sub


-- DANS L'interface de démarrage:" Menu "

j'ai Déclara les données suivant:
Private Sub Form_Load()
connect
Set DB = OpenDatabase("\CIRCUIT\DATA BASE\EXEURSIONS.mdb")
Set PAS = db.OpenRecordset("PASS")
Set FRAIS = db.OpenRecordset("FRAIS")
Set Ouv = db.OpenRecordset("ouvrier")
Set TRANP = db.OpenRecordset("TRANSPORT")
Set CMD= db.OpenRecordset("COMMANDE")
END SUB 

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 204 internautes nous ont dit merci ce mois-ci

Commenter la réponse de sportmed
Messages postés
355
Date d'inscription
mercredi 13 avril 2011
Statut
Membre
Dernière intervention
15 juin 2019
5
0
Merci
Salut essaie d'enlever le Point virgule à la fin de ta Chaîne de connexion


La Science est Grande et Vaste partageons cette connaisance
Commenter la réponse de DevLama
Messages postés
355
Date d'inscription
mercredi 13 avril 2011
Statut
Membre
Dernière intervention
15 juin 2019
5
0
Merci
Je pense qu'il faut qu'il change un peu sa chaîne de connexion à la Place Password mets Pwd
La Science est Grande et Vaste partageons cette connaisance
Commenter la réponse de DevLama