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 :