Código
create or replace }
procedure insere_departamento (v_nome char) is
v_id number;
begin
SELECT sequenciaID.NEXTVAL INTO v_id FROM DUAL;
insert into tabela (id,dep,region_id)
values (v_id,v_nome,null);
end insere_departamento;
{No delphi:
- coloque o objeto TStoredProc dentro do formulario que ira disparar esta procedure;
- no evento que voce quiser que dispare coloque o seguinte codigo: }
var
v_nome : String[50];
begin
{caso vc queira informar o nome do departamento atraves de uma caixa de dialogo}
V_nome := inputbox('Informe o nome do departamento.','Depto:','');
<ObjetoTStoredProc>.Params[0].AsString := v_nome;
{caso vc queira buscar o nome atraves de um TEdit já preenchido}
<ObjetoTStoredProc>.Params[0].AsString := <NomeDoTEdit>.Text;
<ObjetoTStoredProc>.ExecProc;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009