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()
