SQL - usando plsql

Top  Previous  Next

{Bloco PL/SQL para inserção de dados

Pergunta 

Criar um bloco pl/sql que insira um novo dep na tabela s_dept 

 

- use a sequencia s_dept_id para o campo id da tabela 

 

- solicite ao usuario o nome do dep 

 

- insira valores nulos p/ o campo region_id 

 

Resposta 

-> 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