Tugas Lab RDBMS

Latihan 1:
Title of the Exercise : DATA DEFINITION LANGUAGE (DDL)
PERINTAH
Q1. Buatlah tabel bernama EMP dengan struktur berikut.
Name Type
---------- ----------------------
NOMOR EMPNO (6)
ENAME VARCHAR2(20)
JOB VARCHAR2(10)
DEPTNO ANGKA(3)
SAL NOMOR(7,2)
Izinkan NULL untuk semua kolom kecuali ename dan pekerjaan.

Jawaban:

SQL> buat tabel emp

(empno number(6),
ename varchar2(20)tidak boleh null,

job varchar2(10) tidak boleh null,

deptno number(3),

nomor sal (7,2)

);
Q2: Tambahkan kolom pengalaman ke tabel emp. pengalaman numerik
null diizinkan.

Jawaban:
SQL> ubah tabel emp tambah(pengalaman nomor(2));

Q3: Ubah lebar kolom bidang pekerjaan dari tabel emp.

Jawaban:

SQL> ubah tabel emp ubah(job varchar2(12));

Q4: Buat tabel dept dengan struktur berikut.

Name Type
---------------------------------
DEPTNO NUMBER(2)
DNAME VARCHAR2(10)
LOC VARCHAR2(10)
Deptno sebagai kunci utama
SQL> buat tabel dept
(deptno angka(2) kunci utama,
dname varchar2(10),
loc varchar2(10));
Q5: buat tabel emp1 dengan ename dan empno, tambahkan
kendala untuk memeriksa nilai empno saat memasukkan (yaitu)
empno > 100.
Jawaban:
SQL> buat tabel emp1(ename varchar2(10),
empno nomor(6) batasan ch periksa(empno>100)
);

Q6: hapus kolom pengalaman dari tabel emp.

Jawaban:
SQL> ubah tabel emp hapus kolom pengalaman;

Q7: Potong tabel emp dan hapus tabel dept

Jawaban:
SQL> hapus tabel emp;
SQL> hapus tabel dept;
 Exercise Number: 2
Title of the Exercise : DATA MANIPULATION LANGUAGE (DML)
PERINTAH.
Q1: Masukkan satu catatan ke dalam tabel dept.
Ans:SQL> masukkan ke dalam dept nilai (1,'IT','Tholudur');
Q2: Sisipkan lebih dari satu catatan ke dalam tabel emp menggunakan satu
perintah sisipkan.
Jawaban:
SQL> masukkan ke dalam emp nilai (1,'Mathi','AP',1,10000);

masukkan ke dalam emp nilai(2,'Arjun','ASP',2,12000);

masukkan ke dalam emp nilai(3,'Gugan','ASP',1,12000);

Q3: Perbarui tabel emp untuk mengatur gaji semua karyawan menjadi
Rs15000/- yang bekerja sebagai ASP.
Jawaban:
SQL> perbarui emp set sal=15000 dimana pekerjaan='ASP';

pilih * dari emp;

Keluaran:

Q4: Create a pseudo table employee with the same structure

sebagai tabel emp dan masukkan baris ke dalam tabel menggunakan pilih
klausa.
Jawaban:
SQL> buat tabel karyawan sebagai pilih * dari emp;
SQL> deskripsi karyawan;

Keluaran:
Q5: pilih nama karyawan, pekerjaan dari tabel emp.
Jawaban:
SQL> select ename, job from emp;
Output:

Q6: Delete only those who are working as lecturer.

Hapus dari emp di mana pekerjaan='dosen';
Q7: Daftarkan catatan dalam tabel emp urutkan berdasarkan gaji
urutan menaik.
Jawaban:
SQL> pilih * dari emp urutkan berdasarkan sal;

Output:

Q8: Daftar catatan dalam tabel emp urutkan berdasarkan gaji

urutan menurun.
Jawaban:
SQL> pilih * dari emp urutkan berdasarkan sal desc;

Output:
Q9: Tampilkan hanya karyawan yang deptno-nya 30.
Pilih * dari emp di mana deptno=1;
Output:

Q10: Tampilkan deptno dari tabel karyawan menghindari

