Stored Procedure in Oracle 8i

[ToFischer]

Hallo,

ich programmiere normalerweise in Delphi muß jetzt jedoch zwei Strored Procedures für meine Datenbankapplication unter Oracle8i erstellen.

1. Stored Procedure zum Löschen von Daten in einer Tabelle deren Daten älter sind, als ein Datumsfeld in dieser Tabelle.

2. Stored Procedure zum Importieren von einer Datei in eine Tabelle auf dem Oracle Server.

Ich hoffe mir kann jemand ein wenig Hilfestellung oder Informationsmaterial im Internet geben.

Vielen Dank im voraus.

Gruß

Torsten Fischer

[Matthias Fichte]

CREATE PROCEDURE LOESCHEN (LOESCH_DATUM DATE)<br>
AS<br>
BEGIN<br>
DELETE FROM TABLENAME WHERE DATUM = LOESCH_DATUM;<br>
COMMIT;<br>
END;<br>

CREATE PROCEDURE IMPORT <br>
AS<br>
BEGIN<br>
INSERT INTO TABELLE1<br>
SELECT * FROM TABELLE2;<br>
COMMIT;<br>
END;<br>

Allerdings kannst du diese Anweisungen auch in Delphi absetzten.<br>
Nimm ein TQuery, gebe die SQL Anweisung ein und rufe Query.ExecSql auf.<br>
z.B.<br>
Q1 : TQuery;<br>

Hier die SQL Anweisung<br>

Q1.Sql.Clear;<br>
Q1.Sql.Add('DELETE FROM TABELLE');<br>
Q1.Sql.Add('WHERE DATUM = ATUM');<br>
Q1.Params[0].asDateTime := Now;<br>
Q1.Prepare;<br>
DataBase.StartTransaction;<br>
try<br>
Q1.ExecSql;<br>
DataBase.Commit;<br>
except<br>
DataBase.Rollback;<br>
end;<br>

Gruß Matthias<br&gt