Fórum dados de um banco em consulta sql no outro banco #321466

i := 1; // inteiro
qryBolsaAluno.First; 
while not qryBolsaAluno.Eof do 
begin 
  if Matriculas <> ´´ then Matriculas + ´, ´;
  // atente-se ao fato de não incluir matrículas repetidas!
  Matriculas := Matriculas +
    qryBolsaAluno.FieldByName(´cd_matricula´).AsString 

  Inc(i);

  // a cada 100 registros, faz a leitura no oracle
  if i > 100 then
  begin
    InsereTemporario**;
    Matriculas := ´´;
    i := 1;
  end;

  qryBolsaAluno.Next; 
end;

// se ainda restava alguma matrícula, insere-as no cds
if Matriculas <> ´´ then
  InsereTemporario**;

agora você passa a trabalhar com o clientdataset temporário.

procedure TForm1.InsereTemporario;
begin
  abre_a_query_oracle_com_as_matriculas_selecionadas;

  with query_oracle do
  while not eof do
  begin
    cds_temp.append;
    cds_temp.fieldbyname(´tal´).value := fieldbyname(´tal_oracle´).value;
    cds_temp.fieldbyname(´taln´).value := fieldbyname(´taln_oracle´).value;
    cds_temp.post;
    next;
  end;

  fecha_a_query_oracle;
end;

   //Se ainda restar alguma matrícula, inserir no cds                              
   if Matriculas <> ´´ then
   begin
     //Substitui duas vírgulas por uma
     Matriculas := StrReplace(Matriculas, ´, ,´ , ´,´);
     InsereTemporario;
   end;