Koneksi VB Dengan Database Access Berpassword

Untuk melindungi database kita dari sesuatu yang tidak diinginkan alangkah baiknya databasenya diberi password. Yang menjadi pertanyaan adalah bagimana mengkoneksikan VB dengan Database Access berpassword ? Jika anda ingin tahu simak tulisan ini sampai selesai.

Saya anggap semuanya sudah bisa cara memberi password pada database ms access. Disini saya memaki database dengan nama db_mhs.mdb yang telah saya beri password '12345678'.
Sebagai contoh saya akan mencoba menampilkan data dari database yang telah di beri password tersebut ke dalam komponen msflexgrid. Siapkan sebuah form seperti gambar berikut ini.

Untuk koneksinya saya menggunakan sebuah modul, tambahkan modul dengan cara klik menu project-Add Modul dan ketikan koding berikut ini yang berguna menghubungkan database dengan aplikasi vb:

Public Conn As New ADODB.Connection
Public RsMhs As ADODB.Recordset

Public Sub KonekDB()
    Set Conn = New ADODB.Connection
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=" & App.Path & "\Db_Mhs.mdb;" _
            & "Jet OLEDB:Database Password='12345678'"
    Conn.CursorLocation = adUseClient
End Sub

Untuk lebih jelanya silahkan lihat screenshotnya seperti gambar berikut

koding yang  di dalam kotak merah ada tulisan 12345678 itu merupakan password databasenya. Selanjutnya yaitu koding untuk menampilkan data ke msflexgrid. sebenarnya koding sama seperti kita menampilkan data ke msflexgrid dengan menggunakan database tanpa password pada tutorial-tutorial saya sebelumnya. Berikut kodingnya :

Option Explicit

Sub AktifGrid()
    MSFlexGrid.Cols = 5
    MSFlexGrid.RowHeightMin = 300
    '-------------------------------------------------
    MSFlexGrid.Col = 0
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NO"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(0) = 500
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 1
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NIM"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(1) = 700
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 2
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NAMA MAHASISWA"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(2) = 2000
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 3
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "ALAMAT"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(3) = 2000
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '---------------------------------------------------
    MSFlexGrid.Col = 4
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "JURUSAN"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(4) = 2300
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
End Sub

Sub TampilGrid()
    Dim Baris As String
    MSFlexGrid.Clear
    Call AktifGrid

    MSFlexGrid.Rows = 2
    Baris = 0
    Call KonekDB
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM tbl_mhs ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic

    If RsMhs.BOF Then
        Exit Sub
    Else
        RsMhs.MoveFirst
        Do While Not RsMhs.EOF
            Baris = Baris + 1
            MSFlexGrid.Rows = Baris + 1
            MSFlexGrid.TextMatrix(Baris, 0) = Baris
            MSFlexGrid.TextMatrix(Baris, 1) = RsMhs!nim
            MSFlexGrid.TextMatrix(Baris, 2) = RsMhs!nama
            MSFlexGrid.TextMatrix(Baris, 3) = RsMhs!alamat
            MSFlexGrid.TextMatrix(Baris, 4) = RsMhs!jurusan
            RsMhs.MoveNext
        Loop
    End If
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Call Buka
    Call TampilGrid
End Sub

jika sudah selesai silahkan dijalankan. semoga berhasil dan bermanfaat. Jika anda menginginkan source codenya silahlan download pada link di bawah ini.

DOWNLOAD

Tags:

Koneksi VB Dengan Database Access Berpassword,VB Dengan Database Access Berpassword,Cara Koneksi VB 6 Dengan Database Access Berpassword,Password Database,Memberi Password Pada Database Access