Tampilkan postingan dengan label Database Server. Tampilkan semua postingan
Tampilkan postingan dengan label Database Server. Tampilkan semua postingan

MEMBUAT TRIGGER DI MS. SQL SERVER 2000


Nama                      :  ESTI YULIANA
NIM                       :  SIR200938
Mata Kuliah            :  Database Server
Dosen                     :  Jatmiko Indrianto, S.Kom

MEMBUAT TRIGGER DI MS. SQL SERVER 2000

Pengertian Trigger :
Yang utama dari trigger ini adalah pembuatan metode validasi dan batasan akses ke dalam suatu database. Dalam hal ini trigger berfungsi sebagai kontrol dalam suatu tabel sehingga pengamanan database bisa jauh lebih akurat dan aman dalam hal ini trigger bisa dimanfaatkan dalam membatasi login user dan sebagainya.  Kali ini kita akan membahas tentang bagaimana membuat trigger untuk syntax dasar insert, delete dan update. Untuk contoh, Buat table TBarang sebagai tabel master dan TStokAwal dan TPenjualan sebagai tabel transaksi.





Untuk memasukan syntax trigger, pada design view di SQL Server Enterprise Manager klik icon triggers









































Hapus template trigger sebelum memasukkan syntax.

Berikut syntax trigger untuk perintah dasar insert, update dan delete :
1.       Membuat trigger untuk insert
Kita akan coba membuat keterangan di tabel history pada saat kita melakukan perubahan pada tabel barang, kita buat dulu tabel history-nya :

Lalu kita buat trigger-nya di Tbarang :

create trigger inserthistory on [dbo].[TBarang]
for insert
as
insert into history (keterangan, waktu)
values ('Penambahan data pada tabel siswa', getdate ())

Kita cek dengan memasukkan data baru , lalu kita cek di tabel history berikut hasilnya :




Anda juga bisa menambahkan keterangan waktu saat data di hapus
create trigger inserthistory1 on [dbo].[TBarang]
for delete
as
insert into history (keterangan, waktu)
values ('Penghapusan data pada tabel siswa', getdate ())

        Dan untuk menambahkan keterangan pada waktu di update, syntax-nya adalah sebagai berikut :
create trigger trg_tambahsiswa on siswa for update as
insert into history(keterangan, tgl)
values (‘pengubahan data pada tabel siswa’,getdate())

2.       Membuat trigger untuk Mengedit
Trigger ini diperlukan dengan asumsi jika data pada TBarang berubah maka data yang berkaitan dengan TBarang juga ikut berubah. Berikut syntax-nya :
Create Trigger update1 on TBarang
For update
As
Update TStokAwal
Set TStokAwal. NmBarang = TBarang. NmBarang
From TBarang
Where TStokAwal.KdBarang =TBarang.KdBarang

Lalu kita cek, ternyata jika Nama barang pada Tbarang kita ubah di TstokAwal nama barangnya juga ikut berubah




Jika terjadi penjualan maka seharusnya stok awal juga berkurang, maka kita buat trigger-nya untuk mengaktifkan otomatisasinya, berikut syntax-nya :
CREATE Trigger updateStokP on TPenjualan
For update
As
Update TStokAwal
Set TStokAwal.Jumlah = TStokAwal. Jumlah - TPenjualan. JmlBarang
From TPenjualan
Where TPenjualan.KdBarang = TStokAwal.KdBarang

     Kita cek, apakah TstokAwal berkurang jumlahnya jika terjadi penjualan.
    Jumlah awal dari stok awal adalah sebagai berikut.


     Lalu kita masukkan transaksi di TPenjualan :


    Kita cek, ternyata di TStokAwal jumlahnya ikut berkurang mengikuti transaksi yang terjadi di TPenjualan.


3.       Membuat trigger untuk menghapus
Trigger ini difungsikan agar data yang sudah terhapus di TBarang otomatis terhapus juga di semua tabel yang memuat data berkenaan dengan TBarang.
Berikut Tabel Awal TBarang :

Kita masukkan syntax trigger-nya :
CREATE TRIGGER hapus ON TBarang
FOR DELETE
AS
delete TStokAwal
from TStokAwal, deleted
where TStokAwal.KdBarang = deleted.KdBarang

Untuk melihat apakah trigger berhasil menjalankan perintah coba hapus salah satu KdBarang, mis KdBarang : 01.

Kita lihat di tabel TStokAwal data KdBarang : 02 juga terhapus.


Demikian tutorial ini saya buat semoga bisa bermanfaat...

Membuat Database User dan Mengkoneksikannnya ke Dalam VB :

