Bonjour,

j'ai 6 postes ligne entre eux, par réseau local avec membre de réseau (Domaine).
j'ai créer une application avec VB 6.0 (Dao 3.6 + Access )
Nom de Domaine est :(Serveur.Local)
1- les informations de PC qui contient le Serveur :
- Système d'exploitation :(Windows Server 2003)
- Nom de PC : (SERVER)
- Adresse IP : 192.168.1.245
2-les informations consiste les cinq postes est:
- Système d'exploitation :(Windows XP S.P 3)
NB, que les toutes Postes et bien ligne, avec les câbles, et aussi les données sont partager dans (SERVER),
Donc pas problème dans Réseau Local.
Moi, J'ai Installer mon logiciel dans les cinq postes, et j'ai mettre la base de donnée Access Dans le PC (SERVER) à l'intérieur de répertoire (PARFUMER), et j'ai partage ce dossier(PARFUMER).
NB, ce Partage et bien affiché dans toute cinq Poste.
Mais quand J'ai exécuter mon logiciel dans 2,3,4,5,6 poste, j'ai un erreur de connexion de base de donnée, le programme s'affiche mais pas de donnée.

Pour Le code VB et le suivant :
s'il vous plait aide-moi...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
'j'ai créer un fiche (adressejibal.txt) avec bloc note, qui prendre nom de server 
' 1- dans le Module1, j'ai fait ça: 
' 2- dans menu principal (Form2) j'ai créer un LABEL3 pour affiche le nom de 'serveur. 
 
Global dd As Database 
Global PAS As Recordset 
Global ART As Recordset 
 
Public Sub CONNECTK() 
On Error Resume Next 
Dim fichier_addr, adresse_PC 
chemin = App.Path & "\adressejibal.txt" 
Close 
Open chemin For Input As #1 
Line Input #1, buffer 
adresse_PC = buffer 
Form2.Label3.Caption = adresse_PC 
Close 
End Sub 
 
 
Public Sub COnnECT() 
On Error Resume Next 
Dim STRDBNAME As String 
STRDBNAME = (Form2.Label3.Caption & "\PARFUMER\ROSH.MDB") 
Set dd = DBEngine.OpenDatabase(STRDBNAME, False, False) 
End Sub 
 
' 3-dans menu principal(form2), j'ai fait ça: 
 
Private Sub Form_Activate() 
On Error Resume Next 
CONNECTK 
 
End Sub 
 
Private Sub Form_Load() 
On Error Resume Next 
CONNECTK 
COnnECT 
Set PAS = dd.OpenRecordset("pass") 
Set ART = dd.OpenRecordset("ARTICLE") 
End sub 
'4 - pour l'adresse de requête SQL J'ai fait ça: par exemple 
Dim d As Database 
Dim r As Recordset 
Set d = OpenDatabase(Form2.Label3.Caption & "\PARFUMER\ROSH.MDB")
Merci d'avance de votre réponse !

J'ai besoin d'un code de connexion de base de donnée très professionnelle.
qui respect les outils suivant:( Access et VB 6.O "DAO 3.6" et réseau local domaine)

merci.