Lompat ke konten Lompat ke sidebar Lompat ke footer

Memeriksa Password File Ms.Access Dan Ms.Excel VB6

Berikut ini adalah cara memeriksa file microsoft Access dan microsoft Excel apakah menggunakan password atau tidak di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form, 1 Label, & 2 Commandbutton
2. Tambahkan reference Microsoft DAO 3.51 Object Library dari menu Project->References... lalu pilih reference tsb.
3. Tambahkan Component untuk memilih file; klik kanan di Toolbox, pilih/ceklist kotak "Microsoft Common Dialog Control 6.0 (SP3)  lalu klik OK.            
4. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Public Function Password_Check(Path As String) As String
          Dim db As DAO.Database

            If Dir(Path) = "" Then

            'Kembalikan 0 jika file tidak ada
               Password_Check = "0"
               Exit Function
            End If

            If Right(Path, 3) = "mdb" Then
                On Error GoTo errorline
                Set db = OpenDatabase(Path)
                Password_Check = "False"

                MsgBox "File " & Path & "" & Chr(13) & _
                       "adalah file yang tidak dipassword!", vbInformation, "Akses Diterima"
                db.Close
                Exit Function

            ElseIf Right(Path, 3) = "xls" Then
                On Error GoTo errorline
                Set db = OpenDatabase(Path, True, False, "Excel 5.0")
                Password_Check = "False"
                MsgBox "File " & Path & "" & Chr(13) & _

                       "adalah file yang tidak dipassword!", vbInformation, "Akses Diterima"
                db.Close
                Exit Function
            Else

                'Asumsikan bukan file yang valid jika ekstensinya
                'bukan xls atau mdb seperti di atas
                Password_Check = "0"
                MsgBox "File " & Path & "" & Chr(13) & _

                       "adalah file yang tidak dipassword!", vbInformation, "Akses Diterima"
               Exit Function
            End If
          errorline:
              Password_Check = "True"

              MsgBox "File " & Path & "" & Chr(13) & _
                     "adalah file yang dipassword!", vbCritical, "Akses Ditolak"
              Exit Function
          End Function

          Private Sub Command1_Click()  'Untuk memeriksa apakah file dipassword?
            If CommonDialog1.FileName = "" Then
               MsgBox "Pilih nama file dari tombol Browse...!", vbCritical, "Pilih Nama File"

               Exit Sub
            Else
               Password_Check (CommonDialog1.FileName)
            End If
          End Sub

          Private Sub Command2_Click()   'Untuk memilih file yang akan diperiksa
          On Error Resume Next
            With CommonDialog1

             .Filter = "Semua Files|*.*"
             .DialogTitle = "Ambil Nama File..."
             .ShowOpen
            End With

            Label1.Caption = CommonDialog1.FileName
          End Sub

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Posting Komentar untuk "Memeriksa Password File Ms.Access Dan Ms.Excel VB6"