Membuat Module Koneksi Database

Assalamu'alaikum Wr. Wb..

Teman-teman, adik-adikku dan semuanya.. maaf saya baru lagi membuat postingan dikarenakan kesibukan. Akhir-akhir ini banyak sekali chat dan email yang menanyakan kesulitan dalam membuat program, terutama adik-adik yang sedang melakukan tugas kuliah. Untuk hal ini saya akan membahas yang sangat mendasar sekali, yaitu bagaimana caranya koneksi ke database.

Dalam postingan sebelumnya, saya membahas bagaimana perintah untuk membuat koneksi ke berbagai database. Namun banyak juga yang belum memahami dalam perepannya. Sekarang akan saya bahas lebih lanjut. Yaitu dengan cara membuat module dan di gunakan di prosedure di tempat lain.

Baik kita mulai pembahasannya. Pertama kali kita buat suatu Module, kita beri nama MdlBase.vb

kemudian ketikan deklarasi berikut :

#Region "Setting variabel global"
    Public MyServerName As String
    Public MyDatabaseName As String  
    Public MyProvider As String = ""
    Public MyProvider1 As String = "" 
    Public SQLConn As New SqlConnection(MyProvider)
    Public SQLConn1 As New SqlConnection(MyProvider1)
    Public SQLComm As SqlCommand = Nothing
    Public objDataAdapter As SqlDataAdapter = Nothing
    Public ObjDataSet As DataSet = Nothing    
    Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Public strINIFile As String = Application.StartupPath + "\Project.ini"
#End Region


setelah mengetikan deklarasi, kita buat  prosedure untuk proses koneksinya. Ketikan sbb :

#Region "Cek Connection String"
    Public Sub CheckConnection()

        Dim StrConn As String = ""
        
        StrConn = "Persist Security Info=false;"
        StrConn = StrConn & "Data Source=" + (ketik alamat IP database) + ";"
        StrConn = StrConn & "Initial Catalog=" + (Nama Database) + ";"
        StrConn = StrConn & "User ID=" + (Nama user Database) + ";"
        StrConn = StrConn & "Password=" + (Password user Database) + ";"

        MyProvider = StrConn
        MyProvider1 = StrConn

        SQLConn = New SqlConnection(MyProvider)
        SQLConn1 = New SqlConnection(MyProvider1)

        If SQLConn Is Nothing Then
            SQLConn = New SqlConnection(MyProvider)
            SQLConn.Open()
        ElseIf SQLConn1 Is Nothing Then
            SQLConn1 = New SqlConnection(MyProvider1)
            SQLConn1.Open()
        Else
            If SQLConn.State = ConnectionState.Closed Or SQLConn.State = ConnectionState.Broken Then
                SQLConn.Open()
            ElseIf SQLConn1.State = ConnectionState.Closed Or SQLConn1.State = ConnectionState.Broken Then
                SQLConn1.Open()
            End If          
        End If
    End Sub
#End Region

simpan module koneksi tersebut. Untuk proses pamanggilannya, ketika kita membuat form input data, report atau sebagaimnya cukup mengetikan  CheckConnection()

demikian pembahasan koneksi ke database, semoga bermanfaat.