Accés base de données avec mot passe et VB6

Bonjour,

J'ai trouvé ce code sur VBF france qui me convient mais j'aurais besoin d'y insérer un code pour accéder à la base de données qui contient un mot de passe qui serait par exemple : PASSE

Comment faire, quoi ajouter et ou ??

Private Sub Form_Load()

  'Déclaration des variables
  Dim DataBaseFile As String
  Dim RstQuery As Recordset
  Dim strsql As String
  'Chemin de la base de données
  DataBaseFile = App.Path & "\jeu-Access97.mdb"
  'On attribue une référence à la variable DB
  Set Db = OpenDatabase(DataBaseFile)
 
  'On désactive le bouton informations puisqu'aucun
  'résultat n'est visible dans ListeJeux
  Informations.Enabled = False
 
  ' Ceci est la requête qui permet d'insérer et de trier
  ' alphabétiquement les noms de consoles dans ConsolesCombo
  strsql = "SELECT console FROM identification group by console"
    Set RstQuery = Db.OpenRecordset(strsql)
    If Not (RstQuery.BOF And RstQuery.EOF) Then
        Do While Not RstQuery.EOF
            'On affiche les noms des consoles dans ConsolesCombo
            ConsolesCombo.AddItem RstQuery.Fields("console").Value
            RstQuery.MoveNext
        Loop
    End If
 
 
End Sub

Merci par avance

Essaie :

OpenDataBase(DbFileName, False, False, ";pwd=" & DbPass)

@+

E.B.

Bonjour,
Tu peux placer une Form de démarrage, sur cette Form tu places un TextBox (txtMotDePasse, TabIndex à 0), un CommandButton et un Label au dessus du TextBox.(ici le mot de passe est ftg87)

Code :

Private Sub Command1_Click()
'La variable compteur servira à compter le nombre de tentatives.
Static compteur As Byte
compteur = compteur + 1
If txtMotdePasse = "ftg87" Then
Unload Me
    Form2.Show 'Nom de ta Form qui contient ta liaison à la base de données.
    Else
'Si c'est la 3ème fois que l'utilisateur entre un mot de passe incorrect, le programme prend fin.
If compteur = 3 Then
MsgBox "Echec dans la saisie du mot de passe. " & _
vbCr & "La commande ne peut-être exécutée", _
vbOKOnly + vbExclamation, "Mot de passe incorrect"
End
End If
MsgBox "Le mot de passe fourni n'est pas correct. ", _
vbOKOnly + vbExclamation, "Mot de passe incorrect"
txtMotdePasse.Text = ""
txtMotdePasse.SetFocus
Me.Caption = "Entrez le mot de passe. Tentative " & _
compteur + 1 & " sur 3"
End If

End Sub

Private Sub Form_Load()
Me.Caption = "Tentative 1 sur 3"
Label1.Caption = "Entrez votre mot de passe"
End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée.