Class DBKoneksi VB.NET ke SQL Server

Koneksi database dari VB.NET ke SQL Server dapat menggunakan class-class pada paket System.Data.SqlClient, berikut ini skrip program berupa class DBKoneksi yang bertugas melakukan koneksi ke database.

Imports System.Data.SqlClient
Public Class DBKoneksi
    Private con As SqlConnection
    Private strcon As String

    Public Sub New()
        'definisikan connection string
        strcon = "Data Source=PCANDA\SQLEXPRESS;" & _
        "Initial Catalog=dbsdm;Persist Security Info=True;" & _
        "User ID=sa;Password=r4h4s14donk"

        'buat object connection
        con = New SqlConnection(strcon)
    End Sub

    Public Function openKoneksi() As SqlConnection
        'cek apakah koneksi belum dibuka(close)
        If (con.State = ConnectionState.Closed) Then
            con.Open()
        End If
        'openKoneksi = con
        Return con
    End Function

    Public Sub closeKoneksi()
        'cek apakah connection open
        If (con.State = ConnectionState.Open) Then con.Close()
    End Sub
End Class

Berikut skrip yang menggunakan class DBKoneksi.vb pada form yang didalamnya terdapat komponen data DataGridView

Imports System.Data.SqlClient
Public Class Form1
    Dim dbkon As DBKoneksi
    Private Sub Button1_Click(ByVal sender As System.Object, _
                        ByVal e As System.EventArgs) Handles Button1.Click
        dbkon = New DBKoneksi()
        Dim sql As String
        Dim cmd As SqlCommand
        Dim da As SqlDataAdapter
        Dim ds As DataSet

        sql = txtSQL.Text
        '3) buat objek command
        cmd = New SqlCommand(sql, dbkon.openKoneksi())
        '4) buat sql adapter
        da = New SqlDataAdapter(cmd)
        '5) masukan ke dalam dataset
        ds = New DataSet()
        da.Fill(ds, "dept")
        '6) tampilkan ke datagridview
        DataGridView1.DataSource = ds.Tables("dept")

        dbkon.closeKoneksi()

    End Sub
End Class

Selamat mencoba !!

Post a Response