nilai yang duplikat.
Pilih deptno yang berbeda dari emp;
Output:
 Exercise Number: 3
Title of the Exercise: DATA CONTROL LANGUAGE (DCL),
PERINTAH BAHASA PENGENDALIAN TRANSAKSI (TCL).

Q1: Kembangkan kueri untuk memberikan semua hak istimewa tabel karyawan
ke tabel departemen.
Ans:SQL> Berikan semua hak pada pegawai kepada departemen;

Q2: Kembangkan kueri untuk memberikan beberapa hak karyawan

tabel ke tabel departemen.
SQL> Berikan hak akses select, update, insert pada departemen kepada
departemen dengan opsi hibah;
Q3: Kembangkan kueri untuk mencabut semua hak istimewa karyawan
tabel dari tabel departemen.
Ans: SQL> Revoke all on employees from departments;
Q4: Kembangkan kueri untuk mencabut beberapa hak istimewa karyawan
tabel dari tabel departemen.
SQL> Cabut select, update, insert pada departments dari
departemen;
Q5: Tulis kueri untuk mengimplementasikan titik simpan
Ans:SQL> TITIK SIMPAN S1;
Q5: Tulis kueri untuk menerapkan titik simpan
Jawab: SQL> TITIK SIMPAN S1;

SQL> pilih * dari emp;

SQL> MASUKKAN KE DALAM EMP NILAI(5,'Akalya','AP',1,10000);

Output:
Q6: Tulis sebuah kueri untuk menerapkan rollback
Ans:SQL> batalkan s1;
Q6: Tulis kueri untuk melaksanakan komit
Jawab: SQL> KOMIT;

Exercise Number: 4
Title of the Exercise : IN BUILT FUNCTIONS.

Tampilkan semua rincian dari catatan yang karyawannya

nama dimulai dengan 'A'.

Jawab:SQL> pilih * dari emp di mana ename seperti 'A%';

Output:
Q2: Tampilkan semua detail dari catatan yang karyawannya
nama tidak dimulai dengan 'A'.
Ans:SQL> pilih * dari emp di mana ename tidak seperti 'A%';

Output:

Q3: Tampilkan baris yang gajinya berkisar dari 15000 hingga

30000.
Jawaban:SQL> pilih * dari emp di mana gaji antara 15000 dan
30000
Output:

Q4: Hitung total dan rata-rata jumlah gaji karyawan

meja.
Jawaban:SQL> pilih jumlah(sal), rata-rata(sal) dari emp;
Output:

Q5:Hitung total catatan dalam tabel emp.

Jawaban: pilih hitung(*) dari emp;

Output:

Q6: Tentukan gaji maksimal dan minimal serta ubah namanya

kolom sebagai gaji_maksimum dan gaji_minimum.

SQL> pilih max(sal) sebagai max_salary, min(sal) sebagai min_salary

dari emp;
Output:
Tampilkan bulan antara ―1-jun-10‖ dan 1-aug-10
penuh.
Jawaban: SQL> Pilih bulan_antara ('1-jun-2010', '1-aug-2010')
dari dual;

Q8: Display the last day of that month in ―05-Oct-09‖.

Jawaban: SQL> Pilih hari terakhir ('1-jun-2009') dari dual;

Output:

Q9: Temukan berapa banyak jabatan yang tersedia di tabel karyawan.

Jawaban: pilih hitung(pekerjaan) dari karyawan;

Q10: Apa perbedaan antara maksimum dan minimum

gaji karyawan di
organisasi?
SQL> pilih max(sal), min(sal) dari emp;
Keluaran:

Exercise Number: 5
Title of the Exercise : NESTED QUERIES AND JOIN
PERTANYAAN.
Q1: Tampilkan semua nama karyawan dan gaji yang gajinya adalah
lebih besar dari gaji minimum perusahaan dan jabatan
dimulai dengan 'M'.

Jawab:SQL> pilih ename,sal dari emp di mana sal>(pilih

min(sal) dari emp dimana pekerjaan seperti 'A%');

Output:
Q2: Buatlah query untuk menemukan semua karyawan yang bekerja di
pekerjaan yang sama seperti Arjun.

Jawaban: pilih ename dari emp di mana job=(pilih job dari emp
dimana ename='Arjun');
Output:

