Chamar Procedure

22/07/2008

1

Bom Dia Galera,

Fiz uma aplicação em delphi, utilizando 2 bancos de dados.
através do componente ado fiz a conexão com o SQL server e tive que usar como padrão da empresa o componente DOA para conectar o ORACLE.

o código ficou +/- assim:

var i:integer  ;
var t :variant ;
var s:string;


begin

  DataModule2.OracleDataSet1.Open;

with DataModule2 do

   while not OracleDataSet1.Eof do
   begin
       for i:=0 to DataModule2.OracleDataSet1.Fields.Count-1 do
                   DataModule2.ADOQUERY1.Parameters[i].Value:=DataModule2.OracleDataSet1.Fields[i].Value;

           DataModule2.ADOQuery1.ExecSQL;
       OracleDataSet1.Next;
       
    end;


O sistema faz o seguinte, ele faz uma consulta no banco oracle e joga os dados por um insert no sql server, esta acontecendo tudo direitinho, funcionando..

Eis que, preciso chamar uma procedure no oracle, após a inserção de dados no sql server..
Como que faço isso? no Doa estou utilizando um dataset p armazenar o SELECT do do oracle, estou com a ideia de inserir outro Dataset e inserir no comando execute sp_att_cia;

Assim chamaria a procedure após o next, que tal??


Responder

Posts

24/07/2008

Shion86

Galera, desculpa qualquer coisa, é q comecei a mexer com delhi faz menos de 2 semanas, mas consegui solucionar!!

no componente DOA, tem um item chamado ORACLEQUERY e no object inspector dele tem a opção de SQL.

Entaum fiz o seguinte, chamei a procedure por ele:

begin
  -- Call the procedure
  sp_att_cias_bnc;
end;


e após a inserção de dados pelo for, fiz a chamada dele utilizando:


     DataModule1.OracleQuery1.Execute;

[/quote]


Vlwww galera :D


Responder