LATIHAN 21

/* LATIHAN
1. Buatkan prosedur untuk menghapus record berdasarkan kode paket yang diinginkan.
2. Buatkan prosedure untuk memperbaiki record berdasarkan kode 04 dengan paket multemedia dan biaya 300000.
*/

jawab No.1
create procedure hapusdata @kode char(2)
as
delete from tblpaket
where kode=@kode
--jalankan procedure hapus data
hapusdata'02'

lihattabel

Tampilan :

jawab No.2
create procedure perbaikidata @kode char(2),@paket char(15),@biaya bigint
as
update tblpaket set paket=@paket,biaya=@biaya
where kode=@kode

---jalankan procedure (memperbaiki kode paket 04)
perbaikidata'04','Multimedia',300000

lihattabel

Tampilan :

pertemuan 21

create database ContohProsedur
use ContohProsedur

create Table TblPaket(Kode char(2)Primary Key,Paket Char(15),Biaya Bigint)

insert into TblPaket Values('01','Mic.SQL Server',100000)
insert into TblPaket Values('02','Mic.Visual.Net',250000)
insert into TblPaket Values('03','Per.WEB',375000)

--Contoh Pembuatan Prosedur untuk lihat data
---(Tanpa Parameter)
Create Procedure LihatTabel
AS
Select*From TblPaket

--Menjalankan Prosedure LihatTabel
LihatTabel

Tampilan :

--Membuat Prosedur dengan 1 parameter input
create Procedure CariTabel @kode Varchar(2)
AS
Select*From TblPaket
Where kode = @kode

--Menjalankan Procedure
CariTabel'01'

Tampilan :

--Pembuatan procedure untuk proses tambah record
create procedure tambahdata @kode char(2),@paket char(15),@biaya bigint
as
insert into tblpaket values(@kode,@paket,@biaya)

--menjalankan procedure tambahdata
tambahdata'04','WEB Programming',350000

lihattabel

--Hapus procedure tambahdata
drop procedure TambahData

Tampilan :

Latihan pertemuan 15

/*lATIHAN

1. Tampilkan tanggal peasan dan tanggal sampai, 5 hari dari
tgl pesan (Dimana tanggal pesan adalah tgl1).

jawab:
*/
--No 1
select tgl1 As "tgl pesan",(tgl1 + 5) As "tgl sampai"
from tbltgl

TAMPILAN :

*
2. Ganti semua isi tgl1 sampai angka tanggal untuk dibawah
tanggal 15 dengan '10/10/1981' dan yang laninya tanggal '11/11/1971'

jawab:
*/
--No 2.
update tbltgl set tgl1=
case when DAY(tgl1)<15 then '10/10/1981' else '11/11/1971' end from tbltgl TAMPILAN :

pertemuan 15

create database tanggal
use tanggal

create table tbltgl(tgl1 datetime,tgl2 datetime)

insert into tbltgl(tgl1,tgl2) values('12/12/2010','01/01/2011')
insert into tbltgl(tgl1,tgl2) values('12/25/2010','01/03/2011')
insert into tbltgl(tgl1,tgl2) values('12/30/2010','01/05/2011')
insert into tbltgl(tgl1,tgl2) values('01/02/2010','01/04/2011')

select*from tbltgl

TAMPILAN :

--Fungsi-fungsi Tanggal
select tgl1,YEAR(tgl1) as Tahun from tbltgl
TAMPILAN :

select tgl1,MONTH(tgl1) as Bulan from tbltgl
TAMPILAN :

select tgl1,DAY(tgl1) as Tangal from tbltgl
TAMPILAN :

---Tampilan Tanggal,Bulan dan Tahun seperti tampilan di bawah ini ?

select DAY(tgl1) as Tanggal, MONTH(tgl1) as Bulan,
YEAR(tgl1) as Tahun from tbltgl
TAMPILAN :

select GETDATE() as "tgl dan jam saat ini / system"
TAMPILAN :

select DATEDIFF(DAY,tgl1,tgl2) as "Selisih hari" from tbltgl
TAMPILAN :

select DATEDIFF(MONTH,tgl1,tgl2) as "selisih bulan" from tbltgl
TAMPILAN :

select DATEDIFF(year,tgl1,tgl2) as "selisih tahun" from tbltgl
TAMPILAN :

