{ Berbagi, Menulis, Dan Mengajar } Ilmu…

Option Explicit
Public DBKoneksi As ADODB.Connection
Public Rs_Pegawai As ADODB.Recordset
Public Rs_Jabatan As ADODB.Recordset
Public Rs_Potongan As ADODB.Recordset
Public Rs_Tunjangan As ADODB.Recordset
Public Rs_Gapok As ADODB.Recordset
Public Rs_Golongan As ADODB.Recordset
Public Rs_Posisi As ADODB.Recordset
Public Rs_Keluarga As ADODB.Recordset
Public Rs_Penggajian As ADODB.Recordset
Public Rs_Presensi As ADODB.Recordset
Public Rs_Pendidikan As ADODB.Recordset

Public i As Byte
Public View As ListItem
Public StrKoneksi As String

‘ Perintah-perintah umum
Public SqlMasuk As String
Public SqlUbah As String
Public SqlHapus As String
Public Konfirmasi As String

Public Sub Bukadatabase()
Set DBKoneksi = New ADODB.Connection
DBKoneksi.CursorLocation = adUseClient

‘StrKoneksi = “Provider=Microsoft.Jet.OleDB.4.0; ” _
‘    & ” Data Source=” + App.Path _
‘    + “\DbPenggajian.mdb;Mode=readwrite”

‘StrKoneksi = “provider=msdasql.1;” & _
‘”persist security info = false; data source = sdmkumham;” & _
‘”initial catalog = sdmkumham”

StrKoneksi = “Driver={MySQL ODBC 5.1 Driver}; SERVER=localhost;PWD=okedeh;UID=root;port=3306;DATABASE=sdmkumham;”

If DBKoneksi.State = adStateOpen Then
DBKoneksi.Close
Set DBKoneksi = New ADODB.Connection
DBKoneksi.Open StrKoneksi
Else
DBKoneksi.Open StrKoneksi
End If
End Sub