Ah, dimenticavo... Accedo al DB Access mediante TADOQuery, in questo modo:
codice:
DBConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
DbCorrente +
';Mode=Share Deny Read|Share Deny Write;Persist Security Info=False';
EffettuaConnessione(DBConnectionString);
codice:
procedure TFormPrincipale.EffettuaConnessione(DBConnectionString : string);
begin
if ConnessioneEffettuata = False then
begin
try
DefaultADOQuery := TADOQuery.Create(self);
DefaultADOQuery.ConnectionString := DBConnectionString;
finally
ConnessioneEffettuata := True;
end;
end;
end;