Discussion :

[raphsss]

Bonjour,

j'ai une base de donnée qui contient des tables liés via ODBC.
je voudrais faire un bouton qui permet de se logguer à ODBC via le code VBA.

j'ai récupérer le code de la FAQ.
le code semble fonctionner mais si j'ouvre une table lié, je doit me reconnecter manuellement à l'ODBC.
Comment faire pour que la connection à l'ODBC soit définitive ?
merci pour votre aide

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
 
Public Function InitConnection(DSN As String, UserName As String, PassWord As String) As Boolean
  Dim query As String
  Dim cnxString As String
  Dim RequeteOk As Boolean
  Dim ADOCnx As ADODB.Connection
  Set ADOCnx = New ADODB.Connection
 
  'Dim mRst As New ADODB.Recordset
 
  InitConnection = False
  'Initialisation de la chaine de connexion
  ADOCnx.ConnectionString = "DSN=" & DSN & ";"
 
  'Vérifie que la connexion est bien fermée
  If ADOCnx.State = adStateOpen Then
    MsgBox ("ferme la connection")
    ADOCnx.Close
  End If
  On Error GoTo BadConnection
  'Connexion à la base de données
  ADOCnx.Open cnxString, UserName, PassWord
  'Attente que la connexion soit établie
  While (ADOCnx.State = adStateConnecting)
    DoEvents
   Wend
  'Vérification des erreurs dans le cas d'une mauvaise connexion
  If ADOCnx.Errors.count > 0 Then
    'Affichage des erreurs
    MsgBox ADOCnx.Errors.Item(0)
    InitConnection = False
    Exit Function
  Else
    InitConnection = True
   End If
   Exit Function
 
BadConnection:
If ADOCnx.Errors.count > 0 Then
    'Affichage des erreurs
    MsgBox ADOCnx.Errors.Item(0)
    InitConnection = False
    Exit Function
Else
    MsgBox err.Description
End If
End Function

[argyronet]

Bonjour,

Tu peux jeter un oeil à ce post.

Argy

[raphsss]

Je voudrais simplement simuler la connection manuelle ODBC sans avoir à lister les tables liées qui sont nombreuses et qui vont etre modifiées.

En manuel, si je me connecte une seul fois via odbc, je peut ensuite ouvrir n'importe quelles tables liées via odbc.

Actuellement, j'ai un bouton "login" qui ouvre une table ce qui a pour effet d'afficher la boite de connection odbc puis je referme la table.

[argyronet]

Hummm, et alors ???
Quel est le problème en fait ?

Argy

[raphsss]

au lieu de devoir insérer le user et le mot de passe dans la boite de dialogue ODBC, je voudrais faire la connection via vba, comme ca : il n'y a plus besoin de rentrer le user et le mot de passe dans cette boite de dialogue.

[argyronet]

Eh bien dans ce code (du post en question ), ce que tu demandes correspond ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
strConnect = "ODBC;DSN=" & DSN & ";UID=" & UID & ";PWD=" & PWD & _
  ";DATABASE=" & DB

C'est à toi de le définir soit codé dans une table, dans un fichier ou encore dans la base de Registre...
Et le tour est joué.

Argy

Argy

[raphsss]

Salut,

j'ai repris le code, j'ai une erreur (Table "NomTable" already exist) par contre suite à cette erreur je suis bien connecter à l'odbc et je peux ouvrir les autres tables linkés sans problème...

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Set oDB = CurrentDb
strConnect = "ODBC;DSN=" & NomduDSN & ";UID=" & NomUtilisateur & ";PWD=" & MotDEPasse
Set oTD = CurrentDb.CreateTableDef(NomTable)
oTD.Connect = strConnect
oTD.SourceTableName = (NomTable)
 
oDB.TableDefs.Append oTD 
'c'est cette ligne qui fait que la connection ODBC fonctionne ensuite, mais c'est aussi cette ligne qui provoque le message d'erreur.

Est ce que je pourrais remplacer cette ligne par autre chose pour ne pas avoir d'erreur ?

[argyronet]

Si tu as bien lu le code, tu vois cette instruction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If TableIsAlreadyAttached(TableName) Then Exit Sub

A toi de la développer;
Si tu n'y arrives pas, alors je t'envoie le code.

Argy

[raphsss]

Salut,

je veux bien le code.

Merci

[argyronet]

C'est ce qu'il s'appelle chercher par soit-même !!!

Bon, je me fends d'un peu de code...
C'est pourtant ultra simple comme fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function TableIsAlreadyAttached(ByVal TableName As String) As Boolean
Dim oRS As DAO.Recordset
  
  On Error GoTo Not_Exist
  Set oRS = CurrentDb.OpenRecordset("SELECT * FROM " & TableName, 2)
  TableIsAlreadyAttached = (Not oRS Is Nothing)
  oRS.Close
  
Check_Exist:
  Set oRS = Nothing
  Exit Function
Not_Exist:
  Resume Check_Exist
End Function

Argy