Oracle Store Procedure Dan VB.NET

Sesuai dengan namanya, Store Procedures adalah prosedure/perintah SQL yang tersimpan dan di eksekusi di Server. di sini saya akan share sedikit mengenai pembuatan store procedure menggunakan database Oracle dan kemudian memanggilnya melalui VB.Net. Ok langsung cekidot…

Pada contoh ini misalkan kita mempunyai table dengan nama MsSupplier dengan field/kolom SupplierID, SupplierName, dan SupplierAddress.

Pertama kali kita buat store procedurenya di server oracle, disini akan saya contohkan pprocedure untuk insert data ke tabel MsSupplier. scriptnya sebagai berikut:

CREATE OR REPLACE PROCEDURE INSERTDATA 
(
  PSUPPLIERID IN VARCHAR2,  
  PSUPPLIERNAME IN VARCHAR2,  
  PSUPPLIERADDRESS IN VARCHAR2  
) AS 
BEGIN
  INSERT INTO MSSUPPLIER(SUPPLIERID, SUPPLIERNAME, SUPPLIERADDRESS
  VALUES   (PSUPPLIERID,PSUPPLIERNAME,PSUPPLIERADDRESS);
  
  COMMIT;
END INSERTDATA;

Bagi yang tidak tebiasa atau alergi dengan script bisa membuat store procedure tersebut menggunakan Tool GUI Oracle SQL Developer, hasilnya akan sama saja. Disini saya tidak menjelaskan mengenai maksud dari perintah di atas karena fokus artikel ini adalah bagaimana cara memanggil store procedure oracle dari VB.net..

Setelah store procedure diatas dibuat kita dapat memanggilnya dari VB.NET seperti menjalankan query biasa. Berikut adalah contoh pemanggilan store procedure oracle dari VB.Net

Imports Oracle.DataAccess.Client

Public Class FrmOracleSP
    Dim con As New OracleConnection("Data Source=orcl;User Id=SCOTT;Password=tiger;")
    Dim cmd As OracleCommand
    Dim strSql As String

    Private Sub BtnSP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSP.Click
        Try
            strSql = "BEGIN INSERTDATA (001, 'Skymediasoft','Jl. Koplak No. 1001'); END; "
            con.Open()
            cmd = New OracleCommand(strSql, con)
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Selamat Mencoba…, semoga bermanfaat.

One Response to “Oracle Store Procedure Dan VB.NET”

  1. djiesoft Says:

    i found here… thank for sharing vb-oracle.. nice blog!


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: