Discussion :

[law56100]

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 :

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

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

[Godzestla]

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 :

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

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 :

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

1
2
3
4
5
 
tablo = split(v_result)
for nbr_elem = 0 to ubound(tablo)
 msgbox v_result(tablo)
next

[law56100]

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

Code :

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

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

[Godzestla]

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

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.

[law56100]

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

[Godzestla]

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 :

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

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