Cara Membuat database Acces berpassword dengan MS Acces 2010

Langkah pertama

Ø  > Anda aktifkan dulau Microsoft Office Acces 2010-nya

Ø  > Padaberi nama database pada  File name dan atur tempat menyimpan database-nya

Untuk menseting format database nya anda pilih menu Option

Ø      >Pada Default file format for Blank Databse  : Acces 2002-2003 kemudian- OK

Ø  > Pilih Blank Database

Pilih Menu File - > Set database Password

Akan mumcul dialog Set Databse Password Isikan passowd yang kita inginkan pada command dialog berikut Kemudian - OK

Untuk membuat Tabel  tinggal pilih menu Create  - Table Desingn

Untuk kesempatan kali ini saya menggunakan databse yang sudah saya buat sebelumnya jadi tinggal mengimport nya saja cranya:

Pilih menu External Data

Ø      > Acces kareana database yang saya import adalah DB Accres

Ø     > Jika dari My SQL anda bisa menginport nya melalui ODBC Database

Ø    > Jika database dari EXEL pilih Submenu Exel

Browse databse yang Tabel-Tabelnya yang ingin kita Inport ke databse yang baru kita buat

Ø  Jangan lupa Conteng Import,Query,form,report,macros and module into corrent database  -> OK

Pilih table-tabel yang ingin di Import

Ø  Click Select All -> OK

Ø  Akan Muncul Inpormasi jika sudah selseai - Click Close

SELSAI

Donload Articel Cara Membuat Databae Acces Berpassword

Besic Koneksi DB Acces Berpasswod with VB6.0 7 Cristal Report 8.5

Besic Kode Coneksi DB Acces Berpasswordnya adalah :
Option Explicit

Dim Database As Connectio

Dim WithEvents rs As Recordset

---

Sub konek()

Set Database = Nothing

Set Database = New Connection

Database.CursorLocation = adUseClient

Database.Open "PROVIDER=MSDataShape;Data PROVIDER= microsoft.jet.oledb.4.0;Data Source=" _

& App.Path & "\Database1.mdb;Jet OLEDB:Database Password=password databasenya; "

End Sub

---

Pada form load panggil procedure konek –nya

Private Sub Form_Load()

konek

Adodc1.ConnectionString = Database.ConnectionString

Adodc1.RecordSource = "nama_tabel"

Set DataGrid1.DataSource = Adodc1

Adodc1.Caption = "Count : " & Adodc1.Recordset.RecordCount ’menampilkan total Record

End sub

---

Besic Code Memanggil Cristal Repot dengan Db Acces Berpassword

Dim strFormula As String

   strFormula = "{NamaTabel.Nama_Field}= '" & Combo.Text & "'"

    With CrystalReport1

        .Destination = crptToWindow

        .SelectionFormula = IIf(Combo.Text = "[none]", "", strFormula)’Fiter  pencetakan

        .ReportFileName = App.Path & "\Laporan_Harian.rpt" 'assign report file

        .Password = Chr(10) & "password" 'password databasenya

        .WindowState = crptMaximized 'maximized - minimized or normal

        .DataFiles(0) = App.Path & "\Database1.mdb" 'nama databse dan URL Penyimpanan

        .Action = 1 'show report

    End With

Donload Articel Nya di Sini : VB6.0 & CR 8.5 dengan DB Acces Berpassword

Download juga :Cara membuat Database Acces Berpassword dengan MD Office 2010  

Go To Artikel Project VB Conection BD Acces Passwo