OVH Cloud OVH Cloud

Poblème de réseau

3 réponses
Avatar
Rouge_XIII
Bonjour,

J'ai développé deux bases de données Access :
-> l'une contenant les données (avec les tables)
-> l'autre étant contenant "l'interface" (états, formulaires, etc...)
Pour créer le lien entre les deux bases j'ai développé une fonction
"connection" contenu dans un module de nom "Chaine_Connection" qui est la
suivante :

Public Sub Connection()
'--On teste si la base n'est pas déjà ouverte
'--
If CN.State <> adStateOpen Then
'Ouverture de la Connection à la base de Données
CN.Open "DBQ=Data.mdb;DefaultDir=" & Application.CurrentProject.Path &
";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS
Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
End If
End Sub

La base est actuellement sur mon disque dur (CN.Open
"DBQ=Data.mdb;..."). J'aimerai que celle ci reste le reste mais
qu'elle soit accessible depuis un autre poste client. J'ai essayé de changer
le chemin en remplacant : DBQ=Data.mdb par : "DBQ=\\<nom de mon
PC>\DataBase\data.mdb;..." (chemin réseau ou est contenu ma base) mais la
connexion ne se fait pas !

Pourriez vous m'aider et m'éclaircir sur les éventuelles erreurs ?
Vous remerçiant par avance de l'intérête que vous porterez à ma requête.
Bien cordialement.

Rouge_XIII

3 réponses

Avatar
Titi
Bonjour,

J'ai développé deux bases de données Access :
-> l'une contenant les données (avec les tables)
-> l'autre étant contenant "l'interface" (états, formulaires, etc...)
Pour créer le lien entre les deux bases j'ai développé une fonction
"connection" contenu dans un module de nom "Chaine_Connection" qui est la
suivante :

Public Sub Connection()
'--On teste si la base n'est pas déjà ouverte
'--
If CN.State <> adStateOpen Then
'Ouverture de la Connection à la base de Données
CN.Open "DBQÚta.mdb;DefaultDir=" & Application.CurrentProject.Path &
";Driver={Microsoft Access Driver (*.mdb)};DriverId%;FIL=MS
Access;ImplicitCommitSync=Yes;MaxBufferSizeQ2;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID­min;UserCommitSync=Yes;"
End If
End Sub

La base est actuellement sur mon disque dur (CN.Open
"DBQÚta.mdb;..."). J'aimerai que celle ci reste le reste mais
qu'elle soit accessible depuis un autre poste client. J'ai essayé de changer
le chemin en remplacant : DBQÚta.mdb par : "DBQ=<nom de mon
PC>DataBasedata.mdb;..." (chemin réseau ou est contenu ma base) mais la
connexion ne se fait pas !

Pourriez vous m'aider et m'éclaircir sur les éventuelles erreurs ?
Vous remerçiant par avance de l'intérête que vous porterez à ma requête.
Bien cordialement.

Rouge_XIII


Bonsoir,

Pourquoi tu ne lie pas tout simplement ta table avec ta "base interface" !

Dans ta base DATA.mdb tu exporte la table vers la "base interface"
ensuite tu va dans la "base interface" fichier/donnée externe/lier les
tables puis tu va rechercher la base DATA et tu selectionne la table a lier.
Dans ta "base interface" la table lier apparait maintenant avec une
fleche noire sur le coté. Cette table est devenu en réalité un
raccourci, mais exploitable dans la "base interface" tu peut par exemple
la supprimer, elle sera toujours dans la base DATA.

J'espère avoir pu te faire avancer.
Salutations,
Titi

Avatar
Rouge_XIII
Bonjour Titi,

Effectivement ça fonctionne mieux en liant les tables manuellement.
L'utilité ici d'avoir développé une chaîne de connexion en VBA (cf code
joint ci dessus) fut pour gérer l'administration de la base. Après quelque
changement concernant ces formulaires d'administration (mot de passe
utilisateur et login) ceux ci fonctionnent maintenant correctement !
Je te remercie pour toute l'aide que tu m'as apporté.
Cordialement.

Rouge_XIII


Bonjour,

J'ai développé deux bases de données Access :
-> l'une contenant les données (avec les tables)
-> l'autre étant contenant "l'interface" (états, formulaires, etc...)
Pour créer le lien entre les deux bases j'ai développé une fonction
"connection" contenu dans un module de nom "Chaine_Connection" qui est la
suivante :

Public Sub Connection()
'--On teste si la base n'est pas déjà ouverte
'--
If CN.State <> adStateOpen Then
'Ouverture de la Connection à la base de Données
CN.Open "DBQÚta.mdb;DefaultDir=" & Application.CurrentProject.Path &
";Driver={Microsoft Access Driver (*.mdb)};DriverId%;FIL=MS
Access;ImplicitCommitSync=Yes;MaxBufferSizeQ2;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID­min;UserCommitSync=Yes;"
End If
End Sub

