koneksi delphi database acces berpassword

setelah kemarin sudah menulis mengenai cara koneksi delphi database mysq, sekarang saya akan berbagi mengenai cara koneksi delphi database acces berpassword, sebenarnya prosesnya dama saja dengan koneksi dengan database acces biasa yaitu melalu conection string pada komponen ado, hanya cukup menambahkan password databasenya saja berikut langkah-langkahnya :

• tambahkan komponen adoconection pada form

• pada koension string pilih nama database

• kopi isi file pada conection string lalu letakan di event on create form berikut kode selengkapnya

   dm.Koneksi.Connected :=false;

   dm.Koneksi.ConnectionString := 'Provider=MSDASQL.1;'+

                                  'Password=rahasia;'+//password yg digunakan pada file database

                                  'Persist Security Info=True;'+

                                  'User ID=admin;Extended Properties="DBQ=' + edserver.Text +'\Perpustakaan\dbPerpustakaan\dbPerpustakaan.mdb;'+ // path lokasi penyimpanan file database

                                  'DefaultDir=' + edserver.Text + '\Perpustakaan\dbPerpustakaan;'+

                                  'Driver={Microsoft Access Driver (*.mdb)};'+

                                  'DriverId=25;FIL=MS Access;'+

                                  'FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\PErpus.dsn;'+

                                  'MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;'+

                                  'PWD=rahasia;SafeTransactions=0;'+ //password yg digunakan pada file database

                                  'Threads=3;UID=admin;UserCommitSync=Yes;"';

        try

         dm.Koneksi.Connected := true;

        except

          messagedlg('koneksi database gagal',mtwarning,[mbok],0);

          exit;