如何使用ADO多线程访问数据库？

Question

我想用ADO做一个多线程访问数据库的程序，请问有没有现成的例子或者各位高手能帮我写个？！~！~！谢谢!!

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB ;type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;  THwThread = class(TThread)
  public
    Q : TADODataSet;
    procedure rsOpen;
    Constructor Create(bln : boolean;ADODataSet: TADODataSet);
  protected
    procedure Execute;override;
  end;
var
  Form1: TForm1;implementation{$R *.dfm}constructor THwThread.Create(bln : boolean;ADODataSet: TADODataSet);
begin
  inherited Create(False);
  Q := ADODataSet;
  FreeOnTerminate := True;
end;procedure THwThread.Execute;
begin
  Synchronize(rsOpen);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  THwThread.Create(False,ADODataSet1);
end;procedure THwThread.rsOpen;
begin
  //数据库操作代码
end;end.

Answer 2

不好意思，还要打扰各位高手了，小弟我对线程和ado一点都不明白，能写的再明白一点吗？（我的程序需要用到ADOConnection控件，还要有查询的控件！）
高分相送！！帮忙！！谢谢！~~·！·#￥%

Answer 3

给我来邮件吧，我发给你个例子慢慢看
My Email:[email protected]