如何使用线程进行数据库查询（使用ADO控件）？

Question

请给出具体的代码，多谢！

Answer 1

创建TThread 对象，在此对象中创建ADO，对数据进行查询。
在工程的主进程中启动刚才创建的进程。
为什么一定要别人给出代码呢？只是为了完成任务？

Answer 2

一般情况下，在代码中用保护方式。使用TCriticalSession,
dd:TCriticalSession;
begin
   dd:=TCriticalSession.create;
   dd.Acquire;
  .............//your code for database
   dd.release;
end;

Answer 3

to xdf_hubei(残月):因为这样可以加快学习的速度

Answer 4

TQThread = class(TThread)
  private
    { Private declarations }
    MyQuery:TADOQuery;
  protected
    procedure Execute; override;
  published
    Constructor Create(Query:TADOQuery);
    destructor Destroy;override;
  end;Constructor TQThread.Create(Query:TADOQuery);
begin
  FreeOnTerminate:=True;
  MyQuery:=Query;
  inherited Create(false);
end;procedure TQThread.Execute;
begin
  MyQuery.SQL.Clear;
  MyQuery.SQL.Add...
  ....
  MyQuery.Open;
end;

Answer 5

在主线程的按钮按下事件中，加入如下代码：
DataSource1.DataSet:=adoQuery1;  
NewThread:=TDLThread.Create(adoQuery1);