Discussion :

[aloeLodi]

Bonjour ,

Je débute (et le mot est faible) , j'aurais besoin , à partir d'une requete sql (jusqu'ici tout va bien), de créer un traitement périodique qui exécute cette requête et exporte le résultat dans un fichier excel afin que ce dernier puisse etre consommé par une application tierce.

Pouvez vous m'aider avec précision car je part de rien ?

Merci apr avance en tout cas

[aloeLodi]

Bonjour ,

je suis à la recherche d'un script permettant d’extraire des données de la base dans un sql , j'ai écrit quelque chose comme cela (voir ci dessous , mais cela ne fonctionne pas du tout du tout

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
Local Char WFIC(255), WREP(255)
 
 
WREP = GZIBALREX
 
 
If clalev([F:BPR])=0 : Local File BPARTNER [BPR]: Endif
If clalev([F:BPC])=0 : Local File BPCUSTOMER [BPC]: Endif
 
Openo WFIC,0 Using [ZLNK]
 
Link [F:BPR] With [F:BPR]BPR0=[F:BPC]BPC0 As [ZLNK]
 
adxirs=chr$(13)+chr$(10)
adxifs=";"
adxium=50
 
For [F:ZLNK]
 
            Wrseq [BPR]BPRNUM Using [ZLNK]
Openo WFIC Using [ZLNK]    
Next
 
 
End

[bimiman]

Il faut sortir le openo de la boucle et enlever WFIC après openo

Et il faut bien distinguer la classe du link [ZLNK] et la classe duf ichier séquentiel, par exemple [ZFIC]
read : utiliser [ZLNK]
wrseq et openo : utiliser [ZFIC]

[aloeLodi]

Bonjour ,

j'ai modifié en conséquence mais le traitement part dans une boucle infinie et consomme de la CPU.

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
Local Char WFIC(255), WREP(255)
 
 
WREP = GZIBALREX
 
 
If clalev([F:BPR])=0 : Local File BPARTNER [BPR]: Endif
If clalev([F:BPC])=0 : Local File BPCUSTOMER [BPC]: Endif
 
Openo WFIC,0 Using [ZLNK]
 
Link [F:BPR] With [F:BPR]BPR0=[F:BPC]BPC0 As [ZLNK]
& Where [F:BPR]BPRNUM='01000BAIL'
 
adxirs=chr$(13)+chr$(10)
adxifs=";"
adxium=50
 
For [F:ZLNK] 
 
 
            Wrseq [BPR]BPRNUM Using [ZLNK]
 
Next
Openo Using [ZLNK]    
 
End

Merci par avance

[bimiman]

Relisez ce que j'ai écrit :
read : utiliser [ZLNK]
wrseq et openo : utiliser [ZFIC]