Testing the content of à SELECT in a "IF THEN" statement

Question

OK, here it is, I've done that :
declare
ex integer;
begin
select count(*) into ex from user_tables where table_name='XB0109070001';
if ex>0 then
insert into toto (a)values('OK, works !!');
end if;
end;
and that works fine.
but when I'm trying to do that in a procedure, I have to make some modifications and it doesn't work:
req:='select count(*) into ex from user_tables where table_name='''||ntable||'''';
execute immediate req;
if ex >0 then
req is declared as varchar2 ex as integer and ntable provide the name of the table to select on.
With this, I get the message 00905. 00000 - "missing keyword"
What's missing here ?

Answer 1

Try this
create or replace Procedure type_paiement
       journal   varchar2,
       an        varchar2,
       mois      varchar2
is
declare
    prefix_ntable varchar2(8);
    ntable        varchar2(12);
    i             integer;
    ex            integer;
    req           varchar2(256);
begin
    --execute immediate 'delete from xx_jk_mreg'; <<- Dont use dynamic sql here you dont need it.
    delete from xx_jk_mreg;
    prefix_ntable:='XB' ||journal ||an ||mois;
    for i in 1..100
    loop
      ntable :=prefix_ntable||lpad ( i,4,'0') ;
      --req :='select count(*) from user_tables where table_name=:1'; <<- again you dont need dynamic SQL here
      --execute immediate req into ex using ntable; --Lesson learned. Thx.
      select count(*) into ex
        from user_tables
       where table_name = ntable;
      if ex > 0
      then
        execute immediate 'insert into xx_jk_mreg (clie_code,journal,periode,origine)
                           select distinct c.code,
                                  lpad(:1,2,''0''),
                                  lpad(:2,4,''0''),
                                  :3
                             from '||ntable||' xb,
                                  dossier d,
                                  client c
                            where xb.cmpt=''4111''
                              and xb.doss =d.code
                              and c.code =d.clie'
          using journal, mois||an, ntable,  ; <<- Again use bind variables.
      end if;
    end loop;
end;
/Please use {noformat}..{noformat} tags to format your code. Its very hard to read unformatted code.