--Tambahkan Kolom/Field Tanggal lahir,
--dan isinya Anda sesuaikan Sendiri !

alter table tbltgl add [Tanggal Lahir] datetime

select * from tbltgl

update tbltgl set [tanggal lahir]='10/10/1982' where tgl1='12/12/2010'
update tbltgl set [tanggal lahir]='12/11/1987' where tgl1='12/25/2010'
update tbltgl set [tanggal lahir]='12/10/1988' where tgl1='12/30/2010'
update tbltgl set [tanggal lahir]='12/12/1986' where tgl1='01/07/2010'

tampilan :

--tampilkan tanggal lahir dan usia seperti di bawah ini ???

select [tanggal lahir],
year (getdate())-year([tanggal lahir]) as usia from tbltgl
TAMPILAN :

PERTEMUAN TERAKHIR

create database PEPUSTAKAAN
Use PERPUSTAKAAN

create table TBLPINJAM(nomor int Primary Key, nama varchar(25),
jurusan varchar(4), BukuPinjaman varchar(30))

insert into TBLPINJAM values(1,'Chyntia','TI1A','Strukdat')
insert into TBLPINJAM values(2,'Chyntia2','SI2B','Oracle')
insert into TBLPINJAM values(3,'Chyntia3','MI23','Mat Stastistik')
insert into TBLPINJAM values(4,'Chyntia4','SA4A','Aljabar')
insert into TBLPINJAM values(5,'Chyntia5','TK21','Bisnis')
insert into TBLPINJAM values(6,'Chyntia6','SA31','Management')
insert into TBLPINJAM values(7,'Chyntia7','KA42','Sistem Komputerisasi')
insert into TBLPINJAM values(8,'Chyntia8','SA4A','B. Inggris')
insert into TBLPINJAM values(9,'Chyntia9','MI23','B. Indonesia')

select * from TBLPINJAM

Fungsi-Funsi AGREGAT
GAMBAR :

SELECT AVG(NOMOR) as "Nilai Rata-rata" FROM TBLPINJAM
GAMBAR :

SELECT MAX(NOMOR) as "Nilai Tertinggi" FROM TBLPINJAM
GAMBAR :

SELECT MIN(NOMOR) as "Nilai Terendah" FROM TBLPINJAM
GAMBAR :

SELECT SUM(NOMOR) as "Nilai Total" FROM TBLPINJAM
GAMBAR :

SELECT COUNT(NOMOR) as "Nilai Banyak Data" FROM TBLPINJAM
gambar :

--Menampilkan Banyak Data sesuai Kelompok (group ,contoh : Jurusan)
SELECT jurusan, COUNT(jurusan) as Kelas FROM TBLPINJAM
GROUP BY jurusan
GAMBAR :

/* COMPUTE -> Untuk membuat subtotal, berdasarkan jurusan dan diurutkan secara ASCENDING*/
SELECT NOMOR,NAMA, jurusan FROM TBLPINJAM
ORDER BY jurusan
COMPUTE COUNT(jurusan) BY jurusan
GAMBAR :

lATIHAN :
1.MENAMBAHKAN KOLOM LAMA (INT) PADA TABEL ANDA
JAWAB :
ALTER TABLE TBLPINJAM ADD LAMA INT

2. Isikan sesuai dengan karakter ke 3 jurusan

Update TBLPINJAM Set Lama=SUBSTRING(jurusan,3,1)

select Jurusan,Lama From TBLPINJAM

--HAVING --> menentukan batasan kondisi hasil proses.
--Mencari Lama pinjam yang lebih dari 2 hari
SELECT jurusan, SUM(Lama) As[yg Lebih Dari 2 Hari] FROM TBLPINJAM
GROUP BY jurusan
HAVING SUM(Lama) > 2

LATIHAN 10

/*Latihan
A. Tampilkan nama peminjam dan jurusan yan namaya berakhiran 2 dan 4
B. Tampilkan nama peminjam yang jurusannya berawalan T dan yang
meminjam buku bewalan B*/

JAWABAN A :
select nama as [Nama Peminjam],Jurusan from TBLPINJAM
where nama like '%2' or nama like '%4'

GAMBAR / HASIL

JAWABAN B :
select nama as [Nama Peminjam] from TBLPINJAM
where jurusan like 'T%' And BukuPinjaman like 'B%'