Q3: Buatlah kueri untuk menampilkan informasi tentang karyawan

who earn more than any employee in dept 1.
Ans:SQL> pilih * dari emp dimana sal>(pilih max(sal) dari
emp di mana empno=1);
Output:

Q4: Tampilkan detail karyawan, departemen yang

departemen adalah sama di emp dan dept.
Jawaban:SQL> pilih * dari emp,dept di mana
emp.dept_no=dept.dept_no;
Output:

Q5: Display the employee details, departments that the

departemen tidak sama di antara emp dan dept.
Jawaban:
SQL> pilih * dari emp,dept dimana
emp.dept_no!=dept.dept_no;

Output:
Q6: Tampilkan nama dan nilai Siswa dengan mengimplementasikan sebuah
gabungan luar kiri.

Jawab: SQL> pilih [Link], gpa dari stud1 bergabung luar kiri
stud2 pada [Link]=[Link];
Output:
Tampilkan nama Siswa, nomor pendaftaran, dan hasil dengan
mengimplementasikan right outer join.

Ans:SQL> pilih [Link], regno, hasil dari stud1 kanan

outer join stud2 on [Link] = [Link];
Keluaran:

Q8: Tampilkan nama siswa dan nomor registrasi dengan menerapkan

gabungan luar penuh.
Jawaban:SQL> pilih [Link], regno dari stud1 bergabung luar penuh
stud2 pada ([Link]= [Link]);
Output:
Q9: Tulis kueri untuk menampilkan nama karyawan mereka

Jawaban: SQL> pilih nama yang berbeda dari emp x, dept y di mana
x.dept_no=y.dept_no;
Output:

Q10: Tampilkan detail mereka yang menggaji lebih besar

daripada gaji rata-rata.
Jawaban: SQL> pilih yang berbeda * dari emp x di mana [Link] >= (pilih
avg(gaji) dari karyawan);

Keluaran:
 Exercise Number: 6
Title of the Exercise : SET OPERATORS.
Q1: Tampilkan semua nomor departemen yang tersedia dengan departemen dan
tabel emp menghindari duplikasi.
Ans:SQL> pilih dept_no dari emp union pilih dept_no dari
dept;
Output:

Q2:Tampilkan semua nomor departemen yang tersedia dengan departemen dan

tabel emp.
Ans: SQL> pilih dept_no dari emp union all pilih dept_no
dari dept;
Output:

Q3: Tampilkan semua nomor departemen yang tersedia di emp dan tidak ada di
tabel departemen dan sebaliknya.

SQL> pilih dept_no dari emp kurang pilih dept_no dari

dept;
SQL> pilih dept_no dari dept minus pilih dept_no dari
emp;
Output:
 Exercise Number: 7
Title of the Exercise : VIEWS
Q1: Organisasi ingin menampilkan hanya rincian dari
karyawan yang merupakan ASP. (Pemisahan horizontal)
Jawaban:
SQL> buat tampilan empview
Sebagai
pilih * dari emp di mana pekerjaan='ASP';

Output:

Q2: Organisasi ingin menampilkan hanya detail seperti

empno, empname, deptno,deptname of the employees.
(pembagian vertikal)
Jawaban:
SQL>
buat tampilan empview1
sebagai s

pilih ename, sal dari emp;

Q3: Tampilkan semua tampilan yang dihasilkan.

Jawab:SQL> pilih * dari tab;
Output:
Q4: Jalankan perintah DML pada tampilan yang dibuat.
Jawaban: SQL> pilih * dari empview;

Output:

Q5: Hapus tampilan.

SQL> hapus tampilan empview1;

Exercise Number: 8
Title of the Exercise : CONTROL STRUCTURE.
Q1: tulis program pl/sql untuk menukar dua angka.
Jawaban:
Set serveroutput on;

menyatakan
sebuah nomor (10);

b nomor(10);
c angka(10);

mulai

dbms_output.put_line('NILAI SEBELUM A DAN B ADALAH');

dbms_output.put_line(a);

dbms_output.put_line(b);

a:=&a;

b:=&b;

c:=a;

a:=b;

b:=c;

