Bonjour PCPT et jack. Je vous remercie sincèrement pour vos interventions.
Voici mon code de connexion qui se trouve dans un module:
Public cn As New ADODB.Connection
Public Sub connect()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "\\serveur\DB\BDConsultation.mdb"
cn.Open
End Sub
Maintenant, chaque fois que j'ouvre un formulaire qui interagit avec ma BD je fais ceci :
connect
'Par exemple
Dim rstypeconsultation As New ADODB.Recordset
rstypeconsultation.Open "select * from tabletypeconsultation where typeconsultation = '" & Replace(cmbtypeconsultation.Text, "'", "''") & "' ", cn, adOpenStatic, adLockPessimistic
Ma BD se trouve dans un répertoire partagé sur une machine distante. Le réseau marche très bien mais seul un utilisateur peut se connecter à ma BD.
Non je n'ai pas de problème lorsque je lance deux exécutables qui se connecte à ma BD. Tout marche correctement.
Qu'en pensez-vous?
Merci d'avance pour votre aide.