Nama : Moch Hasby Sadam Al Kindi
NIM : SIR200922
MK : Database Server
Dosen : Jatmiko Indriyanto, S. Kom
MEMBUAT DATABASE DENGAN QUERY ANALYZER DAN PENGGUNAAN STORE PROCEDURE
YANG DITERAPKAN DI MICROSOFT VISUAL BASIC 6.0
1. Membuat database dengan Query analyzer
Bukalah query analyzer pada SQL Server 2000 pada menu Tools pilih SQL Query Analyzer. Kemudian ketikan perintah berikut:
CREATE DATABASE SUPERMARKET
2. Membuat Tabel BARANG
Perintah untuk membuat table barang yaitu:
CREATE TABLE BARANG
(KODE_BRG VARCHAR (10),
NAMA_BRG VARCHAR (20),
PRODUK_BRG VARCHAR (20),
HARGA_BRG VARCHAR (20)
PRIMARY KEY (KODE_BRG))
3. Memasukkan Data dengan store procedure dan menjalankannya di sql query analyzer.
Untuk membuat store procedure memasukkan data yaitu klik kanan pada Store Procedure kemudian klik New Store Procedure. Ketikkan perintah
CREATE PROCEDURE ENTRY @KODE VARCHAR (10), @NAMA VARCHAR (20),@PRODUK VARCHAR(20), @HARGA VARCHAR (20) AS
INSERT INTO BARANG (KODE_BRG, NAMA_BRG, PRODUK_BRG, HARGA_BRG) VALUES (@KODE, @NAMA, @PRODUK, @HARGA)
GO
Untuk menjalankan store procedure masukkan perintah berikut ke new SQL Analyzer
EXEC ENTRY 'A001',BAJU MERAH DELIMA,'SUTRA','2000000'.
Dimana ENTRY adalah nama Store Procedure.
4. Menampilkan Data
Buat store procedure TAMPIL dengan perintah seperti di bawah ini:
CREATE PROCEDURE TAMPIL @KODE NVARCHAR (20) AS
SELECT*FROM BARANG WHERE KODE_BRG=@KODE_BRG
GO
Jalankan perintah tersebut di SQL Query Analyzer dengan mengetikkan perintah:
EXEC TAMPIL 'A001'
Dimana TAMPIL adalah nama Store Procedure
MENERAPKAN STORE PROCEDURE DI MICROSOFT VISUAL BASIC 6.0
1. Sebelum kita membuat form, Klik Project -> Reference -> Microsoft ActiveX Data Objects 2.5 library. Buatlah tampilan form seperti dibawah ini:
Keterangan:
- TextBox
Text1 untuk kode barang
Text2 untuk nama barang
Text3 untuk produk barang
Text4 untuk harga barang
- CommandButton
Command1 untuk VIEW
Command2 untuk SAVE
Command3 untuk EXIT
Command4 untuk REPEAT
2. Setelah membuat form seperti di atas, kita masukkan koding yang ada di bawah ini:
‘Untuk mengkosongkan textbox
Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Form_Load()
KONEKSI.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ODBC_BRG;Initial Catalog=SUPERMARKET""
End Sub
‘Untuk menampilkan data
Private Sub Command1_Click()
Dim PARAMETER1 As New ADODB.PARAMETER
Dim COMAND1 As New ADODB.Command
Dim RS1 As New ADODB.Recordset
With COMAND1
.ActiveConnection = KONEKSI
.CommandType = adCmdStoredProc
.CommandText = "TAMPIL"
Set PARAMETER1 = .CreateParameter("KODE_BRG", adVarChar, adParamInput, 20, Text1.Text)
.Parameters.Append PARAMETER1
Set RS1 = .Execute
End With
Text2.Text = RS1.Fields("NAMA_BRG")
Text3.Text = RS1.Fields("PRODUK_BRG")
Text4.Text = RS1.Fields("HARGA_BRG")
End Sub
‘Untuk menginputkan/menyimpan data
Private Sub Command2_Click()
Dim PARAMETER As New ADODB.PARAMETER
Dim COMAND As New ADODB.Command
Dim RS As New ADODB.Recordset
With COMAND
.ActiveConnection = KONEKSI
.CommandType = adCmdStoredProc
.CommandText = "ENTRY"
Set PARAMETER = .CreateParameter("KODE_BRG", adVarChar, adParamInput, 20, Text1.Text)
.Parameters.Append PARAMETER
KONEKSI.Execute "ENTRY '" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "'"
X = MsgBox("DATA TELAH TERSIMPAN", vbInformation, "INFORMASI")
End With
End Sub
Private Sub Command3_Click()
End
End Sub
2. Setelah selesai, kita coba untuk menjalankannya dengan memasukkan / menyimpan data, misalkan seperti gambar di bawah ini:
Setelah kita klik tombol “SAVE”, Akan muncul msgbox untuk konfirmasi.
4. Kita dapat melihat apakah data tersebut sudah tersimpan atau belum dengan membuka database SUPERMARKET dengan table BARANG diSQL Server.
5. Menjalankan untuk menampilkan data, misalkan data yang dicari A001. Setelah diketikkan di Kode Barang, kemudian klik tombol “VIEW”. Maka akan terlihat seperti di bawah ini:
SEKIAN....