dbms_output.put_line('NILAI DARI A DAN B ADALAH');

dbms_output.put_line(a);

dbms_output.put_line(b);

akhir;

Output:
Q2: Tulis program pl/sql untuk menemukan yang terbesar dari tiga
angka.
Jawaban:
Atur output server aktif;

nyatakan
sebuah angka;
b angka;

c nomor;

mulai

a:=&a;

b:=&b;

c:=&c;

jika a>b maka

jika a>c maka

dbms_output.put_line ('yang terbesar adalah:' ||to_char(a));

lainnya
dbms_output.put_line('yang terbesar adalah :' ||to_char(c));

akhir jika;

jika b>c maka

dbms_output.put_line('yang terbesar adalah :' ||to_char(b));

lain

dbms_output.put_line('terbesar adalah :' ||to_char(c));

akhir jika;

akhir;

Output:
Q3: tulis program pl/sql untuk menemukan total dan rata-rata dari 6
mata pelajaran dan tampilkan nilainya.

Jawaban:
Atur output server aktif;

nyatakan
angka java(10);

dbms angka(10);

nomor co(10);

se number(10);

es nomor(10);

nomor orang (10);

jumlah total(10);
rata-rata jumlah(10);

per nomor(10);

mulai

dbms_output.put_line('MASUKKAN NILAI');

java:=&java;

dbms:=&dbms;

co:=&co;

se:=&se;

es:=&es;

ppl:=&ppl;

total:=(java+dbms+co+se+es+ppl);

per:=(total/600)*100;
jika java<50 atau dbms<50 atau co<50 atau se<50 atau es<50 atau ppl<50 maka

dbms_output.put_line('GAGAL');

jika per>75 maka

dbms_output.put_line('GRED A');

jika per>65 dan per<75 maka

dbms_output.put_line('GOLONGAN B');

jika per>55 dan per<65 maka

dbms_output.put_line('GRAFT C');

lainnya

dbms_output.put_line('INPUT TIDAK VALID');

akhir jika;

dbms_output.put_line('PERSENTASE ADALAH '||per);

dbms_output.put_line('TOTAL ADALAH '||total);

akhir;

Output:
Q4: Tulis program pl/sql untuk menemukan jumlah digit dalam sebuah nomor.
nomor.
Jawaban:
Set serveroutput on;
nyatakan

sebuah angka

d number:=0;

jumlah1 angka:=0;

mulai
a:=&a;

while a>0

loop

d:=mod(a,10);

sum1:=sum1+d;

a:=trunc(a/10);

akhir loop;

dbms_output.put_line('jumlah adalah'|| sum1);

akhir;

Output:
Q5: tulis program pl/sql untuk menampilkan angka dalam urutan terbalik
perintah.
Ans:
Atur output server aktif;

deklarasikan

sebuah angka

rev number;

d angka;

awal

a:=&a;

rev:=0;

selama a>0

loop

d:=mod(a,10);

rev:=(rev*10)+d;

a:=trunc(a/10);

akhir loop;

dbms_output.put_line('nomor adalah'|| rev);

akhir;

Output:
Q6: Tulis program PL/SQL untuk memeriksa apakah yang diberikan
angka tersebut adalah bilangan prima atau tidak.

Jawaban:
Set serveroutput on;
menyatakan

sebuah angka; c angka:=0; i angka;

mulai

a:=&a;
untuk i dalam 1..a

loop

jika mod(a,i)=0 maka

c:=c+1;
akhir jika;

akhir loop;

jika c=2 maka

dbms_output.put_line(a || 'adalah angka prima');

lainnya

dbms_output.put_line(a ||'bukanlah bilangan prima');

akhiri jika;

akhir;

Output:
Q7: Tulis program PL/SQL untuk mencari faktorial dari sebuah angka
nomor.
Jawaban:
Atur output server on;
nyatakan

n angka;f angka:=1;

mulai

n:=&n;
untuk i dalam 1..n

loop

f:=f*i;

akhir loop;

dbms_output.put_line('the factorial is'|| f);

akhir;

