//==============================================================================
// 多線程查詢????? cxg?????????? 2008-09-26 14:29:42
//==============================================================================

unit uSelect;

interface

uses
? sysUtils,ADODB,Classes;

type
? TSelect = class(TThread)
? private
??? FAdoConnection:TADOConnection;
??? FAdoquery:TADOQuery;
??? FSql:String;
? protected
??? procedure Execute;override;
? public
??? constructor create(AdoConnection:TADOConnection;AdoQuery:TADOQuery;Sql:string);
end;

implementation

{ Tselect }

constructor Tselect.create(AdoConnection:TADOConnection;AdoQuery:TADOQuery;Sql:string);
begin
? inherited create(False);
? FreeOnTerminate:=True;
? FAdoConnection:=AdoConnection;
? FAdoquery:=AdoQuery;
? FSql:=Sql;
end;

procedure Tselect.Execute;
begin
? with FAdoquery do
? begin
??? Close;
??? SQL.Clear;
??? SQL.Add(fsql);
??? Open;
? end;
end;

end.

?

總結

以上是生活随笔為你收集整理的多线程查询的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。