请看下面的:
function GetConnStr(mdbstr,mdwstr:string):string;
begin
Result:='Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'Password=1203;'
+ 'User ID=Administrator;'
+ 'Data Source='
+ mdbstr + ';'
+ 'Mode=Share Deny None;'
+ 'Extended Properties="";'
+ 'Persist Security Info=True;'
+ 'Jet OLEDB:System database='
+ mdwstr+ ';'
+ 'Jet OLEDB:Registry Path="";'
+ 'Jet OLEDB
atabase Password="";'
+ 'Jet OLEDB:Engine Type=5;'
+ 'Jet OLEDB
atabase Locking Mode=0;'
+ '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
on''t Copy Locale on Compact=False;'
+ 'Jet OLEDB:Compact Without Replica Repair=False;'
+ 'Jet OLEDB:SFP=False ';
end;
GoodLucky!