acces et fichier mdw

"dav" <dav49400-spam@wanadoo.fr> a écrit dans le message de
news:41ab59e2$0$8624$8fcfb975@news.wanadoo.fr...

y a t-il des subtilités dans la gestion d'un fichier mdw access sous vb6
en DAO ?
est ce vraiment un plus important dans le cadre de la sécurisation d'une
base access ?

Hello,

non pas franchement de subtilités, en tout cas pour ce que j'en sais.
Pour l'aspect sécurité, ben.. ça dépend. Si ta DB contient vraiment des
infos sensibles, c'est effectivement un bon moyen de sécurisation. On
peut s'en passer amha, mais bon.. C'est la et ça fonctionne, sans
soucis particuliers.

voici un mini exemple d'utilisation, pour una base Access en DAO

Option Explicit

Private Function DB_Connect(pwd As String) As Boolean
Dim db As Database
Dim connString As String

On Error GoTo Connect_error

connString = "MS Access;PWD=" & pwd
Set db = OpenDatabase("c:dbsecure.mdb", False, False, connString)
DB_Connect = True

Byebye:
Exit Function
Connect_error:
Select Case Err.Number
Case 3031 ' invalid password
MsgBox "Mot de passe de connection invalide.", vbExclamation,
"Erreur"
Case Else
MsgBox "Erreur innatendue:" & Err.Number, vbExclamation,
"Erreur"
End Select
DB_Connect = False
Resume Byebye
End Function

' Demande de connection à la DB
' Text1 contient le mot de passe de l'utilisateur
Private Sub Command1_Click()
Dim connect_state As Boolean
Dim password As String


password = Text1.Text
connect_state = DB_Connect(password)
If connect_state Then
MsgBox "Connection ok", vbInformation
Else
MsgBox "Probleme lors de la connection", vbCritical
End If
End Sub

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."