Chamar Procedure

22/07/2008

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

Shion86

Curtir t�pico + 0

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

Gostei + 0