Membuat Database User dan Mengkoneksikannnya ke Dalam VB :


1. Buka SQL Enterprise Manager > Users > New Database User >


2. Login name >
3. Beri nama, misal : admin, password misal : 1234, database pilih database yang mau ditambah user-nya;  misal : ODBC_RS >>


Pada VB ketikkan koding berikut untuk menambahkan password sesuai DBO Sql Server :
KONEKSI.Open "Provider=MSDASQL.1;password=1234;Persist Security Info=False ; userID = admin;Data Source=ODBC_RS"

Catatan : Koneksi adalah nama variable ODBC Recordset

Semoga bermanfaat!





MEMANGGIL STORE PROCEDURE LEWAT VISUAL BASIC 6.0


Nama               :  Esti Yuliana
NIM                   :  SIR200938
Mata Kuliah     :  Database Server
Dosen              :  Jatmiko Indrianto, S.Kom

MEMANGGIL STORE PROCEDURE LEWAT VISUAL BASIC 6.0

  1. Buat dbBarang di Ms. SQL Server, lalu buat tabel_barang dengan isian sebagai berikut :

2. Buat Store Procedure :
a.      Cari

create procedure cari @nobrg char(10)as
select*from Tabel_barang where nobrg=@nobrg

GO

b.      Simpan

create procedure simpan @nobrg char (10), @nmbrg nvarchar (50),@sat varchar (10) as
insert into Tabel_barang (nobrg,nmbrg,sat) values(@nobrg, @nmbrg, @sat)

GO

c.        Hapus

create procedure hapus @nobrg char (10) as delete from Tabel_barang where nobrg=@nobrg

GO

d.      Edit

create procedure ubah @nobrg char(10),@nmbrg nvarchar (50),@sat varchar (10) as
update Tabel_barang set nobrg=@nobrg,nmbrg=@nmbrg,sat=@sat where nobrg=@nobrg

GO

3. Kemudian Setting ODBC lewat control panel


4. Buat Form dan berikut Form yang dibuat di VB 6.0
 Keterangan :

Text1.text as no barang
Text2.text as nama barang
Combo1.text as satuan

Datagrid1 as tabel
Cari as CMD_Cari
Simpan as CMD Simpan
Edit as CMD Edit
Hapus as CMD Hapus













Koding :

Dim koneksi As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim RS1 As New ADODB.Recordset

Private Sub Form_Load()
koneksi.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ODBCbarang"

Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open "SELECT * FROM Tabel_barang", koneksi, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = RS
DataGrid1.Refresh
End Sub

Private Sub CMD_SIMPAN_Click()
Dim PARAMETER As New ADODB.PARAMETER
  Dim simpan As New ADODB.Command
  Dim RS2 As New ADODB.Recordset
  With simpan
    .ActiveConnection = koneksi
    .CommandType = adCmdStoredProc
    .CommandText = "simpan"
    Set PARAMETER = .CreateParameter("nobrg", adVarChar, adParamInput, 10, Text1.Text)
.Parameters.Append PARAMETER
koneksi.Execute "simpan '" & Text1.Text & "','" & Text2.Text & "','" & Combo1.Text & "'"
X = MsgBox("DATA TELAH TERSIMPAN", vbInformation, "INFORMASI")


  End With
 
  RS.Requery
End Sub

Private Sub CMD_CARI_Click()
Dim PARAMETER1 As New ADODB.PARAMETER
  Dim cari As New ADODB.Command
  Dim RS1 As New ADODB.Recordset
  With cari
    .ActiveConnection = koneksi
    .CommandType = adCmdStoredProc
    .CommandText = "cari"
    Set PARAMETER1 = .CreateParameter("nobrg", adVarChar, adParamInput, 10, Text1.Text)
.Parameters.Append PARAMETER1
Set RS1 = .Execute
  End With

  Text2.Text = RS1.Fields("nmbrg")
 Combo1.Text = RS1.Fields("sat")
 
End Sub

*Catatan : untuk mengaktifkan cari isi dulu no. barang yang akan dicari pada teksbox text1.text
*Untuk perintah edit dan hapus masih belum sempurna jadi belum diposting.

Terima kasih semoga bermanfaat.





BERKREASI DENGAN SQL QUERY ANALYZER (Part 3) MEMBUAT STORE PROCEDURE DATABASE BARANG


Nama              : Esti Yuliana
NIM                  : SIR200938
Mata Kuliah   : Database Server
Dosen             : Jatmiko Indrianto, S.Kom

BERKREASI DENGAN SQL QUERY ANALYZER (Part 3)
MEMBUAT STORE PROCEDURE DATABASE BARANG

