MENERAPKAN PROCEDURE SQL SERVER PADA APLIKASI VB

NAMA  :ELIYA DEWI SETYASIH

NIM       : DTI200912

TUGAS  : DATABASE SERVER

MEMANGGIL  PROCEDURE DENGAN APLIKASI VB

Stored procedure adalah sekumpulan perintah-perintah SQL yang tersimpan dalam SQL Server. Store procedure adalah kumpulan dari statement SQL yang digunakan bersama-sama.

A.      MEMBUAT PROCEDUR DI SQL SERVER 2000

1.       Membuat database ter lebih dahulu procedure dengan cara

     

Klik Tool > SQL Query Analyzer  akan keluar tampilan

ketikan coding berikut untuk membuat database

Lalu klik “parse query” jika ada keterangan “The command(s) completed successfully.” Berarti koding benar lalu klik tombol “execute query (F5)”maka secara otomatis pada  SQL SERVER akan terbentuk database dengan nama ‘TOKO’

2.       Buatlah table tuliskan koding berikut cara menjalankannya sama seperti diatas

3.       Untuk mengisi table database di atas tulislah koding

 

4.      Tuliskan coding berikut untuk mencari data

        

untuk memanggil salah satu data tu;liskan data berikut dan akan keluar tampilan

5.       Tuliskan coding berikut untuk menghapus salah satu data

6.       Tuliskan coding berikut untuk merubah salah satu data

A.     MEMBUAT APLIKASI VB

1)      Buatlah form dengan tampiln seperti dibawah ini

 mulai membuat project yang memanggil stored procedure

Klik project -> reference -> Microsoft ActiveX Data Objects 2.5 library.
Lihat gambar di bawah ini

 

Pada tombol cari tuliskan koding sebagai berikut

Private Sub CMDCARI_Click() Dim oConn As New ADODB.Connection oConn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=odbc toko;Initial Catalog=toko"  Dim oPar1 As New ADODB.Parameter  Dim oCmd As New ADODB.Command  Dim oRs As New ADODB.Recordset  With oCmd    .ActiveConnection = oConn    .CommandType = adCmdStoredProc   .CommandText = "Barang2"   Set oPar1 = .CreateParameter("NIm", adVarChar, adParamInput, 10, TNIM.Text)   .Parameters.Append oPar1  Set oRs = .Execute     End With TNIM.Text = oRs.Fields("Nim") TNAMA.Text = oRs.Fields("Nama")  TALAMAT.Text = oRs.Fields("Allamt") End Sub

Jalankan program dengn menekan tombol Run atau F5.
Lalu klik tombol jika project anda benar maka hasilnya seharusnya seperti gambar di bawah ini:

.