Thema: Delphi SQL-Abfrage

Einzelnen Beitrag anzeigen

Benutzerbild von lume96
lume96

Registriert seit: 14. Sep 2003
Ort: Rognac/Marseille - Frankreich
128 Beiträge
 
Delphi 7 Professional
 
#13

Re: SQL-Abfrage

  Alt 4. Feb 2005, 08:13
Moin,

ich kenn jetzt ACCESS nicht sehr gut, habe aber vor Kurzem hier gelesen, dass ACCESS auch Stored Procedures hat.

In dem Falle, wäre das 'ne Möglichkeit.

Unter Firebird würde das in etwa so aussehen :
SQL-Code:
CREATE PROCEDURE SP10
RETURNS (
    OUT_NAME VARCHAR (50),
    OUT_DATUM DATE)
AS
declare variable tmp_nname varchar (50);
declare variable tmp_ndatum date;
declare variable tmp_pname varchar (50);
declare variable tmp_pdatum date;
BEGIN

  /* Auslesen aller Records in tmp-variablen */

  for
  select nname, ndatum,pname,pdatum from tabelle1
  into :tmp_nname, :tmp_ndatum, :tmp_pname, :tmp_pdatum
  do
  begin
       /* für jeden record die Ausgabe-variablen mit Name und Datum belegen
       und den Wert mit suspend ausgeben */

    out_name = :tmp_nname;
    out_datum = :tmp_ndatum;
    suspend;
       /* für jeden record die Ausgabe-variablen mit Partnernamen und Datum belegen
       und den Wert mit suspend ausgeben */

    out_name = :tmp_pname;
    out_datum = :tmp_pdatum;
    suspend;
  end
END
Das ganze kann dann mit einem select * from SP10 ausgelesen werden.

Tschüss,
Lutz
Lutz Meyer
  Mit Zitat antworten Zitat