Discussion :

[barbarian]

Bonjour,

Je cherche des exemples d'ouverture de bases de données ACCES avec un mot de passe en vb6 sous ado

Mon programme gère une base avec plusieurs tables et je désire simplement qu'à l'ouverture du programme vb,le mot de passe de la base soit demandé.

merci de votre aide

[abdallahi]

Bonjour
tu peux ajouter une feuille frmLogine avec un champ mot de passe
cette feuille sera l'objet de demarage de ton appli.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 IF txtmotPasse.txt = "mon mot de passe" then
            mdiform.show
else
               msgbox "mot de passe non valide"
end if

[valval]

salut!!

utilise cette chaîne de connexion:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
"DRIVER={Microsoft Access Driver (*.mdb)};Pwd=mot_de_passe;" _
   & " DBQ=" & chemin_de_ta_bd

[Hatchepsout]

bonsoir
tu peut ajouter dans ta base de donner une table tab_connection avec 2champ (Password,user)

apres tu ajoute une forme (gestion de compte) a ton projet pour ajouter les utilisateures et ces mots de passe.

Ensuite tu ajoute ta forme de connection(une nouvelle forme) ou tu demande le nom de user et son password et sous cette form tu met le code ou tu teste si le user et la mot de passe est correcte (tu peut faire ca par une requete sql select .....) apres tu compare la resultat de la requete et les champs saisie dans tes textbox de ta form.
et comme ca tu grantie la securité de ta base
c'est ma methode prefer sous access(je fait pas beaucoup l'access )
(si tu es sous sqlserver c'est plus simple tu ajoute des utilisateures et ces mots de passes et tu donne l'acces a la base ou a certains table si tu veut)
bonne chance

[Subkill]

Je n'ai pas d'exemple en ADO, mais voiçi un exemple avec un objet WScript.Shell et Access.Application.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    Dim objAccess As Access.application
    Dim objShell
    Dim strPathToMDB
    Dim application
    Dim user, password, workgroup
 
    'Chemin de l'application
    strPathToMDB = "C:\test.mdb"
    'Chemin de MS ACCESS
    application = "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE"
 
    'Chemin du fichier de sécurité
    workgroup = "C:\SECURE_SYSTEM.MDW"
 
    'Nom d'utilisateur et mot de passe
    user = "admin"
    password = "admin"
 
    'Ouverture de la base de données
    objShell = Shell(Chr(34) & application & Chr(34) & " " & Chr(34) & strPathToMDB & Chr(34) & " /nostartup /user " & Chr(34) & user & Chr(34) & _
    " /pwd " & Chr(34) & password & Chr(34) & " /wrkgrp " & Chr(34) & workgroup & Chr(34), vbMinimizedFocus)
 
    'Création de l'objet access
    Set objAccess = CreateObject("Access.Application")
    Set objAccess = GetObject(, "Access.Application")
 
    'Exécution d'une macro
    objAccess.Run "macro1"
 
    'Fermeture de la base de données
    objAccess.CloseCurrentDatabase
 
    'Fermeture de MS ACCESS
    objAccess.Quit
 
    'Libération de la mémoire
    Set objAccess = Nothing
    Set objShell = Nothing

J'espère que ca va pouvoir t'aider

Bonne chance

[sovo]

la methose de valval devrais t'aider, mais avec quelquels modification

"DRIVER={Microsoft Access Driver (*.mdb)};Pwd=" & mot_de_passe & " _
& "; DBQ=" & chemin_de_ta_bd