LA PLSQL I

Praktikum kali ini kita akan membahas tentang PLSQL. PL/SQL yang merupakan singkatan dari Procedural Language/Structured Query Language yang merupakan sebuah penggabungan antara bahasa pemrograman prosedural (PL) dan SQL syntax. Bahasa ini digunakan pada database Oracle. ^_^

Pertama buat table pada ORacle :

Kemudian isi table dengan 5 record :

Setelah itu buat PL seperti dibawah ini :

LOGIKA PROGRAM

• SET SERVEROUTPUT ON digunakan untuk menampilakn output hasil..
• DECLARE digunakan untuk mendeklarasikan variable apa saja yang akan dibuat untuk nantinya akan menampung nilai pada tabel yang telah kita buat tadi.
• BEGIN digunakan untuk memulai blok program.
• SELECT ... digunakan untuk memindahkan nilai dari table yang ada pada kedalam variable yang telah kita buat dimana npm digunakan sebagai primary sekaligus inputan yang akan di cari.
• DBMS_OUTPUT.PUT_LINE digunakan untuk mencetak dalam PLSQL, pada program diatas yang akan dicetak adalah nama, npm, kelas, uts, uas serta hasil yang telah dicari.
• EXCEPTION digunakan untuk penanganan kesalahan dimana jika data tidak ada npm yang sama pada table maka akan dijalankan penanganan kesalahannya.

OUTPUT

TABLE :

CREATE TABLE shiro(
npm varchar(8) primary key,
nama varchar(30),
kelas varchar(5),
uts number,
uas number);

RECORD:

INSERT INTO shiro VALUES('15111621','Shiro desu','3ka30',90,98);
INSERT INTO shiro VALUES('15111047','Santi baka','3ka30',95,91);
INSERT INTO shiro VALUES('15115325','Om Balon','3ka33',78,68);
INSERT INTO shiro VALUES('11111121','Aries Pras','3ka32',50,78);
INSERT INTO shiro VALUES('12222212','Kyahaha','1ia30',60,68);

PLSQL :
SET SERVEROUTPUT ON
DECLARE
npm varchar(8);
nama varchar(30);
kelas varchar(5);
uts number;
uas number;
Hasil real;

BEGIN
SELECT npm, nama, kelas, uts, uas INTO NPM, NAMA, KELAS, UTS, UAS FROM shiro WHERE npm='&NPM';

hasil := (uts*0.7)+(uas*0.3);

DBMS_OUTPUT.PUT_LINE('Nama Anda   = '||nama);
DBMS_OUTPUT.PUT_LINE('NPM Anda    = '||npm);
DBMS_OUTPUT.PUT_LINE('KElas Anda  = '||kelas);
DBMS_OUTPUT.PUT_LINE('UTS Anda    = '||uts);
DBMS_OUTPUT.PUT_LINE('UAS Anda    = '||uas);
DBMS_OUTPUT.PUT_LINE('Hasil Anda  = '||hasil);
EXCEPTION
WHEN No_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('Data Tidak ada !!!');
END;