Discussion :

[ZeldaLL]

Bien le bonjour !

Je possède un bout de code qui fonctionne et qui me permet de me connecter à une base de donnée odbc :

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
 
 
Tiers = Range("B2").Value
 
' Active la requête
With Selection.QueryTable
    .Connection = Array(Array( _
    "ODBC;DSN=crkp.world;UID=user;PWD=motdepasse;DBQ=CRKP.WORLD;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessf" _
    ), Array("ul;NUM=NLS;DPM=F;MTS=F;MDI=F;CSR=F;FWC=F;FBS=60000;TLO=0;"))
    .CommandText = Array( _
    "SELECT PAR.INT_KEY,PAR.NAME,PAR.VORNAME,PAR.STRASSE,PAR.ORT FROM KO.PAR PAR WHERE PAR.INT_KEY=" & "'" & Tiers & "'")
    .SavePassword = True
End With
 
ActiveWorkbook.RefreshAll

Malheureusement je suis trop novice en requête SQL pour comprendre comment je pourrais avoir le/les résultat(s) de cette commande dans une variable.

Un petit coup de main ?

Merci d'avance !

[Pierre Fauconnier]

Salut.

1. Je ne vois pas l'utilité du Array(...) pour le commandtext

2. Telle qu'écrite, la macro modifie la source de la plage de données qui reçoit les données externes. Si tu veux le résultat dans une variable, il faut que cette variable soit une variable de type recordset (adodb ou dao) puisque la requête renverra un jeu d'enregistrements (recordset en anglais). Il faudra soit transférer ce jeu à une plage (.copyfromrecordset), soit itérer sur les lignes renvoyées...

Que cherches-tu à réaliser?

[ZeldaLL]

Hello !

Je ne comprends pas bien comment ma commande pourrait-elle modifier la base de données avec un "SELECT", mais je dois avouer que si je connais un peu le VBA, je deviens un embrillon dès que ça touche aux bases de données, peut-être pourrais-tu m'éclairer ? :

Ce code m'a été donné par l'enregistreur de macro auto., il me sort sur une plage le nom, prénom, etc. de ma variable "Tiers".

Je souhaiterais ne pas devoir passer par une plage dans le classeur mais obtenir le résultat de ma requête dans un recordset (comme tu dis ^^), afin de pouvoir la traité avant. Chose que je ne sais pas faire !

J'ai écopé plusieurs forum mais il semble que toutes les bases de données ne fonctionnent pas pareil se qui me complique un peu les choses .

Merci pour ton aide !

[Pierre Fauconnier]

Je n'ai pas dit que cela modifiait les données dans la base de données, j'ai dit que cela modifiait la source des données => les valeurs récupérées dans la plage sont différentes.

Pour obtenir cela dans un recordset, tu dois :

1. référencer la librairie idoine ;
2. déclarer les variables de connexion et de recordset ;
3. ouvrir la connexion ;
4. ouvrir le recordset.

Pour référencer la librairie, va dans Outils > Références et choisis Microsoft Activex Data Object 2.7. Dans le code, tu dois instancier tes variables puis les connecter à tes données.

Code :

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

1
2
3
4
5
6
7
8
 
dim pCon as new adodb.connection
dim pRst as adodb.recordset
 
pCon.Open .Connection = Array(Array( _
    "ODBC;DSN=crkp.world;UID=user;PWD=motdepasse;DBQ=CRKP.WORLD;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessf" _
    ), Array("ul;NUM=NLS;DPM=F;MTS=F;MDI=F;CSR=F;FWC=F;FBS=60000;TLO=0;"))
set pRst= pCon.execute(""SELECT PAR.INT_KEY,...")

Après cela, tu peux parcourir le recordset

Code :

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

1
2
3
4
5
Do while not pRst.EOF
    ...
    ...
    pRst.MoveNext ' Très important, sinon boucle infinie !!!
loop

ou le coller à une plage de valeurs

Code :

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

plage.copyfromrecordset pRst