Récupérer valeur requête SQL

Version imprimable

10/08/2006, 11h59
joquetino

Récupérer valeur requête SQL
Bonjour à tous,

J'ai crée une requête SQL sous VB6 dynamiquement à l'éxécution du programme.
La requête a la forme suivante :
Code:

1 2 Select A.code, B.code, C.code, D.code, ... from A,B,C,D,...
Je souhaiterais récupérer le résultat de cette requête Sql et afficher les éléments via une MsgBox. D'habitude, j'écris la chose suivante :
Code:

1 2 3 4 Do while Not ConnectionBD.adoRecordset.EOF MesgBox ConnectionBd.adoRecordset!A.code Loop
Le problème ici, c'est que je ne connais pas le nombre d'éléments retournés par ligne, en résultats. Voyez-vous comment pourrais-je procéder?

Merci d'avance.
10/08/2006, 12h06
Phifi

Bonjour,

que veux-tu faire ?

- afficher tous les résultats dans le même MsgBox ?
- ou avoir un MsgBox par résultat ?

tu boucles jusqu'à la fin de tes enregistrements : quel est donc le problème ?
10/08/2006, 12h15
joquetino

Citation:

Envoyé par Phifi

Bonjour,

que veux-tu faire ?

- afficher tous les résultats dans le même MsgBox ?
- ou avoir un MsgBox par résultat ?

tu boucles jusqu'à la fin de tes enregistrements : quel est donc le problème ?

Effectivement, je veux afficher les valeurs séparémment dans un MsgBox, puis les stocker dans un tableau.

Le souci, comme je l'ai écris plus, c'est que je ne connais pas le nombre d'éléments retournés par ligne. La requête peut être la suivante :

Select A.code, B.code from A,B

Ou

Select A.code, table2.code,C.code from A,table2,C

etc

Je ne connais ni le nom des tables, ni le nombre d'éléments retournés dans le select. Est-ce plus explicite?
10/08/2006, 12h47
pc75
Bonjour,

Tu peux utiliser ça :
Code:

1 2 MonRecordset.Fields.Count
10/08/2006, 12h52
sovo

Citation:

Envoyé par joquetino

Je ne connais ni le nom des tables

comment tu ne connais pas le des tables mais fait une requette sur cette table ??

que veux tu exactement. Est que tu veux mettre le resultat de ta requette dans un tableau (selon un champs) mais tu ne connais pas le nombre d'enregistrement retourne pour redimensionner ton tableau ??
10/08/2006, 13h01
joquetino

Citation:

Envoyé par sovo

comment tu ne connais pas le des tables mais fait une requette sur cette table ??

que veux tu exactement. Est que tu veux mettre le resultat de ta requette dans un tableau (selon un champs) mais tu ne connais pas le nombre d'enregistrement retourne pour redimensionner ton tableau ??

Je vais expliquer rapidement l'appli : je travaille sur une appli boursière, qui manipule des codes Sicovam. J'ai une base de données Access, dans laquelle chaque code Sicovam a eu une table (avec des données telles que le cours de l'action, ...). Le nom de la rable correspond au libellé du code Sicovam.

J'ai donc des centaines de tables.

Lorsque l'utilisateur lance le programme, la première chose qui lui ait demandé est de choisir un certain nombre d'actions. Il peut choisir entre 2 et un nombre indéterminés. En fonction de ça, je récupère les valeurs choisies et le Sicovam associé. Ensuite, une requête Sql me permet d'extraire certaines données. Voilà pourquoi je disais que je ne connais pas à l'avance le nom des tables qui apparaitront dans la base de données, tout dépends du choix de l'utilisateur.

Effectivement, ce que je souhaiterais, c'est récupérer les données du recordset, les afficher dans un msgBox (c'est juste pour que je teste l'exactitude des données retournées) puis les stocker dans un tableau.

Voilà mon souci.

bon ca veux dire que tu doit faire une requette parametrable

et truc du genre
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim SQL as integer SQL = "Select * From " 'maintenant tout depend de comment tu recupere les tables 'bref tu devras faire un truc du genre SQL = SQL & NomTable & "," ' ne mets pas la virgule pour la derniere table 'ensuite tu executes la requete
on va dans un premier temps se limite a sa, des que ca marche on passe au suivant d'ac ??

10/08/2006, 13h55
joquetino

Merci Sovo, mais la requête ne me pose pas de problèmes. Je récupère bien des données, mais c'est l'exploitation de celles-ci qui me pose problème, ou plutôt la récupération des données du recordset.
10/08/2006, 14h13
Phifi

Je crois comprendre que c'est le nombre de colonnes du recordset qui est variable, en plus du nombre de lignes (encore que...)

Puisque la requête (donc le nombre de tables concernées) est définie par l'utilisateur, c'est à ce moment là que tu dois mémoriser les noms des champs pour pouvoir ensuite faire une boucle exploitant ton recordset résultant.

Montre-nous le code générant ta requête SQL
10/08/2006, 14h33
joquetino

Finalement, j'arrive à avancer grâce à vos suggestions. J'ai un dernier souci :
j'ai enfin récupérer le nom des tables et des éléments du recordset.
Comment passer un paramètre au recordset?

J'ai défini une variable qui récupère le nom du champ à afficher, cette variable se nomme : var.

Lorsque j'écris, adoRecordset!var, il cherche s'il y a une champ nommé "var" en résultat de la requête. Il ne m'interprète pas la valeur de la variable "var". Comment procéder pour cela?

Merci encore.
10/08/2006, 14h34
sovo
bon si tu as deja la requette (parametrable) alors on passe au suivant

tu devras recuperer le nombre d'enregistrement pour pouvoir redimensionner ton tableau

pour cela tu peux utilise le code de pc75

ou celui ci
Code:

1 2 3 4 5 6 7 8 9 10 11 dim i as integer i=0 if not rst.eof then rst.movefirst while rst.eof i= i+1 rst.movenext wend end if 'dans i tu as le nombre d'enregistrement.
10/08/2006, 14h42
joquetino
Citation:
Envoyé par sovo

bon si tu as deja la requette (parametrable) alors on passe au suivant

tu devras recuperer le nombre d'enregistrement pour pouvoir redimensionner ton tableau

pour cela tu peux utilise le code de pc75

ou celui ci

Code:

1 2 3 4 5 6 7 8 9 10 11 dim i as integer i=0 if not rst.eof then rst.movefirst while rst.eof i= i+1 rst.movenext wend end if 'dans i tu as le nombre d'enregistrement.
Merci merci, mais tout est ok pour moi, sauf pour le p'tit souci mentionné plus haut.
10/08/2006, 15h16
sovo

Citation:

Envoyé par joquetino

Lorsque j'écris, adoRecordset!var, il cherche s'il y a une champ nommé "var" en résultat de la requête. Il ne m'interprète pas la valeur de la variable "var". Comment procéder pour cela?

je ne croit pas trop que soit possible. Je me suis heurte a ce probleme des centaines et des milliers de fois. mais a chaque fois rien.

Mais je suis perneur pour une idee.

Moi je passe des petites jongleries.
10/08/2006, 15h18
joquetino
Citation:

Envoyé par sovo

je ne croit pas trop que soit possible. Je me suis heurte a ce probleme des centaines et des milliers de fois. mais a chaque fois rien.

Mais je suis perneur pour une idee.

Moi je passe des petites jongleries.

Après quelques recherches, j'ai trouvé mon bonheur :
Code:

1 2 adoRecordset.fields(var)
Et tout marche comme il faut :lol:

Merci à tous.
10/08/2006, 15h23
sovo

merci c genial je garde ca.