Bonjour

j'ai un gros soucis, j'ai une application qui tourne sous PowerBuilder 6.5, avec une base de données en ORACLE 10. j'utilise les drivers 8.0 pour accéder à cette base de données.

J'ai un problème dans mon code avec des "cursor", ceux ci ne ramene plus rien alors qu'ils fontionnaient tres bien. j'ai d'autre requetes SQL qui fonctionne tres bien

voici mon code

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
26
27
28
29
30
31
32
33
34
35
36
37
Select nvl(count(*),0) Into :NbrOI 
From ULISEE.PAESI PA 
Where Length(PA.PAESI_CODEXT)=7;

p = round(NbrOI / 50, 0)

DECLARE curseur_OI CURSOR FOR 
SELECT LPAD(PA.PAESI_CODEXT,7,'0') "PAESI_COD", InitCap(PA.PAESI_LIB) "PAESI_LIB"
FROM ULISEE.PAESI PA 
WHERE LENGTH(PAESI_CODEXT)=7;

OPEN curseur_OI;

FETCH curseur_OI INTO :NmOI, :nomOI;

c = 1 
i = 1

DO WHILE SQLCA.sqlcode = 0
	if numOI = 3191401 then
		MessageBox("Greeting", "Hello User")
   end if
   //LineNumber=(fill("",7 - len(string(NmOI,"0000000"))) + string(NmOI,"0000000")+"  "+String(nomOI))
	LineNumber=String(NmOI)+"   "+String(nomOI)

   ListGrpe[c] = LineNumber

	FETCH curseur_OI INTO :NmOI, :nomOI;
	c ++ 
	If mod(c, p) = 0 Then
		i ++
		W_message.st.text = string(i) + "%"
	End If		
LOOP
MaxGrpe = c - 1;
CLOSE curseur_OI;

donc dans ce code mon premier 'Select' fonctionne tres bien par contre le cursor est dans les choux.

si quelqu'un a une solution a m'apporter ?

en vous remerciant par avance.

TIGROUJ