Comment faire une Connexion de serveur ?

Signaler
Messages postés
102
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
11 août 2019
-
Bonjour,

j'ai 6 poste 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...
'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.