Buscar

Inserindo dados com bloco pl-sql

Código

{No banco de dados.:

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 29/05/03
Por: Felipe Monteiro
Visualizada: 4100 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009