GAMBAR / HASIL

/* Latihan C
Tambahkan Field Lama Pinjam Tipe Interger
(isikan Data Lama, Anda sesuaikan Sendiri)*/

JAWABAN C :
Alter Table TBLPINJAM add Lama int

Update TBLPINJAM set Lama=2 Where nomor='1'
---Atau :
Update TBLPINJAM set lama=2 where LEFT(jurusan,1)='T'
Update TBLPINJAM set Lama=4 where LEFT(jurusan,1)='S'
update TBLPINJAM set Lama=3 where LEFT(jurusan,1)='M' OR left(jurusan,1)='K'

GAMBAR / HASIL

PERTEMUAN 10

RUMUS :
create database PEPUSTAKAAN
Use PERPUSTAKAAN

create table TBLPINJAM(nomor int Primary Key, nama varchar(25),
jurusan varchar(4), BukuPinjaman varchar(30))

insert into TBLPINJAM values(1,'Chyntia','TI1A','Strukdat')
insert into TBLPINJAM values(2,'Chyntia2','SI2B','Oracle')
insert into TBLPINJAM values(3,'Chyntia3','MI23','Mat Stastistik')
insert into TBLPINJAM values(4,'Chyntia4','SA4A','Aljabar')
insert into TBLPINJAM values(5,'Chyntia5','TK21','Bisnis')
insert into TBLPINJAM values(6,'Chyntia6','SA31','Management')
insert into TBLPINJAM values(7,'Chyntia7','KA42','Sistem Komputerisasi')
select * from TBLPINJAM

GAMBAR / HASIL

RUMUS 2 :
--Mencari & Menampilkan Buku pinjaman Ber-Awalan S
select * from TBLPINJAM where BukuPinjaman like 'S%'
--Mencari & Menampilkan Buku Pinjaman Ber-Akhiran T
select * from TBLPINJAM where BukuPinjaman like '%t'
--Mencari & Menampilkan Jurusan yang terdapat huruf i
select * from TBLPINJAM where jurusan like '%i%'
--Mencari & Menampilkan jurusan yang ber-Awalan S dan Ber-Akhiran 1
select * from TBLPINJAM where jurusan like 'S%1'

GAMBAR / HASIL

LATIHAN 6

---Latihan
---1. Tampilkan Status sesuai karakter ke 4 dari kode
--K->Kawin dan B->B.Kawin
--dan Tampilkan juga jenis kelamin L ->Pria dan P ->Wanita.--

--jawaban & Rumusnya :
select SUBSTRING(Kode,4,1) AS "Kode Status",
case when substring(Kode,4,1)='K' then 'Kawin'
when substring(kode,4,1)='B' then 'B. Kawin'
else null end As status,
Substring(Kode,6,1) AS "Kode Jenis",
case when substring(Kode,6,1)='L' then 'Pria'
when substring(Kode,6,1)='P' then 'Wanita'
else null end As 'Jenis Kelamin'
From TBLKARAKTER
GAMBAR JAWABAN NO 1

---2. Tunjangan anak diberikan sebesar RP 500.000/anak
--(maksimal hanya 2 orang).
--untuk jumlah anak sesuai karakter terakhir kode

--Jawaban & Rumusnya :
select RIGHT(Kode,1) AS "Jumlah Anak",
case when Right(Kode,1) <=2 then Right(Kode,1)*500000 else 1000000 end As Tunjangan From TBLKARAKTER Gambar Jawaban No 2

pertemuan ke 6

create Database KARAKTER
Use KARAKTER

Create Table TBLKARAKTER
(Kode Char(8))

select * From TBLKARAKTER
Insert Into TBLKARAKTER Values('ST/K/L/1')
Insert Into TBLKARAKTER Values('AD/B/L/0')
Insert Into TBLKARAKTER Values('AC/K/P/3')
Insert Into TBLKARAKTER Values('ST/B/P/0')
Insert Into TBLKARAKTER Values('AD/K/L/1')
Insert Into TBLKARAKTER Values('AD/K/L/2')

Select * From TBLKARAKTER

Select LEFT(Kode,2) As Kiri From TBLKARAKTER
Select RIGHT(Kode,1) As Kanan From TBLKARAKTER
Select Substring(Kode,4,1) As Tengah From TBLKARAKTER

