Helo Fansul,

Script ini ada di dalam trigger ya?

Bisa dengan cara seperti ini.

  vsql  := 'BEGIN '||
           '  insert_stock_keluar@":1"'||
           '  ( '||
           '    vcd_comp    => trim(:2), ' ||
           '    vnomor      => trim(:3), ' ||
           '    vcd_barang  => trim(:4), ' ||
           '    vqty        => nvl(:5,0) ' ||
           '  ); '||
           'END;';

  execute immediate vsql using vdblink_dari,
                               :new.cd_comp,
                               :new.nomor,
                               :new.cd_barang,
                               :new.qty ;

Kalo masih error, copy aja error messagenya yang lengkap di reply-nya

Cheers,
Wadi Achmed

On Wed, Dec 30, 2009 at 6:36 AM, <[email protected]> wrote:

> Hello Wadi,
>
> Saturday, December 12, 2009, 8:12:31 AM, you wrote:
>
> Pak minta bantuan nya lagi, salah di mana ya script ini
> saya udah coba 2 cara hasilnya tetap masih salah
>
>  vdblink_dari varchar2(30);
>  vdblink_ke varchar2(30);
>  vsql varchar2(3000);
>  vsql1 varchar2(3000);
>
>
>   select
>     count(*)
>   into
>     vcount
>   from kantor a
>   where
>     trim(a.cd_comp) =  trim(:new.cd_comp) ;
>
>   if vcount > 0
>   then
>
>     select
>       trim(a.office_dlink)
>     into
>       vdblink_dari
>     from kantor a
>     where
>       trim(a.cd_comp) =  trim(:new.cd_comp) ;
>
>  Saya coba cara ini juga error
>
>
>     vsql  := 'insert_stock_keluar@:1
>           (
>               vcd_comp    => trim(:new.cd_comp),
>               vnomor      => trim(:new.nomor),
>               vcd_barang  => trim(:new.cd_barang),
>               vqty        => nvl(:new.qty,0)
>            )';
>
>     execute immediate vsql using vdblink_dari;
>
> yang ini juga error
>
>
> EXECUTE IMMEDIATE 'CALL insert_stock_keluar@'||vdblink_dari||'
>           (
>               vcd_comp    => trim(:new.cd_comp),
>               vnomor      => trim(:new.nomor),
>               vcd_barang  => trim(:new.cd_barang),
>               vqty        => nvl(:new.qty,0)
>
>            )' ;
>
>
>
>
> >>> cd_cabang nm_cabang nm_dblink
> >>> --------- --------- ----------
> >>> BJM       Bjmasin   CONNBJM
> >>> SBY       Surabaya  CONNSBY
> >>
> >>> proc insert_mutasi
> >>> (
> >>>  vkantor_new  data.kantor_new%type,
> >>> ) as
> >>>  vcount smallint;
> >>>  vsql varchar2(3000);
> >>>  vdblink tb_cabang.nm_dblink%type;
> >>> begin
> >>>  select nm_dblink
> >>>  into vdblink
> >>>  from tb_cabang
> >>>  where cd_cabang = vkantor_new;
> >>
> >>> vsql := 'insert into  data@:1' a ... ';
> >>>  ...
> >>>  execute immediate vsql using vdblink;
> --
> Best regards,
> fansul
> mailto:[email protected]
>
> __________________________________________________
> Apakah Anda Yahoo!?
> Lelah menerima spam?  Surat Yahoo! memiliki perlindungan terbaik terhadap
> spam
> http://id.mail.yahoo.com
>
>
>
> ------------------------------------
>
> --
> -----------I.N.D.O - O.R.A.C.L.E---------------
> Keluar: [email protected]
> Website: http://indooracle.wordpress.com
> http://www.facebook.com/group.php?gid=51973053515
> -----------------------------------------------
>
> Bergabung dengan Indonesia Thin Client User Groups,
> Terminal Server, Citrix, New Moon Caneveral, di:
> http://indo-thin.blogspot.comYahoo! Groups Links
>
>
>
>


[Non-text portions of this message have been removed]

Kirim email ke