Discussion :

[aldapal]

Bonjour!

J'essaie de faire une requête de mise-à-jour dans une BD Oracle avec une macro Excel VBA, mais à chaque fois ça me demande le mot de passe. Pour contrer ce problème, j'ai essayer de faire ce qui suit :

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
 
    Dim objConn As DAO.Database
    Dim objRS As DAO.Recordset
 
    Dim ConnectStr As String
    ConnectStr = "Driver={Microsoft ODBC for Oracle};& Source=maBD.WORLD;& UID=information;& Password=information"
 
    Set objConn = OpenDatabase(ConnectStr)
 
    Set wbkClasseur = Workbooks.Add
 
[traitement...]
 
    Set objRS = Nothing
    objConn.Close
    Set objConn = Nothing

mais ça me donne un message d'erreur que le fichier Driver={Microsoft ODBC for Oracle};& Source=maBD.WORLD;& UID=information;& Password=information est introuvable...

Quel est alors le meilleur moyen de procéder pour accéder à ma BD sans avoir à entrer le mot de passe à chaque fois?

Merci!!

aldapal

[jfontaine]

as tu essayé de créer la connexion ODBC lanuellement et d'utiliser cette connexion dans Excel

Code :

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

1
2
 
ConnectStr ="DSN=NomOdbc; UID=User; PWD=MotdePasse""

[aldapal]

Même erreur.... "Erreur d'exécution '3024': Fichier introuvable"

Si ça peut aider, ma BD est en Oracle 73 Ver 2.5...

[aldapal]

En fait, ce que je veux exactement, c'est de faire un rafraichissement des données externes qui sont sur mon Excel via une macro VBA, sans que ça demande le mot de passe, puisque la macro s'exécutera automatiquement...

Je veux donc pouvoir me connecter à la BD en y forçant le user/mdp et ensuite faire un Selection.QueryTable.Refresh BackgroundQuery:=False.

Mais pour l'instant, ça demande toujours un mot de passe...

Merci d'avance!!

[kiki29]

Soir Bon, jeter un oeil sur http://www.carlprothman.net/Default.aspx?tabid=81

[begsym]

Voilà ce que je fais avec SQL Server

je charge en VB, la string de connexion avant de rafraichir l'onglet, les données de connexion sont dans une feuille du classeur qui peut être protégée si nécessaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Preparation de la string de connection "connect"
server = Range("Base").Cells(2, 2)
base = Range("Base").Cells(3, 2)
login = Range("Base").Cells(4, 2)
password = Range("Base").Cells(5, 2)
connect = "ODBC;DRIVER=SQL Server;SERVER=" & server & _
";UID=" & login & _
";PWD=" & password & _
";APP=Microsoft® Query;;DATABASE=" & base
Worksheets("Brut").QueryTables(1).Connection = connect
 
' Refresh
Selection.QueryTable.Refresh BackgroundQuery:=False