Output:
Q8: tulis blok kode pl/sql untuk menghitung luas lingkaran
untuk nilai jari-jari yang bervariasi dari 3 hingga 7. Simpan jari-jari dan
nilai yang sesuai dari luas yang dihitung dalam sebuah kosong
tabel bernama area, yang terdiri dari dua kolom radius & area.

Jawaban:
SQL> buat tabel area

(jari-jari angka(10),

area nomor(6,2));

set serveroutput on;

menyatakan

konstanta pi (4,2):=3.14;

radius number(5):=3; area number(6,2);

mulai
sementara jari-jari < 7

loop

area:=pi*power(radius,2);

masukkan ke dalam area nilai(jari-jari,area);

radius:=radius+1;

akhir loop;

akhir;

Output:
Q9: tuliskan blok kode PL/SQL yang akan menerima sebuah akun
nomor dari pengguna, periksa apakah saldo pengguna kurang dari
saldo minimum, hanya kemudian potong rs.100/- dari
proses ini diaktifkan pada tabel acct.
Jawaban:
buat tabel acct(nama varchar2(10), saldo_cur
nomor(10), noakun nomor(10));
masukkan ke dalam stud nilai('&sname',&rollno,&marks);

pilih * dari acct;

set server output on;
menyatakan
mano nomor(5);
mcb nomor(6,2);
minibal konstanta nomor(7,2):=1000,00;
angka baik(6,2):=100,00;
mulai mano:=&mano;
pilih cur_bal ke dalam mcb dari acct di mana acctno=mano;

jika mcb<minibal maka perbarui akun set cur_bal=cur_bal-denda

di mana acctno=mano;
akhir jika;

akhir;
 Exercise Number: 9
Judul Latihan: PROSEDUR DAN FUNGSI.
Q1: Tulis prosedur untuk menghitung total untuk semua
mahasiswa dan lewat nomor registrasi, mark1, & mark2 sebagai argumen.

Jawaban:
buat tabel itstudent2(regno angka(3),

nama varchar(9)

mark1 nomor(3),

mark2 angka(3));

masukkan ke dalam itstudent2 nilai(&a,'&b',&c,&d);

pilih * dari itstudent2;

ubah tabel itstudent2 tambahkan(total angka(5));

pilih * dari itstudent2;

buat atau ganti prosedur p1(sno angka,mark1 angka,mark2 angka) adalah

tot nomor(5);

awal

tot:=mark1+mark2;
perbarui itstudent2 set total=tot dimana regno=sno;

akhir;

atur serveroutput nyala;

nyatakan

cursor c1 adalah select * from itstudent2;

rec itstudent2 % tipe_baris;

mulai

buka c1;

loop

ambil c1 ke dalam rec;

keluar ketika c1%tidak_ditemukan;

p1([Link],rec.mark1,rec.mark2);

akhir loop;

tutup c1;

akhir;

pilih * dari itstudent2;

Output:
Q2: Tulis sebuah prosedur PL/SQL yang disebut MULTI_TABLE yang mengambil
dua angka sebagai parameter dan menampilkan hasil perkalian
parameter pertama sampai parameter kedua.
Jawaban:
aktifkan output server;

BUAT ATAU GANTI PROSEDUR MULTI_TABEL (a angka, b angka) SEBAGAI

Nomor mul;

MULAI
untuk i dalam 1..b

LOOP

Mul:=a*i;

DBMS_OUTPUT.PUT_LINE (a || '*' || i || '=' || Mul);

AKHIR LOOP;

AKHIR;

mulai

MULTI_TABLE(3,10);

akhir;

Output:
Q3: Pertimbangkan Tabel KARYAWAN (EMPNO, GAJI, NAMA)
Tulis prosedur raise_sal yang meningkatkan gaji seorang
karyawan. Ini menerima nomor karyawan dan kenaikan gaji
jumlah. Ini menggunakan nomor karyawan untuk mencari saat ini
gaji dari tabel KARYAWAN dan perbarui gaji.
Jawaban:
buat tabel karyawan

(
ename varchar(10)

empno int,

salary int

);

masukkan ke dalam karyawan nilai('a',1,100);

masukkan ke dalam karyawan nilai ('b', 2, 300);

masukkan ke dalam karyawan nilai('c',3,400);

masukkan ke dalam karyawan nilai('d',4,700);

