Membuat modul untuk koneksi

Berikut ini merupakan cara sederhana untuk membuat koneksi database dari VB 2008 ke database source SQL 2000. Coding koneksi ini dibuat dalam sebuah modul dimana bertujuan agar modul koneksi dapat dipanggil selama form yang menggunakan koneksi masih berada dalam 1 Project.

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 kedatabase berhasil")

Catch ex As Exception

MessageBox.Show("koneksi gagal")

End

End Try

End Sub

End Module

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 As System.EventArgs) Handles Button1.Click

Call bukakoneksi()

End Sub

End Class

Kemudian jalankan,