jump to navigation

Membuka database Access yang terproteksi oleh password (Set Database Password) Sat - Sep 2, 2000

Posted by supriyatna in Programming, Windows.
Tags: , , , , ,
trackback

Sebagai salah satu cara untuk menjaga keamanan data pada Database Access yaitu dengan cara memberikan password terhadap database yang kita buat (Set database Password …). Berikut adalah contoh mengakses database yang sudah terproteksi oleh database password (password yang diberikan pada database adalah ‘sysadmin‘) dengan menggunakan ActiveX Data Access (ADO) dan menampilkannya pada Kontrol MSFlexGrid.

Berikut listing programmnya:

Option Explicit
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdOK_Click()
  Unload Me
End Sub

Private Sub Form_Load()
Dim i As Integer, nBaris As Integer
Dim LebarJudul
  ' Inisialisasi dari Variable yang akan digunakan

  LebarJudul = Array(400, 550 * 2, 500 * 4, 500 * 4)
  nBaris = 0
  Label1.Caption = "Menampilkan data kedalam MSFlexGrid " & _
    "dari database yang terproteksi oleh password " & _
    "(Set Database Password ...)"

  Set Conn = New ADODB.Connection
  Conn.ConnectionString = _
    "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
    "DBQ=" & App.Path + "\DB_TEST.mdb" & "; pwd=sysadmin"
  Conn.Open
  Set rs = New ADODB.Recordset
  rs.Open "SELECT * FROM USERS", Conn, _
    adOpenDynamic, adLockOptimistic

  With MSFlexGrid1
    .BackColor = &H80000018
    .Cols = rs.Fields.Count + 1
    ' Tulis judul tiap-tiap kolom dari Grid
    For i = 0 To .Cols - 1
      .ColWidth(i) = LebarJudul(i)
    Next i

    For i = 0 To rs.Fields.Count - 1
      .TextMatrix(0, i + 1) = rs.Fields(i).Name
    Next i

    ' Tampilkan data kedalam MSFlexGrid
    Do While Not rs.EOF
      nBaris = nBaris + 1
      .TextMatrix(.Rows - 1, 0) = Format(nBaris, "#.")
      For i = 0 To rs.Fields.Count - 1
        .TextMatrix(.Rows - 1, i + 1) = rs.Fields(i).Value
      Next i
      rs.MoveNext
      .Rows = .Rows + 1
    Loop
  End With

  ' Tutup semua Object dan buang dari memory
  rs.Close
  Set rs = Nothing
  Conn.Close
  Set Conn = Nothing

End Sub

Comments»

No comments yet — be the first.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: