Delphi 中怎么用ADO连接数据库？

以下以ADOQuery控件为例

在窗体上分别添加一个Button、ADOQuery、DataSource、DBGrid

设置属性分别为

DBGrid1的DataSource为DataSource1

DataSource1的DataSet为ADOQuery1

Button1的Caption为连接数据库

双击Button1，在事件里面添加如下代码

procedure TForm1.Button1Click(Sender: TObject)

var

DatabasePath: string

begin

DatabasePath:= ExtractFilePath(Application.ExeName) + 'Data.mdb'

with ADOQuery1 do

begin

ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0Data Source=' +

DatabasePath + 'Persist Security Info=False'

SQL.Clear

SQL.Add('SELECT * FROM TableMain')

Open

end

end

自己改一下数据库名和SQL语句就可以实现返回数据库中相应数据的目的了。

sql设置好用户名跟密码以后比如sa

密码123

打开delphi放一个按钮，然后在控件栏那里选datacontrol，选第一个dbgrid放到form上，选dataaccess里面的第一个datasource，然后选ado——adoconnection放到form上，再选ado——adoquery放到form上。点选adoconnection左边的框体有个connectionstring点"…"：d出来的对话框中点Build，然后选择从下数上来第五个，双击或者下一步，填入用户名跟密码(sa

123)，在“3.选择数据库”那里选择要打开的数据库，选上保存密码，点一下“测试连接”，点OK退出。出来以后继续在左边框体里面找LoginPrompt改成False。到adoquery了，点上它然后在左边框体的

Connection

那里下拉选择ADOConnection1，然后点选datasource，在左边框体找到dataset下拉选择adoquery1，然后再点选dbgrid，在左边框体找到datasource，下拉选择datasource1。双击刚才创建的按钮，假设你要打开的数据表名叫“

销售订单

”，输入

adoquery1.close

adoquery1.sql.clear

adoquery1.sql.add('select

*

from

销售订单

')

adoquery1.open

运行，按按钮如果dbgrid有数据显示表示连接成功了，以上所有功能实现均可通过代码或者手工设置。

---