怎么样使用Delphi多线程下的ADO编程

由于ADO控件的线程不安全性（事实上这种不安全性是来自Micrsoft ADO Library，所以在其它开发工具中也存在同样的问题）因此在使用多线程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语句就可以实现返回数据库中相应数据的目的了。

1、放置ADOconnection控件；

2、放置ADOtable控件 或 查询控件；

3、放置 DataSource 控件；

4、放置 DBGrid 控件；

5、在ADOconnection控件中设置好连接串，选择数据表、打开数据表；

6、控件 2～4 分别指向前一个控件

---