//Rumus Melihat Tampilan Penuh.
Select Kode, LEFT(Kode,2) As kiri, RIGHT(Kode,1) As Kanan ,
SubString(Kode,4,1) As Tengah From TBLKARAKTER

--Menambahkan,,,,,
--Rumus untuk melihat Kode Pegawai & Kode Status:
select Kode As [Kode pegawai],
SUBSTRING(Kode,4,1) As [Kode Status] From TBLKARAKTER

---contoh Gabungan Fungsi String Dan Case
--Cara 1
Select LEFT(kode,2) AS "Kode Jabatan",
case when LEFT(Kode,2)='ST' then 'Staff'
when LEFT(Kode,2)='AC' then 'Accounting'
when LEFT(Kode,2)='AD' then 'ADM'
else null end Jabatan
From TBLKARAKTER
Gambar Cara 1

Cara 2
Select LEFT(Kode,2) AS "Kode Jabatan",
case LEFT(Kode,2)
when 'ST' then 'Staff'
when 'AC' then 'Accounting'
when 'AD' then 'ADM'
else null end As Jabatan
From TBLKARAKTER
Gambar Cara 2

LATIHAN

1. Buat Database
2. Struktur Tabel
No. Daftar c 5
Nama c 25
KD_Jenis c 1
KD_Lomba c 2
Jumlah i (int)
3. Isikan min 5 Record. untuk nomor (tdak bisa ganda),
nama peserta dan jumlah anggota anda tentukan sendiri,
- untuk kode jenis isikan L atau LK
- untuk kode lomba TR, NY atau LK
4. Gantikan field Nama dengan Nama Lengkap :
5. Tampilkan tabel dalam bentuk :
========================================================
| No Daftar | Nama Lengkap | Kode Jenis | Jenis Kelamin |
* Jenis Kelamin jika L -> Pria dan P -> Wanita

6. Ganti semua Kd Jenis yang Isinya L Menjadi A dan
P Menjadi B (gunakan case)


create database Igha

create table MI_11("No.Daftar" char(5) Primary key, Nama char(25),
Kd_jenis char(1),Kd_Lomba char(2),Jumlah int)

select*from MI_11

insert into MI_11 ("No.Daftar",Nama,Kd_jenis,Kd_Lomba) values
('00001','Igha','L','NY',)
insert into MI_11 ("No.Daftar",Nama,Kd_jenis,Kd_Lomba,Jumlah) values
('00002','Nyimas','P','TR','2')
insert into MI_11 ("No.Daftar",Nama,Kd_jenis,Kd_Lomba,Jumlah) values
('00003','Doni','L','LK','9')
insert into MI_11 ("No.Daftar",Nama,Kd_jenis,Kd_Lomba,Jumlah) values
('00004','Lita','P','NY','6')
insert into MI_11 ("No.Daftar",Nama,Kd_jenis,Kd_Lomba,Jumlah) values
('00005','Gilang','L','TR','4')

Update MI_11 set Jumlah=5 where "No.Daftar"='00001'

exec sp_rename 'MI_11.[Nama]',"Nama Lengkap",'column'


select*from MI_11

select [No.Daftar],[Nama Lengkap],Kd_jenis,
case Kd_jenis
When 'L' then 'Laki-laki'
When 'P' then 'Perempuan'
else 'Kode Salah'
end
as [Jenis Kelamin] from MI_11

select*from MI_11



update MI_11 set Kd_jenis=
case Kd_jenis
when 'L' then 'A'
when 'P' then 'B'
end

alter table MI_11 add Biaya int

update MI_11 set Biaya=
Case Kd_Lomba
when 'TR' then 50000
when 'NY' then 35000
when 'LK' then 15000
end

select*from MI_11


--Perbandingan untuk mengecek sutau nilai berada dalam range tertentu atau tida
Select * from MI_11 Where Biaya Between 10000 and 40000

--untuk melakukan pengecek suatu nilai terdapat dalam suatu himpunan
select * from MI_11 where Kd_Lomba In ('TR','LK')

Pertemuan ketiga

1. Buat Database Karyawan Dan Aktifkan.
2. Buatkan tabel dengan struktur seperti dibawah ini :
NIK C 6
Nama VC 25
Kd_Jns C 2

