connect "c:\inversor\inversor.db"
user "INVERSOR" password "i";
set term ^;
create procedure ActVarInv (num smallint, tenpan float, intpan float, tenred float, intbob float)
as
begin
UPDATE tabla1
SET tension_de_panel = :tenpan, intensidad_de_panel = :intpan,
tension_de_red = :tenred, intensidad_de_bobina= :intbob, potencia= (:intpan)*(:tenpan)
WHERE numero= :num;
end ^
set term ;^
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
