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

Messages postés
197
Date d'inscription
mardi 15 mai 2007
Dernière intervention
25 janvier 2014
- - Dernière réponse : DevLama
Messages postés
354
Date d'inscription
mercredi 13 avril 2011
Dernière intervention
22 novembre 2018
- 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 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
197
Date d'inscription
mardi 15 mai 2007
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 112 internautes nous ont dit merci ce mois-ci

Commenter la réponse de sportmed
Messages postés
354
Date d'inscription
mercredi 13 avril 2011
Dernière intervention
22 novembre 2018
6
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
354
Date d'inscription
mercredi 13 avril 2011
Dernière intervention
22 novembre 2018
6
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

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.