如何用Delphi访问Access数据库
编号：QA001165
建立日期: 1999年6月13日 最后修改日期：2003年8月2日
所属类别：
Ｑ
yangm:
Delphi4
Win98
我是初次接触DELPHI4.0,在编写有关数据库程序时,遇到一些初级问题,请您帮忙解答:有一个ACCESS数据库1.MDB,存放在d:\1目录中,不知用Delphi如何调用它,谢谢!!
Ａ回答:
在Delphi中使用数据库需要先建立别名。你可以使用SQL Explorer在设计程序时建立，也可以在程序中动态建立(QA000751 "如何程序建立别名")。下面以SQL Explorer为例，首先运行SQL Explorer，选择菜单Object|New，建立别名，选择数据库类型为MSACCESS。然后设置DATABASE NAME为d:\1\1.mdb就可以了。以后你在程序中就可以使用这个数据库了。比如在DBGrid中浏览一个表：
1、在窗体上放置一个Table控件，然后设置Table控件的DatabaseName属性为数据库别名。设置TableName属性。设置Active属性为True。设置Table控件的TableName属性时出现一个Database login 对话框,提示输入Username和Password。如果你没有设置密码，可以参考QA000633 "能否不让询问密码的对话框出现"。(如果你采用TDatabase动态建立别名，也可以参考QA000633 "能否不让询问密码的对话框出现"。)
2、放置一个DataSource控件，设置DataSet属性。
3、放置DBGrid控件，设置DataSource属性即可。
y的意见：
MSJT3032.DLL好象没有，进不去。
郑宇的意见：
我觉得更简单的办法你在Windows操作系统里的ODBC添加一个数据源，然后就可以Table控件与其想连接了！
郑茂强的意见：
在工作中加入ADOConnection、ADOQuery、DataSource、DBGrid1四个控件，设ADOConnection的ConnectionString为'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\Mz\My eBooks\Delphi\34447_SQL3\SQL3\ORDER.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'(可以不用那麼長)
ADOQuery1.Connetion:=ADOConnection;AdoQuery.SQL:='Select * from 表名';AdoQuery.Active:=True
DataSource1.DataSet:=AdoQuery
DBGrid.DataSource:=DataSource
就可以看到Access资料库的內容了，若要对该资料进行操作，可以编写AdoQuery的代码。
这里有一个Delphi调用Access的范例下载，自己研究吧。
http://delphi.ur-solution.com/delphi_download/upload/34447_SQL3.zip
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, 数据库, database, query。
| |
|
|
| |
|
|
