[E-07] Problème avec la requete SQL

Bonjour

J'ai un souci avec mes requetes SQL alors j'ai un fichier .fic qui me sert de base de données. dans ce fichier j'ai une rubrique a 2 dimensions c'es à dire :


Rubrique : TCACTIT | TCACTIT
= toto tata


lorsque je fais ma requete voir code si dessous :

s_Chaine = TCACTIT

Code:

---

1 2 3 4 5 6 7 8

s_Liste = "SELECT " & s_Chaine & " FROM Dossier " ADD_Dossier.Open s_Liste, ConnCACAO, adOpenStatic, adLockReadOnly If ADD_Dossier.EOF = True Then v_Result = CVErr(xlErrValue) Else v_Result = ADD_Dossier(s_Chaine) End If

---

v-Result = toto
j'aimerai avoir tata comme résultat

je ne sais pas comment faire???

cordialement law56100

Bonjour,
si j'ai bien compris tu récupéres ou devrais récupérer un tableau.

Alors il faut voir si tu sais le manipuler directement via un code du genre

Code:

---

1 2 3 4

for nbr_elem = 0 to ubound(v_result) msgbox v_result(nbr_elem) next

---

Sinon essaie avant avec SPLIT et vois s'il te fais la décomposition de ton champs

Code:

---

1 2 3 4 5

tablo = split(v_result) for nbr_elem = 0 to ubound(tablo) msgbox v_result(tablo) next

---

je ne comprends pas trop pourquoi tu va sur v_Result. le problème viende ma requete et de cette ligne de commande

Code:

---

v_Result = ADD_Dossier(s_Chaine)

---

ADD_Dossier(s_Chaine) =toto parce que je pense que par defaut il prend l'indice 1 de mon tableau et moi j'aimerai prendre l'indice 2 et je pense que c'est au niveau de ma requete "Select .... from .... where ..." que je dois sélectionner l'indice n°2

Oops,
j'ai été sur v_result car c'est toi qui l'a écrit dans ton post :

Citation:

---

v-Result = toto

---

Je ne sais pas comment au niveau de ta requète tu peux sélectionner l'indice 2, ni même si c'est possible.

Essaie toujours ma technique.

J'ai trouver une solution

Add_Dossier(69) correspond a TCACTIT = toto
Add_Dossier(70) correspond a TCACTIT = tata

maintenat comment je fais pour connaitre que c'est 69???

dans ma requete j'ai flieds => item (69) => Name = "TCACTIT"

comment je récuppère la valeur de item avec la requete et le nom de ma rubrique

Voici une technique pour coller le nom des zones en ligne 1 et lk'ensemble des data juste en dessous.

Tu adapteras à tes besoins pour retrouver le n° qui correspond à ton TCACTIT (en testant sur .Name dans la boucle par exemple).

Code:

---

1 2 3 4 5 6 7

'Paste Fields names in line 1 Set cellule = Worksheets(ws).Range(Rg) For CompA = 0 To ADD_Dossier.Fields.Count - 1 cellule.Offset(0, CompA).Value = ADD_Dossier.Fields(CompA).Name Next CompA 'Paste results line above names Worksheets(ws).Range(Rg).Offset(1, 0).CopyFromRecordset ADD_Dossier

---

J'ai trouvé.

Code:

---

1 2 3 4 5 6

Global ADD_Dossier As ADODB.Recordset Set ADD_Dossier = New ADODB.Recordset ADD_Dossier.Open "SELECT * FROM Dossier ", ConnCACAO, adOpenStatic, adLockReadOnly v_Result = ADD_Dossier("TCACTIT") & " représenter par : " & ADD_Dossier("TCACTIT_2")

---

donc v_result = toto représenter par : tata

merci pour ton aide