La base est actuellement sur mon disque dur (CN.Open
"DBQÚta.mdb;..."). J'aimerai que celle ci reste le reste mais
qu'elle soit accessible depuis un autre poste client. J'ai essayé de changer
le chemin en remplacant : DBQÚta.mdb par : "DBQ=<nom de mon
PC>DataBasedata.mdb;..." (chemin réseau ou est contenu ma base) mais la
connexion ne se fait pas !

Pourriez vous m'aider et m'éclaircir sur les éventuelles erreurs ?
Vous remerçiant par avance de l'intérête que vous porterez à ma requête.
Bien cordialement.

Rouge_XIII


Bonsoir,

Pourquoi tu ne lie pas tout simplement ta table avec ta "base interface" !

Dans ta base DATA.mdb tu exporte la table vers la "base interface"
ensuite tu va dans la "base interface" fichier/donnée externe/lier les
tables puis tu va rechercher la base DATA et tu selectionne la table a lier.
Dans ta "base interface" la table lier apparait maintenant avec une
fleche noire sur le coté. Cette table est devenu en réalité un
raccourci, mais exploitable dans la "base interface" tu peut par exemple
la supprimer, elle sera toujours dans la base DATA.

J'espère avoir pu te faire avancer.
Salutations,
Titi




Avatar
Didier Bicking
Dans le menu Outils -Utilitaire de bases de données, il y a Gestionnaire de
tables liées. A utiliser si ta table Data.mdb change de place.

Conseil : mets la table Data.mdb sur le serveur. Elle sera alors directement
accessible par chacun des utilisateurs. Il suffit que les base Prog.mdb,
présentes en local chez chaque utilisateur, aient toutes les tables
attachées à partir du serveur.

--
Bon courage
Didier Bicking
"Rouge_XIII" a écrit dans le message
de news:
Bonjour Titi,

Effectivement ça fonctionne mieux en liant les tables manuellement.
L'utilité ici d'avoir développé une chaîne de connexion en VBA (cf code
joint ci dessus) fut pour gérer l'administration de la base. Après quelque
changement concernant ces formulaires d'administration (mot de passe
utilisateur et login) ceux ci fonctionnent maintenant correctement !
Je te remercie pour toute l'aide que tu m'as apporté.
Cordialement.

Rouge_XIII


Bonjour,

J'ai développé deux bases de données Access :
-> l'une contenant les données (avec les tables)
-> l'autre étant contenant "l'interface" (états, formulaires, etc...)
Pour créer le lien entre les deux bases j'ai développé une fonction
"connection" contenu dans un module de nom "Chaine_Connection" qui est
la
suivante :

Public Sub Connection()
'--On teste si la base n'est pas déjà ouverte
'--
If CN.State <> adStateOpen Then
'Ouverture de la Connection à la base de Données
CN.Open "DBQÚta.mdb;DefaultDir=" & Application.CurrentProject.Path &
";Driver={Microsoft Access Driver (*.mdb)};DriverId%;FIL=MS
Access;ImplicitCommitSync=Yes;MaxBufferSizeQ2;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID­min;UserCommitSync=Yes;"
End If
End Sub

La base est actuellement sur mon disque dur (CN.Open
"DBQÚta.mdb;..."). J'aimerai que celle ci reste le reste mais
qu'elle soit accessible depuis un autre poste client. J'ai essayé de
changer
le chemin en remplacant : DBQÚta.mdb par : "DBQ=<nom de mon
PC>DataBasedata.mdb;..." (chemin réseau ou est contenu ma base) mais
la
connexion ne se fait pas !

Pourriez vous m'aider et m'éclaircir sur les éventuelles erreurs ?
Vous remerçiant par avance de l'intérête que vous porterez à ma
requête.
Bien cordialement.

Rouge_XIII


Bonsoir,

Pourquoi tu ne lie pas tout simplement ta table avec ta "base interface"
!

Dans ta base DATA.mdb tu exporte la table vers la "base interface"
ensuite tu va dans la "base interface" fichier/donnée externe/lier les
tables puis tu va rechercher la base DATA et tu selectionne la table a
lier.
Dans ta "base interface" la table lier apparait maintenant avec une
fleche noire sur le coté. Cette table est devenu en réalité un
raccourci, mais exploitable dans la "base interface" tu peut par exemple
la supprimer, elle sera toujours dans la base DATA.

J'espère avoir pu te faire avancer.
Salutations,
Titi