Discussion :

[bobic]

bonjour,

je récupère des données dans une base (oracle) via ce code:

Code :

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

1
2
3
4
5
6
7
 
<%'se connecte à otobject pour avoir les infos complémentaires
otSql="SELECT * FROM otObject WHERE oidobject=" & oidobject
set oRec = oPam.ogbAdoData.Execute(otSql)
%>
-----
<%=oRec("champ1")%>

le problème (mais c'en n'est pas un) est que cela ne m'affiche que le premier champs répondants à mes critères.

j'aimerais pouvoir afficher TS les champs correspondant à cette requête.

dois-je utiliser une boucle until, for etc, et comment dois je faire ???

d'avance, merci pr vos conseils avancés !

[Pymm]

une boucle tant que le le recordset n'est pas arrivé à la fin me parait être une bonne chose.
Y-a rien là dessus dans la FAQ ?

[bobic]

dc, si je comprend bien:

Code :

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

1
2
3
4
5
6
7
8
 
<%'se connecte à otobject pour avoir les infos complémentaires 
otSql="SELECT * FROM otObject WHERE oidobject=" & oidobject 
set oRec = oPam.ogbAdoData.Execute(otSql) 
 
 
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open oRec do while not RS.eof %>

cela serait il bon ?
parce que ce que je ne comprend pas, c comme moi je n'ai pas accès aux valeurs cnx (qui st déclaré sur un fichier que je n'ai pas) je ne peux donc pas utiliser le code suivan,t:

Code :

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

1
2
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, cnx,adOpenKeyset

je suppose donc qu'en mettant va variable oRec, cela donne la bonne chose....

mais est-ce que je suppose bien ???....

[Pymm]

Je ne connais pas cette syntaxe :

set oRec = oPam.ogbAdoData.Execute(otSql)

on peut supposer que cela te renvoie un recordset donc un tableau contenant les champs correspondant à ta requete.
donc je ferais :

Code :

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

1
2
3
4
5
6
7
 
while Not oRec.EOF
      oRec("MonChamp1")
      oRec("MonChamp2")
      ...
      oRec.MoveNext
Wend

[philippe123]

salut

sans transition...

kel est la difference entre ces 2 boucles :

Code :

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

while...wend

et

Code :

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

do while...loop?

[Pymm]

et regardant bien je dirais que le mots sont pas tout a fait les même et que tu a un mo en plus
A part cela je pense qu'elles sont équivalentes.

[philippe123]

oki

[bobic]

ok en effet cela fctionne nickel

g même fait cela:

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
17
18
19
'récup datas mais surtout oid dans la table otfile
otSql="SELECT * FROM otFile WHERE oiduser=" & oConnect.oidUser
set oRec = oPam.ogbAdoData.Execute(otSql)
oidobject= oRec("OIDOBJECT")
description = oRec("OMDESCRIPTION")
while Not oRec.EOF
 
 
'se connecte à otobject pour avoir les infos complémentaires
otSql="SELECT * FROM otObject WHERE oidobject=" & oRec("OIDOBJECT")
set oRec2 = oPam.ogbAdoData.Execute(otSql)
oRec.MoveNext
 
 
        while Not oRec2.EOF 
        response.write oRec2("otmodel") & "<br>" 
oRec2.MoveNext
Wend
Wend %>

qui me permet de récupérer la liste des oid correspondant à ma requête et de refaire une reqêtes avec ce soid, et de me retourner ces valeurs bien sur !

une dernière chose...
j'ai voulu rajouter une facon de vérifier qu'il y a bien des datas correspondants à mes critères. pour cela j'utilise le code suivant:

Code :

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

1
2
3
4
5
if (oRec.EOF and oRec.BOF) Then
response.write "no ok"
else
'traitement demande
end if

ce qui me fait donc:

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
17
18
19
20
21
22
23
24
25
'récup datas mais surtout oid dans la table otfile
otSql="SELECT * FROM otFile WHERE oiduser=" & oConnect.oidUser
set oRec = oPam.ogbAdoData.Execute(otSql)
oidobject= oRec("OIDOBJECT")
description = oRec("OMDESCRIPTION")
if (oRec.EOF and oRec.BOF) Then
Response.write "Vous n'avez pas de dossiers en cours"
else
'sinon, traitement de la demande
while Not oRec.EOF
 
 
'se connecte à otobject pour avoir les infos complémentaires
otSql="SELECT * FROM otObject WHERE oidobject=" & oRec("OIDOBJECT")
set oRec2 = oPam.ogbAdoData.Execute(otSql)
oRec.MoveNext
 
 
        while Not oRec2.EOF 
        response.write oRec2("otmodel") & "<br>" 
oRec2.MoveNext
Wend
Wend 
End If
%>

mais lorsque que l'utilisateur n'a pas de dossier, ça rame énormément !
dans le cas contraire, c nickel

[bobic]

petite correction. ce n'est pas la vérif orec.eof and orec.bof qui fait ramer, mais bien le code au dessus quand la première requête est vide en fait....

[Pymm]

Au lieu de ça :

set oRec = oPam.ogbAdoData.Execute(otSql)
oidobject= oRec("OIDOBJECT")
description = oRec("OMDESCRIPTION")
if (oRec.EOF and oRec.BOF) Then

je ferais plutot ça :

Code :

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

1
2
3
4
5
6
set oRec = oPam.ogbAdoData.Execute(otSql)
if (oRec.EOF and oRec.BOF) Then 
...
else
oidobject= oRec("OIDOBJECT")
description = oRec("OMDESCRIPTION")

car si tu n'as pas d'enregistrement correspondant à ta requete il va faire une erreur lors des affectations des variables.

[bobic]

en effet, ct ça ! g été blaireau

merci

[Pymm]

s'il te plait, merci