Adatbázisok szerver oldali programozása Labor, 2006.04.18. - Laptörténet

https://vik.wiki/index.php?action=history&feed=atom&title=Adatb%C3%A1zisok_szerver_oldali_programoz%C3%A1sa_Labor%2C_2006.04.18. Adatbázisok szerver oldali programozása Labor, 2006.04.18. - Laptörténet 2026-05-16T19:22:02Z Az oldal laptörténete a wikiben MediaWiki 1.43.8 https://vik.wiki/index.php?title=Adatb%C3%A1zisok_szerver_oldali_programoz%C3%A1sa_Labor,_2006.04.18.&diff=163844&oldid=prev 2001:738:2001:2078:0:208:37:0: Új oldal, tartalma: „{{GlobalTemplate|Valaszthato|AdatbServerProgJegyzet20060418}}  <style> code.pre { white-space: pre; display: block; m…” 2013-03-31T19:03:41Z

<p>Új oldal, tartalma: „{{GlobalTemplate|Valaszthato|AdatbServerProgJegyzet20060418}}  <style> code.pre { white-space: pre; display: block; m…”</p> <p><b>Új lap</b></p><div>{{GlobalTemplate|Valaszthato|AdatbServerProgJegyzet20060418}}<br /> <br />  <br /> <br /> <style> <br /> code.pre { white-space: pre; display: block; margin-top: 2px; margin-bottom: 2px; }<br /> li { line-height: 18px; }<br /> </style><br /> <br /> <br/> [[AdatbServerProgJegyzet20060414|&lt;&lt;]] Labor, 2006.04.18. [[AdatbServerProgJegyzet20060421|&gt;&gt;]]<br /> <br /> ==Dinamikus SQL==<br /> <br /> <ol><br /> <li> Hozz létre egy csomagot, amiben a gyakorlat során elkészítendő feladatokat fogod<br /> megvalósítani!<br /> <li> Írj egy tárolt eljárást, ami egy tábla sorait törli ki. Az eljárás bemenete a tábla neve és<br /> a törlend( sorokat definiáló feltétel legyen. Amennyiben nincs megadva feltétel, az<br /> eljárás a bemenetként kapott tábla összes sorát törölje. Az eljárást próbáld is ki!<br /> <br /> <code class="pre">CREATE OR REPLACE PACKAGE dynasql IS<br /> PROCEDURE deletefrom(tablename VARCHAR2, condition VARCHAR2);<br /> END dynasql;</code><br /> <br /> <code class="pre">CREATE OR REPLACE PACKAGE BODY dynasql IS<br /> PROCEDURE deletefrom(tablename VARCHAR2, condition VARCHAR2) IS<br /> query VARCHAR2(500);<br /> BEGIN<br /> query := 'DELETE FROM ' ||| tablename |||| ' WHERE ' || NVL(condition, '0=0');<br /> DBMS_OUTPUT.PUT_LINE(query);<br /> EXECUTE IMMEDIATE query;<br /> END;<br /> END dynasql;</code><br /> <br /> =EXEC dynasql.deletefrom('exam', 'ex_id=6');=<br /> <br /> <li> Hozz létre egy típust, amiben tetszőleges számú tábla nevét tudod majd tárolni!<br /> <li> Írj egy tárolt eljárást, aminek bemenő paramétere táblák neveinek tömbje, feladata<br /> pedig, hogy kitörölje a bemenetként megkapott táblákat. A sikeres vagy sikertelen<br /> törlésekről a kimenetre írj üzenetet. Dobj hibát, amennyiben nem lehet az összes<br /> táblát kitörölni, mert esetleg a listából hiányzik egy olyan tábla, ami hivatkozik egy<br /> listabeli táblára.<br /> <br /> <code class="pre">CREATE OR REPLACE PACKAGE dynasql IS<br /> TYPE tablalista IS TABLE OF VARCHAR2(30);<br /> PROCEDURE droptables(tables tablalista);<br /> END dynasql;</code><br /> <br /> <code class="pre">CREATE OR REPLACE PACKAGE BODY dynasql IS<br /> tablanemletezik EXCEPTION;<br /> tablanemtorolheto EXCEPTION;<br /> &nbsp; <br /> PRAGMA EXCEPTION_INIT(tablanemletezik, -00942);<br /> PRAGMA EXCEPTION_INIT(tablanemtorolheto, -02449);<br /> &nbsp;<br /> PROCEDURE droptables(tables tablalista) IS<br /> query VARCHAR2(500);<br /> torolve INT := 0;<br /> BEGIN<br /> FOR i IN tables.FIRST..tables.LAST LOOP<br /> FOR i IN tables.FIRST..tables.LAST LOOP<br /> BEGIN<br /> query := 'DROP TABLE ' | tables(i);<br /> EXECUTE IMMEDIATE query;<br /> torolve := torolve+1;<br /> DBMS_OUTPUT.PUT_LINE('Törölve&#58; ' | tables(i));<br /> EXCEPTION<br /> WHEN tablanemletezik THEN<br /> DBMS_OUTPUT.PUT_LINE('Nem létezik: ' | tables(i));<br /> WHEN tablanemtorolheto THEN<br /> DBMS_OUTPUT.PUT_LINE('Nem törölhető: ' | tables(i));<br /> END;<br /> END LOOP;<br /> END LOOP;<br /> IF torolve<tables.COUNT THEN<br /> RAISE_APPLICATION_ERROR(-20100, 'Nem sikerült minden táblát törölni');<br /> END IF;<br /> END;<br /> END dynasql;</code><br /> <br /> <code class="pre">DECLARE<br /> t dynasql.tablalista;<br /> BEGIN<br /> t:=dynasql.tablalista('felkesz', 'anyag', 'felkesz_anyag');<br /> dynasql.droptables(t);<br /> END;</code><br /> </ol><br /> -- [[PallosPeter|Peti]] - 2006.04.18.<br /> <br /> <br /> [[Category:Valaszthato]]</div>

2001:738:2001:2078:0:208:37:0