koneksi delphi database acces berpassword
Selasa, 16 April 2013
0
komentar
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;
Baca Selengkapnya ....