CARA MEMANGGIL STORE PROCEDURE DI SQL SERVER 2000 DENGAN VB 6

 

 

 

 

Nama       : Muhammad Jufri

NIM           : SIR200935

MK            : Database Server

Dosen      : Jatmiko Indriyanto, S. Kom

 

      MEMANGGIL STORE PROCEDURE  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 DBTOKO

 

  1. Membuat Tabel BARANG

Perintah untuk membuat table barang yaitu:

CREATE TABLE BARANG

(KODE_BRG NVARCHAR (15),

NAMA_BRG  NVARCHAR (50),

 JMLH_BRG NUMERIC (9),

SATUAN NVARCHAR (20) 

PRIMARY KEY (KODE_BRG))

 

  1. 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 NVARCHAR (15), @NAMA  NVARCHAR (50),@JMLH NUMERIC (9), @SAT NVARCHAR (20) AS

INSERT INTO BARANG (KODE_BRG, NAMA_BRG, JMLH_BRG, SATUAN) VALUES (@KODE, @NAMA, @JMLH, @SAT)

GO

Untuk menjalankan store procedure masukkan perintah berikut ke new SQL Analyzer

EXEC ENTRY ‘AN001′,’CITRA LOTION’,’80’,’BOTOL’.

Dimana ENTRY adalah nama Store Procedure.

 

  1. 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

GO

Jalankan perintah tersebut di SQL Query Analyzer dengan mengetikkan perintah:

EXEC TAMPIL ‘AN001’

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.0 library. Buatlah tampilan form seperti dibawah ini:

 

 

 

Keterangan:

–       TextBox

Text1 untuk kode barang

Text2 untuk nama barang

Text3 untuk jumlah barang

Text4 untuk satuan

–       CommandButton

Command1 untuk menampilkan data

Command2 untuk menyimpan data

Command3 untuk keluar

Command4 untuk ulang

 

  1. 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=ODBARANG;Initial Catalog=DBTOKO”

 

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(“JMLH_BRG”)

  Text4.Text = RS1.Fields(“SATUAN”)

 

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

 

  1. Setelah selesai, kita coba untuk menjalankannya dengan  memasukkan / menyimpan data, misalkan seperti gambar di bawah ini:

 

  1. Kita dapat melihat apakah data tersebut sudah tersimpan atau belum dengan membuka database DBTOKO dengan table BARANG diSQL Server.
  2. Menjalankan untuk menampilkan data, misalkan data yang dicari AN100.Setelah diketikkan di Kode Barang, kemudian klik tombol “MENAMPILKAN DATA”. Maka akan terlihat seperti di bawah ini:

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s