var
ConnString, Path : string;
begin
//ambil path
Path := ExtractFilePath(Application.ExeName);
//atur ConnectionString-nya
ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
+'User ID=Admin;'
+'Data Source='+Path+'pswd.mdb;'
+'Mode=Share Deny None;'
+'Extended Properties="";'
+'Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";'
+'Jet OLEDB:Database Password="123";'
+'Jet OLEDB:Engine Type=5;'
+'Jet OLEDB:Database Locking Mode=1;'
+'Jet OLEDB:Global Partial Bulk Ops=2;'
+'Jet OLEDB:Global Bulk Transactions=1;'
+'Jet OLEDB:New Database Password="";'
+'Jet OLEDB:Create System Database=False;'
+'Jet OLEDB:Encrypt Database=False;'
+'Jet OLEDB:Don''t Copy Locale on Compact=False;'
+'Jet OLEDB:Compact Without Replica Repair=False;'
+'Jet OLEDB:SFP=False';
//Set properti connection String ADOConnection1
ADOConnection1.ConnectionString := ConnString;
//Aktifkan ADOConnection1
ADOConnection1.Connected := True;
ennd;
Biasanya saya menempatkan syntax ini di event on create, jadi saat pertama kali aplikasi berjalan aplikasi akan langsung mencoba untuk menyambung ke database.
