Koneksi Vb.Net Dengan Oracle

Koneksi Vb.Net Dengan Oracle

”Bismillah” mungkin kata yang pantas untuk mengawali artikle ini, karna hanya dengan kata bismillah segala urusan dan pekerjaan kita insyaallah akan di mudahkan oleh sang pencipta Alam Allah SWT. Alhamdulillah akhirnya saya mempunyai kesempatan lagi untuk nulis tutor lagi setelah hampir 4 bulan sempat fakum. Pada artikle ini kita akan membahas cara mengkoneksikan project VB.NET ke database Oracle.

Langkah-langkahnya sebagai berikut :
buka VS.NET anda, setelah VS.NET terbuka langkah pertama yang harus teman-teman lakukan adalah membuat project dengan meng-klick button New Project atau denga memilih File | New | Project seperti 

di bawah ini

 

JendelaNew Project akan muncul, pilih visual basic | windows pada project type. kemudian pilih templete windows aplication, jelasnya seperti gambar berikut ini :



Karna projek yang kita buat akan kita koneksikan ke databse oracle maka kita harus menambahkan Oracle.DataAccess Melalui menu Project | add reference :



Tahap selanjuntya adalah koding, buka area koding kemudian tambahkan import statement dibawah ini, letakkan di bagian atas kode sebelum namespace atau class declaration.

Imports Oracle.DataAccess.Client

Kemudian tambahkan juga connection string di bawah ini di di block class:

Dim oradb As String = "Data Source=orcl;User Id=system;Password=orcl;"

Ket : data Source,User Id dan Password sesuaikan dengan konfigurasi oracle anda .Dan untuk ngetest apakan project kita sudah terkoneksi dengan database oracle, sekarang tambahkan 1 control button ke form anda. Jelasnya seperti gambar di bawah ini :



Kemudian pastekan koding di dibawah ini di event_click Button1 :


Dim ora_conn As New OracleConnection()
Try
ora_conn = New OracleConnection(oradb)
'ora_conn.ConnectionString = oradb
ora_conn.Open()
MsgBox("Koneksi Berhasil", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox("gagal Koneksi", MsgBoxStyle.Critical)
End Try


Kode Lengkapnya adalah sebagai berikut :

Imports Oracle.DataAccess.Client
Public Class Form1
Dim oradb As String = "Data Source=orcl; User Id=hr; Password=hr;"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim ora_conn As New OracleConnection()
Try
ora_conn = New OracleConnection(oradb)
'ora_conn.ConnectionString = oradb
ora_conn.Open()
MsgBox("Koneksi Berhasil", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox("gagal Koneksi", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
End Sub
End Class



Tampilan :

DOWNLOAD HERE

Source : http://sourcecodeonline.blogspot.com/

Browse More Articles

Tweet

Written by thoestone

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.