Err 3146 :Pb de Connection à une base DB2

cs_BigCheese Messages postés 6 Date d'inscription jeudi 21 juin 2007 Statut Membre Dernière intervention 3 juillet 2007 - 28 juin 2007 à 16:10
region5 Messages postés 1 Date d'inscription mercredi 4 juillet 2007 Statut Membre Dernière intervention 4 juillet 2007 - 4 juil. 2007 à 16:31
Bonjour,
Et oui encore moi ...New prg, new pb ..
Je viens de récupérer une macro excel. Objectif de cette macro: Récupérer des stats dans une base DB2 via un lien ODBC.
Lorsque que j'exécute la macro ca me donne une erreur 3146 ODBC Failed Grrrrrrrrrrr
Voici le code.

Dim wrkODBC As DAO.Workspace
Dim conSie As DAO.Connection
Dim parm_user As String
Dim parm_psw As String
Dim parm_dba As String
parm_user = "USER"
parm_psw = "psw"
parm_dba = "DatabaseDB2"

Private Sub OpenConnectionX(WrkOpen As DAO.Workspace, conOpen As DAO.Connection)


    Set WrkOpen = DBEngine.CreateWorkspace("ODBCDirect DB2", "admin", "", dbUseODBC)
    Set conOpen = WrkOpen.OpenConnection("", dbDriverNoPrompt, False, "ODBC;UID=" & parm_user & ";PWD=" & parm_psw & ";DSN=" & parm_dba)
   
    conSie.QueryTimeout = 120
   
End Sub

Voyez vous un truc qui coince, peut etre faudrait il que j'utilise ADO au lieu de DAO. Je débute, j'ai aucune idée de l'apport de ADO.

Merci d'avance.
Fred

2 réponses

cs_BigCheese Messages postés 6 Date d'inscription jeudi 21 juin 2007 Statut Membre Dernière intervention 3 juillet 2007
3 juil. 2007 à 09:21
Youhouuuuu .. snifff personne n'a d'idée ...
J'suis vraiment planté .; donnez moi juste des chemins .; j'ai épuisé tous mes critères de recherche sur google..
Help meeeeeee ;-))
0
region5 Messages postés 1 Date d'inscription mercredi 4 juillet 2007 Statut Membre Dernière intervention 4 juillet 2007
4 juil. 2007 à 16:31
Tu dois passer en ADO /OLEDB

NoRisk ->NoFun !
0