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

Question

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"

sportmed · Accepted Answer

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

DevLama · Answer

Salut essaie d'enlever le Point virgule à la fin de ta Chaîne de connexion


La Science est Grande et Vaste partageons cette connaisance

DevLama · Answer

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

Vb6 access"2003" connection + Dao 3.6 + pass"MISSION"

3 réponses

Votre réponse

Discussions similaires