Probleme de Progress_bar ?

Version imprimable

06/10/2009, 10h41
krilas

Probleme de Progress_bar ?

Bonjour à tous,

Voilà je travaille avec DevSuite 10g et je veux integrer une Progress Bas dans mon application, sauf que :

1- j'ai essayé la progress_bar de test donnée par Salim Chelabi, pour cela :

- j'ai changé le parametre v_version en 10
- j'ai donné les droit : grant execute on dbms_lock to nom_user;
- j'ai créé la procedure progress_bar

Mais je ne vois pas la progression sur Item TEXTet il m'affiche à la fin un message :
Problème de lancement du job est ce normale ?

2- je n'ai pas saisi comment je peux integrer cette progress bar avec un Curseur ( FOR cur IN (select * FROM tab) LOOP)de mon application ?

Merci d'avance de votre aide.
06/10/2009, 11h05
SheikYerbouti

Quelle est la version de la BDD ? Quelle instruction utilisez-vous pour lancer le job ?
06/10/2009, 11h13
krilas

La version de la BD est la 10g, j'ai changer le parametre v_version comme ...

Le processus est celui de la v_version := 10 soit :

Code:

dbms_scheduler.create_job(...)

Merci.
06/10/2009, 11h27
SheikYerbouti

Pouvez vous exécuter un Job "à la main" sous le même schéma via Toad ou Sql*Plus?

j'ai deja executer le job sur sqlplus
Code:

1 2 3 4 5 6 7 8 9 SQL> Select count(*) 2 From USER_SCHEDULER_JOBS 3 Where JOB_NAME = 'PROGRESS_BAR_JOB' 4 And state = 'RUNNING'; COUNT(*) ---------- 0
Franchement, je ne vois pas très bien les disfonctionnements.

j'ai vérifié que le job 'PROGRESS_BAR_JOB' existe déjà.

06/10/2009, 11h46
SheikYerbouti

Citation:

Faut-il avoir le droit de creer un :

Code:

dbms_scheduler.create_job(... );

Le plus simple est d'essayer, vous ne croyez pas ? Si l'instruction s'exécute, c'est que vous avez les droits. Etes vous connecté avec le même schéma que sous Forms ?

j'ai déjà essayé :

- je suis connecté sur le meme schema

- j'ai executé la commande et ca marche avec le résultat déjà donné :
Code:

1 2 3 4 5 6 7 8 9 SQL> Select count(*) 2 From USER_SCHEDULER_JOBS 3 Where JOB_NAME = 'PROGRESS_BAR_JOB' 4 And state = 'RUNNING'; COUNT(*) ---------- 0

06/10/2009, 11h54
SheikYerbouti

Désolé, mais ce que vous montrez n'est qu'un SELECT et pas le résultat de l'instruction utilisant DBMS_SCHEDULER
06/10/2009, 11h57
krilas

excusez moi, mais comment lancer un job ? :oops:

Et ou est-placé cette instruction dans l'exemple ? je ne la vois pas ?

Merci

voici le code du trigger du bouton p_traitement

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 
Declare
  v_jobname  Varchar2(30) := 'PROGRESS_BAR_JOB' ;
  v_jobid    Number := 12345 ;
  v_percent  Number :=  0 ;
  v_end      Exception ;
	v_version  Number := 10 ;	-- type de version
	v_nb       Pls_integer ;
	v_pass     Pls_integer := 0 ;	
begin 
  -- Lancement de la procédure par le package dbms_job pour la version 9i --
  If v_version = 9 Then
    dbms_job.isubmit(v_jobid,'Progress_Bar;',sysdate,null);
    forms_ddl('commit') ;
  Else
  -- Lancement de la procédure par le package dbms_scheduler pour la version 10g --
  dbms_scheduler.create_job(
    job_name   => v_jobname
   ,job_type   => 'stored_procedure'
   ,job_action => 'Progress_Bar'
   ,start_date => SYSDATE
   ,enabled    => TRUE
  );
  End if ;
 
  -- le job tourne ? --
  Loop 
     If v_version = 9 Then
       Select count(job)
       Into   v_nb 
       From   user_jobs
       Where  job= v_jobid 
       And    total_time!=0;
     Else
     	 Select count(*)
     	 Into   v_nb 
     	 From   USER_SCHEDULER_JOBS 
     	 Where  JOB_NAME = v_jobname
     	 And    state = 'RUNNING';
     End if ;
 
     v_pass := v_pass + 1 ;
     If v_pass > 100 Then
     	  -- le job ne se lance pas --
     	  message('Problème de lancement du job',acknowledge);
     	  Raise Form_Trigger_Failure ;
     End if ;
     exit when v_nb > 0  ;
     dbms_lock.sleep(.2);
  End loop ;
 
  set_item_property('blo_progress.progressbar',width,	0);
  v_percent :=0;
 
  -- pour suivre la progression de l'éxecution de procedure --
  Loop    
 
      Exit when v_percent >= 100;
      Select  (sofar / totalwork) * 100
      Into    v_percent
      From    v$session_longops
      Where   opname = 'PROGRESS_BAR' and sofar < totalwork;
 
      :blo_progress.progressbar:= v_percent||'%';
      set_item_property('blo_progress.progressbar',width, round( v_percent*2,2));
      synchronize;
 
  End loop;
 
  raise v_end ;
 