Ok, untuk lebih memperdalam lagi ayo kita berlatih Store Procedure lagi kali ini dengan database barang, kalo mau experiment bisa diganti dengan database yang anda suka.

1.       Pertama buat Database-nya (Misal : dbBarang)
CREATE DATABASE dbRumahSakit
2.       Buat tabel barang-nya :
CREATE TABLE_ BARANG
(NOBARANG Numeric (5),
Nama Varchar (30),
Supplier Varchar (30)
Primary Key (NOBARANG))
3.      Memasukan datanya :
create procedure simpan @nobrg char (10), @nmbrg varchar (50),@suppl varchar (50) as
insert into TABLE_BARANG (nobarang,namabrg,supplier) values(@nobrg, @ nmbrg, @ suppl)
go
Untuk menjalankan masukkan perintah berikut ke new SQL Analyzer
exec simpan 01,'Beras Raja Lele',PD Anumerta
4.      Menampilkan datanya :
create procedure tampil @nobrg char(10)as
select*from TABEL_BARANG where nobarang=@nobrg
go
Untuk menjalankan masukkan perintah berikut ke new SQL Analyzer
exec tampil '01'

Tunggu posting selanjutnya ya, untuk mengetahui bagaimana memunculkan procedure lewat Visual Basic.



BERKREASI DENGAN SQL QUERY ANALYZER (Part 2) MEMBUAT STORE PROCEDURE DATABASE MAHASISWA


Nama              : Esti Yuliana
NIM                  : SIR200938
Mata Kuliah   : Database Server
Dosen             : Jatmiko Indrianto, S.Kom

BERKREASI DENGAN SQL QUERY ANALYZER (Part 2)
MEMBUAT STORE PROCEDURE DATABASE MAHASISWA

Pada Part 1 kita sudah membuat syntax sql untuk perintah DML, sekarang kita akan membuat store procedure. Apakah Store Procedure itu? Store Procedure adalah perintah yang kita buat dan kita simpan untuk sewaktu-waktu kita panggil, jadi jika kita sering menggunakan perintah tersebut kita tidak usah berulang kali mengetik syntax kita memanggil prosedur yang kita sudah buat itu hal ini juga memperingan kinerja server dibanding kita menggunakan view. Store Procedure yang kita simpan akan muncul pada Store Procedure database yang bersangkutan. Berikut table dan keterangan penggunaan store procedure :



create procedure simpan @nipp char (10), @nmmhs varchar (50),@almtmhs varchar (50) as
insert into Mmhs (nipp,nmmhs,almtmhs) values(@nipp, @nmmhs, @almtmhs)
keterangan      : nama procedure
keterangan      : nama variabel
keterangan      : nama tabel
keterangan      : nama field dalam tabel

Berikut beberapa contoh Store Procedure :
1.      Menyisipkan data (Simpan)
create procedure simpan @nipp char (10), @nmmhs varchar (50),@almtmhs varchar (50) as
insert into Mmhs (nipp,nmmhs,almtmhs) values(@nipp, @nmmhs, @almtmhs)
go
Untuk menjalankan masukkan perintah berikut ke new SQL Analyzer
exec simpan DTI200901,'Anis Ulinazah',Bukateja


2.      Menampilkan data mahasiswa berdasarkan nipp
create procedure sp_mhs @nipp char(10)as
select*from Mmhs where nipp=@nipp
go
Untuk menjalankan masukkan perintah berikut ke new SQL Analyzer
exec sp_mhs 'SIR200704'



3.       Menghapus data dari table Mmhs
create procedure hapus @nip char (10) as delete from Mmhs where nipp=@nip
Untuk menjalankan masukkan perintah berikut ke new SQL Analyzer
exec hapus 'SIR200938'
4.       Merubah data
create procedure ubah @nip char(10),@mhs varchar (50),@almt varchar (50) as
update Mmhs set nipp=@nip,nmmhs=@mhs,almtmhs=@almt where nipp=@nip
Untuk menjalankan masukkan perintah berikut ke new SQL Analyzer
exec ubah 'SIR200704','My Love','Jl.Cinta'


Ok, lanjut ke Part 2 untuk memahami lebih lanjut... See You, Semoga hari ini menyenangkan.






BERKREASI DENGAN SQL QUERY ANALYZER (Part 1) - MEMBUAT SYNTAX DML


Nama              : Esti Yuliana
NIM                  : SIR200938
Mata Kuliah   : Database Server
Dosen             : Jatmiko Indrianto, S.Kom

