ADO連接ACCESS2007及以上版本的數據庫

function getaccessstr(databasename:string;password:string;accessVer:string='access2003'):string; 
begin
if accessVer='access2003' then
begin
if password='no' then
result:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+databasename+';Persist Security Info=False'
else
result:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+databasename+';Persist Security Info=False;jet oledb:database password='+password;
end
else
if accessVer='access2007' then
begin
if password='no' then
Result := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+databasename+';Persist Security Info=False'
else
result := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+databasename+';Persist Security Info=False;jet oledb:database password='+password;
end;
end;

Microsoft.Jet.OLEDB.4.0，只能驅動access2003及以下版本的數據庫，WINDOWS默認已經安裝了該驅動。

Microsoft.ACE.OLEDB.12.0，可驅動所有版本的ACCESS數據庫，WINDOWS默認沒有安裝該驅動。