Exception
   When NO_DATA_FOUND then
      set_item_property('blo_progress.progressbar',width,	200);
      :blo_progress.progressbar:= '100%';
      raise v_end ;
   When TOO_MANY_ROWS then
      raise v_end ;
   When v_end then
      If v_version = 10 Then
        DBMS_SCHEDULER.drop_job (job_name => v_jobname,FORCE=> true) ;   
      End if ;
   When Others then
      If v_version = 10 Then
        DBMS_SCHEDULER.drop_job (job_name => v_jobname,FORCE=> true) ;   
      End if ;
End;

et le code de la procedure

Code:

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
 
create or replace procedure Progress_Bar 
As
   rindex pls_integer := -1;
   slno   pls_integer;
Begin
  -----------------------------------------------------
  --  procedure that does nothing else than waiting  --
  --  to illustrate the ProgressBar Forms sample     --
  -----------------------------------------------------
   dbms_application_info.set_session_longops(
     RINDEX      => rindex
    ,SLNO        => slno
    ,OP_NAME     => 'PROGRESS_BAR'
    ,SOFAR       => 0
    ,TOTALWORK   => 100
   );
   --  simulating the task progress  --
   For i IN 1..100 loop
     DBMS_LOCK.SLEEP(.3);
     dbms_application_info.set_session_longops(
       RINDEX      => rindex
      ,SLNO        => slno
      ,OP_NAME     => 'PROGRESS_BAR'
      ,SOFAR       => i
      ,TOTALWORK   => 100
     );
   End loop;
End;

Vous semblez ne pas comprendre. Essayons d'être plus clair: Que donne l'instruction suivante sous Toad ou Sql*Plus ?
Code:

1 2 3 4 5 6 7 dbms_scheduler.create_job( job_name => 'PROGRESS_BAR_JOB' ,job_type => 'stored_procedure' ,job_action => 'Progress_Bar' ,start_date => SYSDATE ,enabled => TRUE );

ca donne ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
SQL> begin
  2  dbms_scheduler.create_job(
  3      job_name   => 'PROGRESS_BAR_JOB'
  4     ,job_type   => 'stored_procedure'
  5     ,job_action => 'Progress_Bar'
  6     ,start_date => SYSDATE
  7     ,enabled    => TRUE
  8    );
  9  end;
 10  /
 
Procédure PL/SQL terminée avec succès.

06/10/2009, 12h38
SheikYerbouti

Donc il n'y a pas d'erreur. Je ne vois donc pas le problème. Si vous utilisez une base 10g, supprimez le code relatif à la 9i pour être certain d'utiliser DBMS_SCHEDULE au lieu de DBMS_JOB.
06/10/2009, 12h41
krilas

Merci, je vais enlever le code de trop,

Mais comment lancer le job à partir de Form ?

C'est déjà dans le code de votre trigger:

Code:

1
2
3
4
5
6
7
8
9
10
11
  ...
  Else
  -- Lancement de la procédure par le package dbms_scheduler pour la version 10g --
  dbms_scheduler.create_job(
    job_name   => v_jobname
   ,job_type   => 'stored_procedure'
   ,job_action => 'Progress_Bar'
   ,start_date => SYSDATE
   ,enabled    => TRUE
  );
  End IF ;

06/10/2009, 12h50
krilas

oui le code est deja dans mon trigger "when-button-pressed"

Mais je ne vois tjrs pas comment le job se lance et comment ? et comment integrer ca avec un curseur ?

:ccool:

(pour mes connaissances quelle est la difference entre dbms_job.isubmit et dbms_job.submit / sans le "i").

Merci d'avance

Bonjour à tous,

Finalement, j'ai pu exécuter la Form de test de Salim Chelabi.

J’ai pu voir la Progress Bar en gardant le paramétre v_version := 9 donc l’utilisation de
dbms_job.isubmit(v_jobid,'Progress_Bar;',sysdate,null);

J’ai vérifié la version de ma DB qui est la :
Code:

1 2 3 4 5 Copyright (c) 1982, 2005, Oracle. All rights reserved. Sql> connect … Connecté à : Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Production With the Partitioning, OLAP and Data Mining options
Je reste perplexe car je ne comprends pas pourquoi
dbms_scheduler.create_job( ... ) ne fonctionne pas !

Merci de votre aide :ccool:.