Mengkoneksikan DB Saat Berjalan

// Mengkoneksikan Database Saat Program Berjalan
// Berguna Mengkoneksikan database , walau aplikasi dipindahkan
// dengan syarat database 1 folder dengan applikasi .

// Pertama tama , Buat Komp (adoConnection , adotable , dbgrid , datasource)
// Setelah itu .. masukkan kode di form event create

var NamaDB , namatbl:string ;

Begin
ADOConnection1.Connected := false ;

NamaDB := 'data.mdb' ;
Namatbl := 'Table1';
ADOConnection1.ConnectionString :=

'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
ExtractFilePath(Application.ExeName) + NamaDB +
';Persist Security Info=False ; ';


ADOConnection1.Connected := true ;
Adotable1.Connection := adoconnection1 ;
Adotable1.tablename := namatbl ;
Adotable1.active := true ;

Datasource1.Dataset := adotable1 ;
DBgrid1.datasource := Datasource1 ;
end;

// Berikut ...
// Variable NamaDB .. Di isi dengan nama database anda ...
// Variable namatbl .. Di isi Dengan nama table anda ...