Ketentuan :
===========
NIK tidak boleh / tidak bisa diganda.
Nama karyawan Anda tentukan sendiri.
Kd_Jns (Kode Jenis) Isikan P atau L.
Kd_Jab (Kode Jabatan) Isikan ST,AD atau AC.

3. Buat minimal untuk 5 (lima) record.

Jawabannya :

create database karyawan

use karyawan

create table TBLStruktur (NIK CHAR(6)primary key,Nama VARCHAR(25),Kd_Jns CHAR(1),Kd_Jab CHAR(2))
select * from TBLStruktur

INSERT INTO TBLStruktur(NIK,Nama,Kd_Jns,Kd_Jab)
VALUES('0031','EKO','L','ST')
INSERT INTO TBLStruktur(NIK,Nama,Kd_Jns,Kd_Jab)
VALUES('0032','yani','P','AD')
INSERT INTO TBLStruktur(NIK,Nama,Kd_Jns,Kd_Jab)
VALUES('0033','EVY','P','AC')
INSERT INTO TBLStruktur(NIK,Nama,Kd_Jns,Kd_Jab)
VALUES('0034','EJY','L','AD')
INSERT INTO TBLStruktur(NIK,Nama,Kd_Jns,Kd_Jab)
VALUES('0035','RATNA','P','AC')



--- Menghapus Tabel
DROP TABLE TBLStruktur

/* urutkan data berdasarkan Nama secara Ascending / Descending
(normalnya Ascending) */
select * from TBLStruktur Order By Nama Desc
Select * from TBLStruktur Order By Nama Asc

----Menambah Kolom Pada Tabel
Alter table TBLStruktur add Usia int,Agama char (15)

Select * from TBLStruktur

---Isikan Kolom Usia dan Agama

pertemuan kedua

1.Buatkan database dengan nama STMIK_MDP dan aktifkan
2.Buatkan tabel dengan nama TBLMHS dengan field :

NPM C 10
NMMHS VC 25
KLS C 4
MTKuliah VC 25
3.Isikan Minimal 5 (lima) record
4.Tampilkan Seluruh Record

jawab No.1
Create Database STMIK_MDP
USE STMIK_MDP

--jawab No.2
CREATE TABLE TBLMHS (NPM CHAR(10),NMMHS VARCHAR(25),KLS CHAR(4),MTKuliah VARCHAR(25))

--jawab No.3
INSERT INTO TBLMHS(NPM,NMMHS,KLS,MTKuliah)
VALUES('2010110031','EKO','MI11','PPN')

--jawab No.4
Select * From TBLMHS

Select NPM,KLS from TBLMHS where KLS='MI11'

Delete From TBLMHS Where NPM='2010110031'

Update TBLMHS Set NMMHS='Eko' Where NPM='2010110031'

Update TBLMHS Set NMMHS='Eko',KLS='MI21' Where NPM='2010110031'

Delete From TBLMHS Where NPM='2010110031' Or NPM='2010110031'




latihan 2

Create Table TBLKuliah
( Kode Char(2) Primary Key,MTKuliah VarChar(25),Jadwal Char(5),Ruang Char(4))

Insert Into TBLKuliah(MTKuliah,Kode,Ruang,Jadwal)
Values('Basis Data','BD','A413','Malam')

Insert Into TBLKuliah(MTKuliah,Kode,Ruang,Jadwal)
Values('B.Indonesia','BI','A302','Sore')

Insert Into TBLKuliah(MTKuliah,Kode,Ruang,Jadwal)
Values('PPN','PN','A312','Pagi')

Insert Into TBLKuliah(MTKuliah,Kode,Ruang,Jadwal)
Values('Visual','VB','A305','Sore')

Select * From TBLKuliah

SQL pertemuan pertama

perintah membuat Database

KLIK CREATE DATABASE SATU

USE SATU

CREATE TABLE TBLSATU (NAMA VARCHAR(25),KELAS CHAR(4))
TERUS DIBLOK LALU KLIK Excute,

perintah seluruh
SELECT * FORM TBLSATU

perintah hanya field nama
SELECT NAMA FORM TBLSATU

perintah hanya 2 field
SELECT NAMA,KELAS FORM TBLSATU

INSERT INTO TBLSATU (NAMA,KELAS) VALUES (*EKO*,*MI11*

SELECT * FORM TBLSATU