قم بجعل إتصالك بقاعدة البيانات ديناميكياً Connection to the database dynamically

procedure TForm1.FormCreate(Sender: TObject);
;var passwd:string
begin
;passwd:='123456'
adoconnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+
'Data Source='+extractfilepath(application.ExeName)+'\Test.mdb'+
';Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password='+passwd+
';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='+passwd+
';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;';
adoconnection1.Connected:=true;
AdoTable1.TableName:='Table1';
Adotable1.Active:=true;
end;