Contoh Procedure Oracle Menentukan Huruf Vokal & Konsonan Dari Record Tabel

Selamat pagi… 🙂

Pagi ini aku mau berbagi pengalaman yang aku dapat dari Praktikum Basis Data yang baru saja aku lalui, tinggal Final Project nya saja, semoga lancar. Di modul terakhir aku mendapatkan soal, “Tampilkan huruf vokal dan konsonan pada value/record dari suatu tabel!”

Kurang lebih soalnya begitu, ya intinya bagaimana caranya menampilkan huruf vokal dan konsonan pada suatu kata/kalimat yang termasuk dalam record value dari tabel yang ada menggunakan Procedure di Oracle10g. Oke, misalkan aku punya tabel dengan nama “MHS”, dengan field sebagai berikut :

NPM_MHS NAMA_MHS JURUSAN
06.2009.1.04900 Rendra Kurniawan T. Informatika
06.2009.1.04901 Muadzin Rizal T. Informatika

Nah dari tabel tersebut diatas, misalnya aku mau menentukan field yang akan aku olah adalah field NAMA_MHS untuk ditentukan huruf vokal dan konsonan dari tiap value/record yang ada yaitu “Rendra Kurniawan & Muadzin Rizal” sesuai isi tabel. Oke, kurang lebih berikut ini contoh PL/SQL Procedure di Oracle untuk menentukan vokal dan konsonan dari record yang ada di tabel MHS :

CREATE OR REPLACE PROCEDURE VOKAL IS
CURSOR NAMA IS SELECT NMSIS FROM MHS;
EMP_REC NAMA%ROWTYPE;
panjang_kar INTEGER;
karakter VARCHAR(1);
kata VARCHAR(25);
i INTEGER;
BEGIN
	OPEN NAMA;
	FETCH NAMA INTO EMP_REC;
	kata := EMP_REC.NMSIS;
	panjang_kar := LENGTH(kata);
	FOR i IN 1..panjang_kar LOOP
		karakter := SUBSTR(kata,i);
		IF INSTR(karakter, 'a') OR INSTR(karakter, 'e')
		OR INSTR(karakter, 'i') OR INSTR(karakter, 'o')
		OR INSTR(karakter, 'u') THEN
			DBMS_OUTPUT.PUT_LINE('Vokal : ' || karakter);
		ELSE
			DBMS_OUTPUT.PUT_LINE('Konsonan : ' || karakter);
		END IF;
	END LOOP;
	CLOSE NAMA;
END;

Sekian,,, semoga bermanfaat bagi semua :mrgreen:

Menampilkan Deret Bilangan Prima Dengan PL/SQL

Selamat pagi,,, 😉
Kali ini aku mau berbagi satu hal baru (bagiku) tentang PL/SQL yang baru ku pelajari. Contoh source code berikut ini adalah untuk menampilkan deretan bilangan prima menggunakan PL/SQL Oracle. Oke, langsung saja lihat source code deretan bilangan prima denga PL/SQL Oracle berikut ini :

SET SERVEROUTPUT ON
DECLARE
K NUMBER(3);
I INTEGER;
BEGIN
K:=&input;
DBMS_OUTPUT.PUT('2 ');
FOR I IN 2..K LOOP
	IF MOD(I,2)>0 THEN
		IF I > 7 THEN
			IF MOD(I,3)>0 AND MOD(I,5)>0 AND MOD(I,7)>0 THEN
				DBMS_OUTPUT.PUT(TO_CHAR(I) || ' ');
			END IF;
		ELSE
			DBMS_OUTPUT.PUT(TO_CHAR(I) || ' ');
		END IF;
	END IF;
END LOOP;
DBMS_OUTPUT.NEW_LINE;
END;

Sedikit keterangan mengenai kode diatas, untuk variabel K digunakan untuk menampung hasil input yang merupakan sampai angka berapa deretan bilangan prima ditampilkan.