Delphi - SQL utasítások végrehajtása

Mint minden adatbázisokkal kapcsolatos feladathoz, így az Oracle adatbázis-kezelő esetében is ismernünk kell, hogy milyen adattípusokat támogat a rendszer. Ebben a cikkben bemutatjuk az Oracle főbb adattípusait, felhasználásuk módját. A típusok megismerése után végignézzük, hogyan végezhetünk el alapvető, adatmanipulációs SQL utasításokat programjainkban.

A példaprogram használata előtt létre kell hozni egy SOUSER sémát az Oracle adatbázis-rendszerünkben, és fel kell ruházni DBA jogosultsággal. A sémába bejelentkezve le kell futtatni a mellékelt Oracle02.sql script-et a megfelelő objektum létrehozásához.

PL/SQL

Előző cikkünkben csak említés szintjén találkozhattunk a PL/SQL kifejezéssel, most azonban bővebb magyarázattal szolgálunk. Ahhoz ugyanis, hogy komolyan munkához láthassunk az Oracle rendszerben, meg kell ismernünk a rendszer belső nyelvét. A PL/SQL, mint belső nyelv lehetővé teszi, hogy blokk struktúrájú procedurális kódrészletekben adatmanipulációs és lekérdező utasításokat hajtsunk végre. Hatékonyan támogatja tranzakció-kezelési feladatok megoldását.

Struktúrája a következő:

Ezen jellemzője révén a PL/SQL–ben a programok logikai részekre oszlanak, melyekhez utasítások és az adott blokkban használható (lokális) változók tartoznak. Ezen túlmenően a blokk lehetővé teszi a blokkon belül bekövetkezett hibaállapotok (kivételek) kezelését.

Használhatunk feltételes utasításokat, hurkokat és elágazásokat a program lefolyásának vezérlésére, és annak eldöntésére, hogy mikor és hogyan kell SQL vagy más utasításokat végrehajtani. Az Oracle eszközei az utasítások együttesét így csoportosan értelmezik, és nem kell minden parancsot külön trigger lépésekbe tennünk, illetve nem kell minden SQL utasítást külső programnyelvbe ágyaznunk.

A PL/SQL központi szerepet játszik az Oracle szerverben a tárolt eljárások, triggerek és csomagok létrehozásakor. Változói és adattípusai megfelelnek az SQL adattípusainak.

A PL/SQL nem önálló Oracle termék, hanem egy programnyelv és a hozzá tartozó fordító és futtató rendszer, melyet az Oracle szerver és bizonyos Oracle eszközök alkalmaznak. A PL/SQL blokkokat az ún. „PL/SQL gépek” hajtják végre, melyek részei az Oracle szervernek. A PL/SQL támogatja az alapvető SQL utasításokat.

Támogatott adattípusok

A következőkben megvizsgáljuk az Oracle alapvető adattípusait, valamint megadjuk azok megfelelőit az MS SQL Server rendszerben. Használni később csak azt a néhány adattípust fogjuk, amelyet mind a PL/SQL nyelv, mind pedig a Delphi rendszere támogat.

Az Oracle adattípus-listája, összevetve az SQL Server jól megszokott listájával nem tűnik hosszúnak, azonban látni fogjuk, hogy egy-egy adattípus megfelel jó néhány SQL Serveres típus együttesének, mintegy kiváltva azt. Ez jól tükrözi, hogy az Oracle cég elsősorban nagygépes környezetre fókuszálta rendszerét. Az alábbi típuslista tájékoztató jellegű, ismertetése után felsoroljuk azt a néhány típust, melynek megvan a PL/SQL-oldali támogatása is.

Lássunk néhány megfeleltetést a MS SQL Server adattípusaival.

A lista tovább szűkül, ha figyelembe vesszük, hogy a Delphi rendszerben milyen módon érhetjük el Oracle adatbázisunkat. Az adatbázis az ADO (ActiveX Data Objects) provider-ét használja, melyet az ADOdb egység reprezentál. Ennek megfelelően a támogatott típusok: NUMBER, CHAR, VARCHAR, VARCHAR2, DATE.

Gyakorlati felhasználás

A mellékelt példában az Oracle02.sql script lefuttatása után létrejön egy Table2 adattábla. A táblába a Form-ra felhelyezett Edit kontrolokon keresztül lehet új rekordokat beszúrni, meglévő rekordokat módosítani, valamint törölni. A művelet egy ComboBox kontrolban válaszható ki.

Az adatbázis eléréséhez felhasználtunk egy TADOConnection típusú komponenst, melynek ConnectionString property-jét kapcsolódáskor töltjük fel. A szerver neve természetesen az a név, melyen megtalálható a SOUSER felhasználó. A program indításakor a „Kapcsolódás” feliratú gomb lenyomásával lehet kapcsolatot teremteni az adatbázissal. Az adatokat egy TADODataSet típusú komponensbe gyűjtjük. A Form-ra helyezett DBGrid kontrolban azonnal követhetőek az adattáblán végzett módosítások. A kapcsolat Connectionstring property-je:

DM.oraConnect.ConnectionString := 'Provider=MSDAORA.1;Password=souser;User ID=souser;Data Source=soserver';

Az adatelérési komponensek közé felvettünk egy TADOCommand típusú komponenst, melynek CommandText property-je tartalmazza az adott utasítás karakterláncát. A property értéke rekordok beszúrásakor a következő:

DM.oraCommand.CommandText := 'INSERT INTO Table2 VALUES (' + id.Text + ',''' + name.Text + ''',''' + desc.Text + ''',TO_DATE(''' + s + ''',''YYYY.MM.DD.''))';

Rekordok módosításakor:

DM.oraCommand.CommandText := 'UPDATE Table2 SET NAME = ''' + name.Text + ''',DESCRIPTION = ''' + desc.Text + ''',REG_DATE = TO_DATE(''' + s + ''',''YYYY.MM.DD.'')';
DM.oraCommand.CommandText := DM.oraCommand.CommandText + ' WHERE (ID = ' + id.Text + ')';

Törléskor pedig:

DM.oraCommand.CommandText :=  'DELETE FROM Table2 WHERE ID = ' + id.Text;

A DATE típusú oszlop adatainak bevitele és módosítása némi magyarázatot igényelhet. Az ilyen típusú adatok megadásakor használnunk kell egy TO_DATE nevű beépített függvényt, melynek első paramétere tartalmazza a rögzítendő dátumot karakteresen, második paramétere pedig azt a karakterlánc-mintát, amilyen formátumban a dátumot megadtuk az első paraméterben. Bármilyen különbség illeszkedési-hibát okoz.

A dátum megadásakor azt a módot választottuk, hogy egy TDateTimePicker kontrolban választjuk ki a dátumot, melynek visszaadatott dátum-értékét karakterlánccá konvertáljuk, majd ezt adjuk meg a TO_DATE függvény első paramétereként. A függvény második paraméterét pedig ehhez a formátumhoz igazítjuk, mely most „YYYY.MM.DD.” lesz.