Membuat Modul & Koneksi Ke Database

Pada kesempatan kali ini kita kan mencoba mengkoneksikan VB.Net (VB 2008) kedatabase SQL server 2000, llangkah pertama adalah kita harus membuat modul tujuannya agar modul koneksi dapat dipanggil selama form yang menggunakan koneksi masih berada dalam 1 Project. Langsung saja kita praktekkan sebagai berikut:

Buatlah sebuah project baru

File >> New Project >> Pilih Windows Form>>Lalu beri nama project tersebut

Kemudian

Klik kanan pada project >>add>> Module>> beri nama module anda

Kemudian ketikkan source kode berikut :

Imports System.Data

Imports System.Data.Sql

Module konek

Public database As New OleDb.OleDbConnection

Public tampil2 As New OleDb.OleDbCommand

Public tampilkan As OleDb.OleDbDataReader

Public hasilcek As String

Public Sub bukakoneksi()

database.Close()

Try

database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=cobasql;data source=."

database.Open()

MessageBox.Show("Koneksi berhasil")

Catch ex As Exception

MessageBox.Show("koneksi gagal")

End

End Try

End Sub

End Module

Perlu diingat:

Masukkan nama database yang ingin kita koneksikan pada bagian ini :

initial catalog=cobasql

Untuk mencoba mengetes running module tersebut, buatlah sebuah form dengan 1 button seperti berikut :

Lalu pada codding, panggil module koneksi tadi,

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Call bukakoneksi()

End Sub

End Class

Kemudian coba jalankan