Mot de passe et Connection [Résolu]

Question

Mot de passe et Connection [Résolu]

Signaler

jsem2k1

Messages postés: 125
Date d'inscription: samedi 11 décembre 2004
Statut: Membre
Dernière intervention: 12 août 2008

- 14 juil. 2005 à 19:41
Zlub

Messages postés: 809
Date d'inscription: mercredi 11 octobre 2000
Statut: Membre
Dernière intervention: 29 septembre 2010

- 16 juil. 2005 à 21:55

Voi la j'ai un problème. J'ai une basse de donner access qui est protégé par un mot de passe et quand je veux me connecter a cette base de donner sous vb il me donne une erreur Impossible de démarrer votre application. Le fichier d'informations du groupe de travail est absent ou ouvert en mode exclusif par un autre utilisateur.

et la je ne sais pas quoi Faire

voila mon code
With cn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Persist Security Info=True;Password=tata;Data Source=" & App.Path & "\data.mdb"
.Open
End With
....

The J

A voir également:

4 réponses

Réponse 2 / 4

cs_DARKSIDIOUS

Messages postés: 15814
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

118
14 juil. 2005 à 20:16

Vérifie que ta base de données n'est pas déjà lancée par un logiciel...

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Réponse 3 / 4

cs_ricounet34

Messages postés: 24
Date d'inscription: jeudi 2 juin 2005
Statut: Membre
Dernière intervention: 29 juillet 2005

14 juil. 2005 à 22:40

essaie ca :

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _

& "Data Source=" & App.Path & "\data.mdb" & _

";Jet OLEDB:Database Password=tata;Persist Security Info=False"

Réponse 4 / 4

jsem2k1

Messages postés: 125
Date d'inscription: samedi 11 décembre 2004
Statut: Membre
Dernière intervention: 12 août 2008

1
15 juil. 2005 à 19:34

J'ai vériffier qu'il n'y avais pas d'autre prog qui utilisais la base de donné et j'avais déja essayer la
The J

Posez votre question

Zlub · Accepted Answer · 2005-07-16T21:55:39+0200

Salut,

J'utilise la même chaine de connexion que Ricounet34 sans pb... sauf
erreur dans le chemin de ta base ou de password, je ne vois pas... Tu
peux essayer ça :

' Procédure de connexion à la base

Public Sub ConnexionBase(
URL_BASE as string, optional
dbPassWord as string
= "")

Dim ChaineConnexion As String

On Error GoTo erreur

ChaineConnexion =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & URL_BASE &
";Persist Security Info=False;"

ChaineConnexion = ChaineConnexion & "Jet OLEDB:Database Password=" & dbPassWord

cn.Open ChaineConnexion

Exit Sub

erreur:

If cn.State = 1 Then cn.Close

msgbox "Erreur de connexion à la base : " &
URL_BASE & " avec le passwd : " & dbPassWord _

& vbnewline & Err.Description

End sub

' Appel de la connexion

Call ConnexionBase(App.Path & "\data.mdb", "tata")

@+

zlub

Votre réponse