Discussion :

[billybob2]

Bonjour à tous ,

J'ai développé une application(.adp) Client/serveur Access2003 Runtime connectée à une base SQL Serveur 2000 .

J'ai installé cette application sur plusieurs PC et lorsque je regarde sur SQL Serveur (Enterprise Manager) toutes les connections de mon application ont le même Hostname , celui du PC qui a servi à créer l'application (le mien) !!

Après quelques recherches , j'ai inspecté les propriétés de la connexion de mon fichier ADP et la propriété WORKSTATION ID est initialisée systématiquement avec la valeur COMPUTERNAME de mon ordinateur.

Quelqu'un sait-il comment faire pour que l'application installée sur différents PC se connectent avec leur propre identifiant PC (COMPUTERNAME) ?

Merci d'avance

Jean-Yves

[LedZeppII]

Bonjour,

il semble en effet que lorsqu'on établit la connexion au serveur par le menu Fichiers->Connexion le nom de la Station de travail soit enregistré dans le projet ADP.

Après quelques essais j'ai réussi à enlever le nom de la station de travail.
Fonction à exécuter chaque fois que l'on crée ou modifie la connexion par le menu Access.
(Je suis en Access 2003)

Code vb :

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
Function RefreshConn()
Dim strConn As String, strWKSTAparam As String
Dim p1 As Long, p2 As Long
 
strConn = CurrentProject.BaseConnectionString
p1 = InStr(1, strConn, "Workstation ID=", vbTextCompare)
If p1 > 0 Then
   ' Recherche un éventuel séparateur (;) à la fin de
   ' <paramètre>=<valeur> pour le paramètre Workstation ID
   p2 = InStr(p1, strConn, ";")
   If p2 = 0 Then
      p2 = Len(strConn) + 1
      strWKSTAparam = Mid(strConn, p1, p2 - p1)
   Else
      strWKSTAparam = Mid(strConn, p1, p2 + 1 - p1)
   End If
   Debug.Print strWKSTAparam
   ' Enlève paramètre "Workstation ID"
   strConn = Replace(strConn, strWKSTAparam, "")
End If
 
' Déconnecte projet ADP
CurrentProject.CloseConnection
' Reconnecte projet ADP avec chaîne de connexion sans Workstation ID
CurrentProject.OpenConnection strConn
 
End Function

A+

[billybob2]

Merci bien .

Celà fonctionne parfaitement .

[billybob2]

Je pondère ma réponse . Le Worstation Id est effectivement réinitialisé et s'affiche correctement sur SQL Server mais par contre celà génère un autre problème.

J'initialise la variable de connexion "Application Name" avec le nom de mon application ainsi que la version de celle-ci hors àprès l'exécution de RefreshConn cette variable est elle aussi réinitialisée.
Du coup sur SQL Serveur je perds l'information Application Name car toutes les applications renvoient "Microsoft Access".