Roz17

[ Pobierz całość w formacie PDF ]
.DO powoduje przekazanie wierszy wynikowych do miejscawywołania.Instrukcja SUSPEND przerywa wykonanie procedury - aż do chwili,gdy wywołanie zażąda następnego wiersza.Wartości przypisane parametromwyjściowym zostają przekazane przed przerwaniem realizacji procedury.Procedury wykonywalneProcedury wykonywalne różnią się od procedur wyboru tym, że nie wymagająużycia instrukcji RETURNS.Oto przykład procedury wykonywalnej w InterBaseSQL:532 Część IIICREATE PROCEDURE insertitem (ItemNumber Integer, Description�' Char(30), Price Float)ASBEGININSERT INTO ITEM (ItemNumber, Description, Price)VALUES (:ItemNUmber, :Description, :Price);ENDSkryptyInstrukcje Data Definition Language (DDL), zawierające procedury pamiętane,warto umieszczać w specjalnych plikach zwanych skryptami.Są to zwykłe plikitekstowe, zawierające ciągi poleceń SQL, więc można ich tworzyć korzystającz dowolnego edytora tekstów.Warto tu przypomnieć, że powinny one zawieraćwszystkie niezbędne instrukcje CONNECT i SET TERM.Skrypt SQL możnawykonać, wybierając polecenie Run an SQL Script z menu File programuWISQL.Przykład zawiera listing 17.1Listing 17.1.Procedura pamiętana w skrypcie SQL.CONNECT "C:\DATA\IB\SALES.GDB" USER "SYSDBA" PASSWORD�' "masterkey";SET TERM ^ ;CREATE PROCEDURE GET_CUSTOMER_BY _STATE (State CHAR(2))RETURNS (LastName CHAR(30))ASBEGINFOR SELECT LastNameFROM CUSTOMERWHERE State= :StateINTO :LastNameDOSUSPEND;END^SET TERM ; ^EXIT;Instrukcja CONNECT na początku pliku ustala połączenie z bazą danych.Następnie SET TERM zmienia znak kończący instrukcje SQL - z domyślnegośrednika (;) na (^).Zmiana ta powoduje, że instrukcje zawarte w przechowywanejprocedurze nie są wykonywane, gdy jest ona dopiero tworzona - za pomocąCREATE PROCEDURE.Instrukcja SET TERM przywraca domyślny znakzakończenia instrukcji.Rozdział 17 Delphi w Interbase 533Uruchamianie procedur pamiętanychProcedury pamiętane InterBase uruchamiamy instrukcją EXECUTE PROCEDURE.Jej składnia przedstawia się następująco:EXECUTE PROCEDURE procedurename parametersW miejsce procedurename należy podać nazwę uruchamianej procedury,a w miejsce parameters jej parametry np.:EXECUTE PROCEDURE GET_CUSTOMER_BY_STATE "MO"Ta instrukcja uruchamia procedurę pamiętaną GET_CUSTOMER_BY_STATEz parametrem "MO".Wyjątki (Exceptions)Wyjątki są mechanizmami przekazującymi aplikacji określone przez programistęsygnały o błędach, jakie powstały w czasie wykonania procedur pamiętanychi procedur zdarzeń.W InterBase wyjątki definiujemy instrukcją CREATEEXCEPTION, natomiast instrukcja EXCEPTION służy do ich przechwyceniai wygenerowania odpowiedniego komunikatu.W listingu 17.2 pokazano sposóbdefiniowania wyjątku i jego wykorzystania w procedurze przechowywanej.Listing 17.2.Wyjątek InterBase w procedurze pamiętanej.CONNECT "C:\DATA\IB\SALES.GDB" USER "SYSDBA" PASSWORD�' "masterkey";CREATE EXCEPTIONSALE_TOO_LOW;"The sale amount is to low.Only purchases of $1 or more areallowed";SET TERM ^ ;CREATE PROCEDURE insertsale(SaleNumber int, SaleDate date,�' CustomerNumber int, ItemNumber int, Amount float)ASBEGINIf (:AmountInt2) then Result:=Int1else Result:=Int2;end;function MinInt(var Int1, Int2 :Integer) : Integer; far cdecl�' export;beginif (Int1 [ Pobierz całość w formacie PDF ]

Tematy