Discussion :

[sylv20]

Bonjour,

Je me trouve face a un problème et je galère un peu.

Je dois aller chercher les infos dans une table via ODBC et l'insérer dans ma base via ODBC.

J'arrive à insérer ma table mais à chaque nouveau démarrage de la base et utilisation de cette table, j'ai une demande de mot de passe. Je voudrais que ce mot de passe soit intégrer à ma base et qu'il ne me demande plus à chaque utilisation.

J'ai essayé avec ce code mais à mon avis c'est pas le top :

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
Set dbsCurrent = CurrentDb
'  Chaîne de connexion
strConn = "ODBC;" & _
          "DSN=DSN;" & _
          "UID=UID;PWD=PWD"
' Création nouvelle définition de table
Set tdfLinked = dbsCurrent.CreateTableDef("ref_gima")
' Optionnel : Sauver mot de passe
tdfLinked.Attributes = tdfLinked.Attributes Or dbAttachSavePWD
' Chaîne de connexion ODBC pour DAO
tdfLinked.Connect = strConn
' Nom de la table source
tdfLinked.SourceTableName = "dbo.Ref"
 
'Rafraichit les données
'tdfLinked.RefreshLink
' Ajouter à la collection
dbsCurrent.TableDefs.Refresh
 
dbsCurrent.Close
 
' Actualiser fenêtre base de données pour que la nouvelle table apparaisse
Application.RefreshDatabaseWindow

A mon avis il existe mieux.

[LedZeppII]

Bonsoir,

L'équivalent «à la main» du code, consiste à cocher la case «Enregistrer le mot de passe» de l'assistant importation, au moment où on sélectionne la table à attacher (lier).

A+