kumpulan tugas-tugas kuliah

NAMA : ANIS ULINAZAH

NIM : DTI200901

MATKUL : DATABASE SERVER

DOSEN : JATMIKO INDRI S. Kom

BELAJAR MEMANGGIL STORE PROCEDURE LEWAT VISUAL BASIC (VB)

Perintah-perintah dibawah ini ditulis dan dijalankan pada SQL Query analyzer

1. Membuat database dengan perintah SQL :

Create database BARANG

2. Membuat tabel dengan perintah SQL :

CREATE TABLE BARANG (KODE CHAR (10), NAMA CHAR (20), JENIS CHAR (12), HARGA CHAR (10))

3. Membuat perintah store procedure insert :

CREATE PROCEDURE MASUK @KODE CHAR (10), @NAMA CHAR (20), @JENIS CHAR (10), @HARGA CHAR (10) AS

INSERT INTO BARANG VALUES (@KODE,@NAMA,@JENIS,@HARGA)

GO

Setelah code diatas succsess masukan perinta dibawah ini pada SQL Query Analyzer baru :

EXEC MASUK '001','MONITOR','HW','300000'

4. Membuat perintah store procedure select :

CREATE PROCEDURE CARI @KODE CHAR (10) AS

SELECT * FROM BARANG WHERE KODE=@KODE

GO

Setelah code diatas succsess masukan perinta dibawah ini pada SQL Query Analyzer baru :

EXEC CARI ‘001’

5. Membuat perintah store procedure update :

CREATE PROCEDURE RUBAH @KODE CHAR (10), @NAMA CHAR (20),@JENIS CHAR (10), @HARGA CHAR (10) AS

UPDATE BARANG SET KODE=@KODE, NAMA=@NAMA, JENIS=@JENIS, HARGA=@HARGA WHERE KODE=@KODE

GO

Setelah code diatas succsess masukan perinta dibawah ini pada SQL Query Analyzer baru :

exec RUBAH '001','office','SW','600000'

6. Membuat perintah store procedure delete :

CREATE PROCEDURE HAPUS @KODE CHAR (10) AS

DELETE FROM BARANG WHERE KODE=@KODE

GO

Setelah code diatas succsess masukan perinta dibawah ini pada SQL Query Analyzer baru :

EXEC HAPUS '003'

Seletah membuat semua procedure dengan benar, selanjutnya adalah membuat tampilan design form pada Microsoft visual basic :

Terlebih dahulu buatlah sebuah deklarasi untuk mengenalkan variable :

Dim RS As New ADODB.Recordset

Dim RSCARI As New ADODB.Recordset

Dim PARA As New ADODB.Parameter

DIM VKODE AS String

Dim COMMAND As New ADODB.COMMAND

Dim KONEKSI As New ADODB.Connection

Code yang dituliskan pada form load :

Private Sub Form_Load()

KONEKSI.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=STORE_BARANG"

End Sub

Code yang dituliskan pada Command CARI :

Private Sub CMD_CARI_Click()

With COMMAND

.ActiveConnection = KONEKSI

.CommandType = adCmdStoredProc

.CommandText = "CARI"

Set PARA = .CreateParameter("KODE", adChar, adParamInput, 10, TKODE.Text)

.Parameters.Append PARA

Set RS = .Execute

End With

TKODE.Text = RS.Fields("KODE").Value

TNAMA.Text = RS.Fields("NAMA").Value

TJENIS.Text = RS.Fields("JENIS").Value

THARGA.Text = RS.Fields("HARGA").Value

'RS.EOF

'MsgBox "DATA YANG DICARI TIDAK ADA..."

'TKODE.SetFocus

End Sub

Code yang dituliskan pada Command SIMPAN:

Private Sub CMD_SIMPAN_Click()

With COMMAND

.ActiveConnection = KONEKSI

.CommandType = adCmdStoredProc

.CommandText = "MASUK"

Set PARA = .CreateParameter("KODE", adChar, adParamInput, 10, TKODE.Text)

.Parameters.Append PARA

End With

KONEKSI.Execute "MASUK '" & TKODE.Text & "','" & TNAMA.Text & "','" & TJENIS.Text & "','" & THARGA.Text & "'"

MsgBox "DATA SUKSE DSIMPAN..."

TKODE.Text = ""

TNAMA.Text = ""

TJENIS.Text = ""

THARGA.Text = ""

TKODE.SetFocus

End Sub

Code yang dituliskan pada Command HAPUS:

Private Sub CMD_HAPUS_Click()

With COMMAND

.ActiveConnection = KONEKSI

.CommandType = adCmdStoredProc

.CommandText = "HAPUS"

Set PARA = .CreateParameter("KODE", adChar, adParamInput, 10, TKODE.Text)

.Parameters.Append PARA

End With

KONEKSI.Execute "DELETE FROM BARANG WHERE KODE = '" & TKODE.Text & "'"

TKODE.Text = ""

TNAMA.Text = ""

TJENIS.Text = ""

THARGA.Text = ""

MsgBox ("DATA SUKSES DIHAPUS...")

End Sub

Code yang dituliskan pada Command EDIT:

Private Sub CMD_EDIT_Click()

With COMMAND

.ActiveConnection = KONEKSI

.CommandType = adCmdStoredProc

.CommandText = "RUBAH"

Set PARA = .CreateParameter("KODE", adChar, adParamInput, 10, TKODE.Text)

.Parameters.Append PARA

KONEKSI.Execute "UPDATE BARANG SET KODE ='" & TKODE.Text & "',NAMA ='" & TNAMA.Text & "',JENIS='" & TJENIS.Text & "',HARGA='" & THARGA.Text & "'"

MsgBox "DATA SUKSES DIEDIT.."

End With

End Sub

Code yang dituliskan pada Command ULANG :

Private Sub ULANG_Click()

TKODE.Text = ""

TNAMA.Text = ""

TJENIS.Text = ""

THARGA.Text = ""

TKODE.SetFocus

End Sub

Jalankan program diatas, dan coba satu persatu Command yang telah kita buat…

***Kesuksesan dekat dengan orang-orang yang mau mencoba dan berusaha… selamat mencoba, sukses selalu untuk kita***