Membuat relasi database antara Visual Basic 2008, 2010, 2012, 2013 Dengan SQL Server 2008

Oke sobat,,

Kali ini saya akan membuat tutorial mengenai bagaimana merelasikan database SQL Server 2008 dengan Microsoft Visual Basic 2008 dan versi berikutnya.

Oke langsung saja

Pertama sobat buat Class baru, Calss ini berfungsi untuk mengkoneksikan antara VB.Net dengan SQL Server.

Klik kiri pada project sobat-> add -> add new item ->pilih Class->berinama kelas yang kita buat tadi dengan nama CLSKoneksi.vb -> klik ok

Pada saat pengoneksian ke SQL Server ada banyak sekali versi coding yang diisikan pada kelas koneksi.

Namun pada intinya semua versi tersebut memiliki perintah yang sama, perintah – perintah tersebut biasanya berisi “openConn, tutupConn, Reader, ExcuteReader, ExcuteNonQuery, ExcuteQuery”.

Yang saya tuliskan dibawah ini merupakan versi yang menurut saya paling mudah untuk digunakan pada saat memanggil fungsi yang ada pada CLSKoneksi.

Silahkan Copi Paste koding dibawah ini pada CLSKoneksi.vb

Imports System.Data.SqlClient

Imports System.Data

Public Class CLSKoneksi

    Protected sql As String

    ' Protected conn as SqlClient.SqlConnection

    Protected conn As SqlConnection

    Protected cmd As SqlCommand

    Protected da As SqlDataAdapter

    Protected ds As DataSet

    Protected dt As DataTable

    Public Function openConn() As Boolean

        sql = "nama server komputer anda"

        conn = New SqlConnection(sql)

        conn.Open()

        If conn.State <> ConnectionState.Open Then

            Return False

        Else

            Return True

        End If

        Return False

    End Function

    Public Sub closeConn()

        If Not IsNothing(conn) Then

            conn.Close()

            conn = Nothing

        End If

    End Sub

    Public Sub ExecuteNonQuery(ByVal query As String)

        If Not openConn() Then

            MsgBox("Koneksi Gagal", MsgBoxStyle.Critical, "Informasi")

            Exit Sub ' break

        End If

        cmd = New SqlCommand

        cmd.Connection = conn

        cmd.CommandType = CommandType.Text

        cmd.CommandText = query

        cmd.ExecuteNonQuery()

        cmd = Nothing

        closeConn()

    End Sub

    Public Function reader(ByVal query As String) As DataTable

        If Not openConn() Then

            MsgBox("Koneksi Gagal", MsgBoxStyle.Critical, "Informasi")

            Return Nothing

            Exit Function ' break

        End If

        cmd = New SqlCommand(query, conn)

        da = New SqlDataAdapter

        da.SelectCommand = cmd

        ds = New DataSet

        da.Fill(ds)

        dt = ds.Tables(0)

        Return dt

        dt = Nothing

        ds = Nothing

        da = Nothing

        cmd = Nothing

        closeConn()

    End Function

End Class

Oke sobat itulah coding untuk merelasikan SQL server dengan VB.Net

Selamat Mencoba………!!!

Cara untuk mengetahui nama server computer sobat bisa klik disini.