Important : connexion ado sur bd access protégée par password

Question

Bonjour, si qq'un pouvait m'aider ce serait sympa.
Je suis en train de développer une application pour mon mémoire en vb et j'ai une colle que je n'arrive pas à résoudre. J'aimerais sécuriser ma bd access par un mot de passe et puis accéder à cette base via mon prog vb. Comment dois je faire ?

Voici le source que j'utilise en test : 

' Variables pour la gestion de la base de données
' -----------------------------------------------
' connection à la base de données
' -------------------------------
Public connection As New ADODB.connection

' commande sur la base de données
' -------------------------------
Public commande As New ADODB.Command

' Enregistrement dans la base de données
' --------------------------------------
Public record_bd As New ADODB.Recordset

' Module permettant la connexion à la base de données
' ---------------------------------------------------
Public Sub connexion_bd()

' Connection à la base de données
' -------------------------------
connection.Provider = "Microsoft.jet.OLEDB.4.0;"

connection.ConnectionString = "I:\Projet Mémoire\Ado sécurisé\bd1.mdb"

connection.Open

' configuration de la commande
' ----------------------------

commande.ActiveConnection = connection

' configuration du record
'------------------------

record_bd.CursorLocation = adUseClient
record_bd.CursorType = adOpenDynamic
record_bd.LockType = adLockOptimistic
End Sub

Un grand merci d'avance pour votre aide.

cs_drmad · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

> Bonjour, si qq'un pouvait m'aider ce serait sympa.
> Je suis en train de développer une application pour mon mémoire en vb et j'ai une colle que je n'arrive pas à résoudre. J'aimerais sécuriser ma bd access par un mot de passe et puis accéder à cette base via mon prog vb. Comment dois je faire ?
> 
> Voici le source que j'utilise en test : 
> 
> ' Variables pour la gestion de la base de données
> ' -----------------------------------------------
> ' connection à la base de données
> ' -------------------------------
> Public connection As New ADODB.connection
> 
> ' commande sur la base de données
> ' -------------------------------
> Public commande As New ADODB.Command
> 
> ' Enregistrement dans la base de données
> ' --------------------------------------
> Public record_bd As New ADODB.Recordset
> 
> 
> ' Module permettant la connexion à la base de données
> ' ---------------------------------------------------
> Public Sub connexion_bd()
> 
> ' Connection à la base de données
> ' -------------------------------
> connection.Provider = "Microsoft.jet.OLEDB.4.0;"
> 
> connection.ConnectionString = "I:\Projet Mémoire\Ado sécurisé\bd1.mdb"
> 
> connection.Open
> 
> ' configuration de la commande
> ' ----------------------------
> 
> commande.ActiveConnection = connection
> 
> ' configuration du record
> '------------------------
> 
> record_bd.CursorLocation = adUseClient
> record_bd.CursorType = adOpenDynamic
> record_bd.LockType = adLockOptimistic
> End Sub
> 
> Un grand merci d'avance pour votre aide.

pelw · Answer

Essaye ceci :

' Connection à la base de données
' -------------------------------
connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=I:\Projet Mémoire\Ado sécurisé\bd1.mdb;" & _
"Jet OLEDB:Database Password=MonMotDePasse"

@+

pelw

cs_drmad · Answer

Un grand merci pour ton aide Pelw.

Ca fonctionne.

Merci

DrMad

zeunz · Answer

slt, c'est bizarre, chez moi ca ne marche pas. j'ai la fenetre du dataenv. ki m'indique de mettre le mot de passe.

farisxp · Answer

Salut, je suis en train de d&#233;velopper une application de gestion commerciale sous vb6, et j'ai besoin d'exporter et d'importer des donn&#233;es dans un fichier texte. Que dois-je faire?

Merci infiniment pour votre aide.