VB.NET dan Oracle 9

Koneksi VB.NET ke Server Oracle 9i

Temen-temen semua sudah lama tidak update blog lagi, dah kangen ke blog. Untuk kali ini saya akan mencoba untuk menshared tentang koneksi vb.net 2010 dan oracle 9.
Oke langsung ja ke tahap persiapan, untuk persiapan:
1. Install dulu oracle 9i nya (versi terbaru juga tidak jauh beda)
2. Insal dulu ODAC (Oracle Data Acess) for Visual Studio kalau belum ada, temen-temen bisa
    download disini
3. Setelah selesai semua, temen-temen buat database dulu sebelum melakukan koneksi
4. Buat project dengan VB.NET (saya pake 2010)
5. Buat Module koneksinya
6. Masukan OracleDataAcess dari .Net Framework dengan cara klik kanan di Toolbox pilih Choose
    Item atau bisa juga dari Menu Project--> Add Reference --> .NET
7. Setelah itu, copykan kode di bawah ke module koneksi

Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types
Module Module1
    Public con As OracleConnection
    Public cmd As OracleCommand
    Public dr As OracleDataReader
    Public da As OracleDataAdapter
    Public ds As DataSet
    Public str As String
    Public pesan As String

    Sub koneksi()
        str = "user id=useranda; password=passwordanda; data source=(DESCRIPTION =
        (ADDRESS =  (PROTOCOL = TCP)(HOST = hostanda)(PORT = 1521))
        (CONNECT_DATA =(SERVER = nama komputer yg dipake server)(SERVICE_NAME =
         nama server)))"
        con = New OracleConnection(str)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
    End Sub
  End Module

Untuk lebih jelas tentang koneksi string lihat disini

Catatan :

Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types

harus disertakan sebelum class

8. Ok selajutnya desain form dengan datagridview satu saja
9. Ketikan kode dibawah ini



Sub tampil()
        con.Close()
        da = New OracleDataAdapter("select * from Nama Tabel", con)
        ds = New DataSet
        da.Fill(ds, "namatabel")
        DataGridView1.DataSource = ds.Tables("namatabel")
        DataGridView1.ReadOnly = True
    End Sub

10. ketikan kode dibawah untuk pemnggilan koneksi dan tampilan ke dgv fi form_load

Call koneksi()
Call tampil()

11. Jalankan vb.net temen-temen

Mungkinsekian dulu artikel ini... insa allah akan dilanjutin lagi