Einzelnen Beitrag anzeigen

Neumann

Registriert seit: 6. Feb 2006
Ort: Moers
529 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Firebird on external

  Alt 15. Okt 2015, 10:03
Es geht auch mit Stored Procedures. Hier mal ein Beispiel, wie aus mehreren Datenbanken Informationen abgerufen und in eine temp. Tabelle geschrieben werden:

Code:
SET TERM ^ ;

CREATE OR ALTER PROCEDURE P_FILIALZAHLART (
    s timestamp,
    p timestamp,
    db varchar(200))
as
declare variable znr integer;
declare variable rsumme numeric(15,4);
begin
    for
    execute statement ('select zahlartnr, sum(Betrag) from kbzahlungen where datum between :s and :p group by zahlartnr')
    (s:=s,p:=p)
    on external data source :db as user 'sysdba' password 'masterkey'
    into :znr,:rsumme do
    begin
      insert into kbzahlungenfilial(zahlartnr,betrag) values(:znr,:rsumme);
    end

end^

SET TERM ; ^
Ralf
Gruß vom Niederrhein
  Mit Zitat antworten Zitat