Cara membuat Modul Koneksi SQL di VB.Net

Cara membuat Modul Koneksi SQL di VB.Net - Setelah kita tahu cara mengkoksikan sql server, selanjutnya saya akan membagikan cara untuk membuat modul koneksi nya. fungsi modul koneksi ini sebagai perantara atau cara untuk memanggil database yang kita miliki agar bisa terhubung dan bisa di pakai.

Langsung saja caranya sangat mudah, ikuti perintah berikut ini :

1. Buka Visual Studio yang anda miliki, saya asumsikan disini kita sudah membuat satu projek sehingga kita cukup mengklik kanan pada project kita lalu pilih add->module, lihat gambar

2. Lalu OK, dan kemudian kita isikan nama modul kite, misal Mkoneksi

3. Jika sudah maka kita berhasil menambahkan Mkoneksi ke dalam project kita

4. Selanjutnya Double Klik Mkoneksi kita dan masukkan Koding dibawah ini, sebagai koneksi untuk database ke project kita.

'wajib untuk menggunakan SQL

Imports System.Data

Imports System.Data.SqlClient

Module MConnection

    '========= SQL CLIENT ======='

    Public conn As New SqlConnection

    Public cmd As New SqlCommand

    Public rd As SqlDataReader

    Public lst As ListViewItem

    Public connectionString, sql, str As String

    Public edit As Boolean

    Public Sub openConn()

        connectionString = "Data Source=LP3I-PC\SQLEXPRESS;" & _

                            "Initial Catalog=DBPegawai; " & _

                            "Integrated Security=True"

        conn = New SqlConnection(connectionString)

        Try

            If conn.State = ConnectionState.Closed Then

                conn.Open()

            End If

        Catch ex As Exception

            MsgBox("Koneksi Gagal : " & ex.Message)

        End Try

    End Sub

    Public Sub Exec(ByVal Query As String) ' untuk insert, update, delete

        Try

            cmd = New SqlCommand(Query, conn)

            cmd.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Public Sub Read(ByVal Query As String) 'untuk select

        Try

            cmd = New SqlCommand(Query, conn)

            rd = cmd.ExecuteReader() 'nampung data

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

End Module

Tulisan yang saya birukan adalah untuk memanggil server yang kita miliki, dan nama database yang kita miliki dan sudah di buat sebelumnya.

Demikian Cara membuat Modul Koneksi SQL di VB.Net, semoga bermanfaat bagi anda yang sedang belajar program Visual Studio

Share this post