Bonsoir,
merci de m'aider j'arrive pas a cibler le probleme
le probleme est comme suit :
j'ai créé une base de donnés Access, et puis j'ai la protégé par un mot de pass"1230"
qunad je voudrais accéder a cette base de données a partir de visual basic, je recois le message suivant :
"Impossible de Démmarer Votre Application. Le Fichier d'information du groupe du travail est absent ou
ouvert en mode exclusif par un autre utilisateur"
et voila le code de connexion a la base
Public MaCnn As ADODB.Connection
Public Function IsConnected() As Boolean
Dim MaCnn As New ADODB.Connection
On Error GoTo err:
MaCnn.CursorLocation = adUseClient
MaCnn.ConnectionString = GetConnectionString
MaCnn.Open
IsConnected = True
Exit Function
err:
MsgBox err.Description
IsConnected = False
End Function
Public Function GetConnectionString() As String
GetConnectionString = "Provider=Microsoft.Jet.OlEDB.4.0;data source=" & chemin & ";User id=Administrateur;Password=1230"
End Function
Public Sub Config_Load()
On Error GoTo Erreur
'OVERTURE DU FICHIER CONFIG.CFG
Open "C:\Gestion Commerciale\Config.cfg" For Input As #1
Input #1, chemin
Close #1
Exit Sub
Erreur:
'LE FICHIER CONFIG.CFG N'EXISTE PAS
Open "Config.cfg" For Output As #2
Close #2
Open "config.cfg" For Append As #2
Print #2, "C:\"
Close #2
Resume
End Sub
Merci de m'envoyer la réponse le plus possible, merci encore une fois