BERKREASI DENGAN SQL QUERY ANALYZER (Part 1)
MEMBUAT SYNTAX DML

Membuat database serta melakukan perintah DML dan DDL tidak selalu dengan interface saja kita juga bisa memanfaatkan SQL Query Analyzer untuk melakukan perintah ini.  Kenapa kita perlu menggunakan SQL Query Analyzer? Tentunya berhubungan dengan database server dan klien, jika data yang dipakai masih sedikit mungkin tidak terasa betul bedanya tetapi datanya sudah ribuan tentunya akan memperingan kerja server. Untuk latihan awal kita gunakan query dasar seperti  create, select, insert, update dan delete.
Untuk memunculkan SQL Query Analyzer, kita buka SQL Server Enterprise Manager > Tool> SQL Query Analyzer


Lalu muncullah window untuk mengetikkan query, disinilah kita akan bereksperimen dengan syntax. Sebelum meng-run program klik tanda centang (sebelah run) untuk mengecek apakah syntax yang kita ketikkan eror atau tidak. Jika sukses lalu klik run, di-message akan ada notifikasi perubahan apa yang terjadi. Jika anda ingin men-save query klik save dan hasilnya adalah *.sql . Setiap query disimpan dengan 1 file *.sql.



Berikut beberapa syntax untuk membuat DML :
1.      Membuat Database Baru
CREATE DATABASE dbRumahSakit
2.      Membuat Tabel
CREATE TABLE PASIEN1
(NOANGGOTA Numeric (5),
Nama Varchar (20),
Primary Key (NOANGGOTA))
3.      Menyeleksi tabel
select  * FROM PASIEN1
4.      Memasukan data ke dalam tabel
Insert into PASIEN1 values('01','ESTI')
5.      Menghapus tabel
Delete from PASIEN1
6.      Meng-update data dalam tabel
Update PASIEN1 Set Nama ='Bambang' Where NOANGGOTA ='2'



MENGKONEKSIKAN DATABASE CLIENT DENGAN DATABASE SERVER



Nama              : Esti Yuliana
NIM                 : SIR200938
Mata Kuliah   : Database Server
Dosen              : Jatmiko Indrianto, S.Kom

MENGKONEKSIKAN DATABASE CLIENT DENGAN DATABASE SERVER

Berikut cara mengkoneksikan database client ke database server , dalam praktikum ini menggunakan software Ms. SQL Server dan Visual Basic 6.0 :
1.      Koneksikan komputer klien dan komputer server, untuk mempermudah praktikum ini kami menggunakan hotspot untuk menghubungkan 2 laptop yang 1 berfungsi sebagai klien dan yang 1 lagi sebagai server. Cara mengkoneksikan lewat hotspot :


2.      Kemudian Windows Explorer > My network place > Entire Network > Microsoft Windows Network > Workgroup > Kemudian pilih salah satu komputer yang terhubung, isikan nama dan password komputer sesuai komputer server, misal : username = SARASWATI password : abcde. Jangan tertukar dengan username dan password database, untuk setting ini gunakan username dan password komputer yang akan dijadikan server.
3.      Buatlah ODBC-nya, caranya : control panel > administrative tools > Data Source (ODBC) > add





4.    Beri nama ODBC-nya, misalkan namanya : praktek dan untuk kolom server kita pilih nama komputer yang dijadikan server, dalam contoh : SARASWATI-PC


5. Pada connect to SQL Server untuk Login ID dan password, isikan ID dan password database pada komputer server.


6.      Pada Change the default database to isikan database yang dimaksud misal DBDokter


7.      Lalu kita cek apakah kita sudah terhubung dengan database server atau belum dengan Visual Basic. Kita buat ADODC serta data grid-nya.

8.      Lakukan setting untuk ADODC > Connection String > Microsoft OLE DB Provider for SQL Server :
-          Pada server name pilih nama komputer server, untuk username dan password isikan dengan nama dan password database server (misal : username=admin, password=abcd).
-          Untuk database on the server pilih database yang akan dimunculkan dalam hal ini DBdokter
-          Test Connection > OK 


9.      Lalu pada record source (lihat pada properties Adodc1) lakukanlah setting berikut :


10. Pada Password (lihat pada properties Adodc1) isikan nama dan password database server (misal : username=admin, password=abcd)


11.  Untuk setting Datagrid pada data source isikan Adodc1 (Adodc yang telah kita buat tadi) > Run > Inilah hasilnya


 Jika anda sudah berhasil sampai tahap ini berarti anda sudah berhasil mengkonek-kan database client ke database server. Semoga hari ini menyenangkan! 















 
© Bosan Kuliah All Rights Reserved