怎样用ADO连接Access数据库

Question

要先用ADOConnection连接Access数据库，设置其connectionstring为：
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\model.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";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="";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
之后再用AdoQuery连接，其connection为ADOConnection
即可。

Answer 1

呵呵,不用那么复杂的, 你只要把Provider选Microsoft.Jet.OLEDB.4.0, 然后指定数据库文件, UserID和Password就行了, Password通常都可能不用.如果是Delphi5 ,用ADO是要打补丁的Borland网站上有. Delphi6 就不用了! Mdac是最高版本是2.75可到MicroSoft网站上去下载, 免费的.

Answer 2

adoconnection1.adoconnectionstring:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=复件 design2.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";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="";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.connection:=true;adotable1.connection:=adoconnection1;adotable1.tablename:='tiku';adotable1.active:=true;