Discussion :

[quanou]

Bonjour,

J'ai créé une base SQL Server 2008 et utilise Access pour les formulaires.
La création du lien ODBC marche très bien

Mais maintenant, j'aimerais me connecter à cette base, toujours via ODBC mais par code.

Le problème est que la fenêtre de demande d'ID de connexion + mot de passe apparaît 2 fois :
1) La liaison manuelle originale
2) Le nouveau code

Comment faire pour que cela ne prenne plus en compte la liaison (1) ?

Merci d'avance pour votre aide

[quanou]

Bon, j'ai trouvé une solution adaptée à mon problème :

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
    ' On regarde machine pour adapter chaine connexion. Si MachineName <> DSN, on change.
    ' Table dbo_TrParam en premier
    ' On regarde la chaine de connexion courante. Si <> pour la machine, on remplace
 
    Set db = CurrentDB
    Dim MachineName As String
    MachineName = Environ("COMPUTERNAME")
    Set td = db.TableDefs("dbo_TrParam")
 
    Dim strCurrentConn As String
 
    strCurrentConn = td.Connect
 
    iPos = InStr(1, strCurrentConn, "UID")
    strProfil = Mid(strCurrentConn, iPos + 4, 2)
 
    Dim strConn As String
 
    If (strProfil <> MachineName) Then
        strConn = "ODBC;DSN=" & MachineName & ";DATABASE=LA_BASE;UID=" & MachineName & ""
 
        For Each td In db.TableDefs
            If ((td.Attributes And dbSystemObject) = 0) Then
              If (InStr(td.Name, "dbo_")) Then
                td.Connect = strConn
                td.RefreshLink
              End If
            End If
        Next td
 
    End If