BUAT ATAU GANTI PROSEDUR naik_gaji (nomor int, kenaikan_gaji int)

Sebagai

MULAI

perbarui karyawan
atur gaji=gaji+peningkatan_gaji di mana roll=nomor_karyawan;

dbms_output.put_line('Pembaruan Selesai');

SELESAI;

mulai

naik_gaji(1,320);

akhir;

pilih * dari karyawan;

Output:
Q4: Tulis fungsi PL/SQL CheckDiv yang mengambil dua angka
sebagai argumen dan mengembalikan nilai 1 jika argumen pertama
diberikan padanya dapat dibagi oleh argumen kedua, jika tidak akan
kembalikan nilai 0;
Jawaban:
buat atau ganti fungsi checkdiv (n1 angka, n2 angka)

kembalikan nomor

res number;
mulai

jika mod (n1, n2) = 0

maka res := 1;
selain itu res := 0;

akhir jika;

kembalikan res;

akhir;

Output:

Q5: Tulis fungsi PL/SQL yang disebut POW yang menerima dua
angka sebagai argumen dan mengembalikan nilai dari angka pertama
ditinggikan ke pangkat kedua.
Jawaban:
BUAT ATAU GANTI FUNGSI POW(N1 angka,N2 angka)

kembalikan nomor

adalah

result number;

MULAI

PILIH DAYA (N1, N2) ke dalam hasil dari dual;

kembalikan hasil;

AKHIR;

set serveroutput on;

MENYATAKAN

x angka;

Mulai

x:=POW(4,2);

dbms_output.put_line(x);

AKHIR;

Output:
Q6: Tulis fungsi PL/SQL ODDEVEN untuk mengembalikan nilai TRUE jika
angka yang diberikan adalah GENAP jika tidak akan mengembalikan FALSE.

Jawaban:
buat atau ganti fungsi ODDEVEN(M angka)
mengembalikan varchar2

adalah

s varchar2(10);

mulai
jika MOD (M, 2) = 0 MAKA

kembali 'BENAR';

lainnya

kembali 'SALAH';
akhir jika;

akhir;

/
aktifkan keluaran server;

nyatakan

x varchar2(10);

mulai

x:=ODDEVEN(3);

dbms_output.put_line(x);

akhir;

Output:
 Exercise Number: 10
Title of the Exercise : TRIGGER
Q1: Buat pemicu yang menyisipkan pengguna saat ini ke dalam nama pengguna
kolom dari tabel yang ada.
Jawaban:
buat tabel itstudent4(nama varchar2(15), username varchar2(15));

buat atau ganti pemicu itstudent4 sebelum menyisipkan pada itstudent4

untuk setiap baris

mendeklarasikan

nama varchar2(20);

mulai

pilih pengguna menjadi nama dari dual;

:[Link]:=name;

akhir;

masukkan ke dalam itstudent4 nilai('&name','&username');

pilih * dari mahasiswa_it4;

Output:
Q2: Buat Trigger Sederhana yang tidak mengizinkan Insert Update
dan Operasi Hapus pada Tabel.
Jawaban:
buat tabel itempls
(ename varchar(10),
eid int,
gaji int
);
masukkan ke dalam itempls nilai ('&ename', &eid, &salary);
buat pemicu ittrigg sebelum menyisipkan atau memperbarui atau menghapus pada
itempls untuk setiap baris

mulai
raise_application_error(-20010,'You cannot do manipulation');
akhir;
/

Output:

Q3: Buat Trigger yang memunculkan Pesan Kesalahan yang Ditetapkan oleh Pengguna
dan tidak mengizinkan pembaruan dan penyisipan.

Jawaban:
buat pemicu ittriggs sebelum sisip atau perbarui gaji di itempls untuk setiap baris

mengumumkan

triggsal [Link]%type;

mulai

pilih gaji ke dalam triggsal dari itempls di mana eid=12;

jika (:[Link] > triggsal atau :[Link] < triggsal) maka

raise_application_error(-20100,'Salary has not been changed');

akhir jika;

akhir;

Output:
Q4: buat kueri untuk Menghapus Trigger yang Dibuat
Hapus pemicu ittrigg;
Output: