Zavolání jiného skriptu a předání hodnot

Seznam témat:

řešení

Řešení

Mějme skript A, ve kterém nadefinujeme proměnnou "ICO" a zavoláme skript B (napsaný v pascalu) a skript C (napsaný v SQL):

//skript A

var

 ICO: string;

begin

 ICO := '25829874';

 ExecuteScript('moje skripty\skriptB');

 ExecuteScript('moje skripty\skriptC');

end.

//skript B - zobrazí název firmy dle proměnné ICO,

//kterou definuje volající skript

begin

 with TQuery.Create(nil) do

 try

   DatabaseName := DefaultDatabaseName;

   SQL.Add('select nazev1 from dba.gfirmy');

   SQL.Add('where id_ico=:id_ico and id_multi=0');

   Params[0].AsString := ICO;

   Open;

   OkBox('Název: '+Fields[0].AsString);

 finally

   Free;

 end;

end.

//skript C (v jazyku SQL) - ukazuje jak převzít z proměnné ICO hodnotu

//formou parametrů SQL dotazu

create variable @nazev char(200)

go

select @nazev = nazev1 from dba.gfirmy where id_ico = :ICO and id_multi=0

go

if @nazev is null select @nazev='<nenalezeno'

go

print @nazev

go

drop variable @nazev

Související témata