在线程里面动态创建QUERY,SESSION,DATABASE;100分,在线等..

Question

我要用多线程进行数据库插入,现在要把参数(数组上'下限,调用次数)三个参数传入线程,在线程里把数组入库,因为是多线程,所以要保证每个SESSION有单独的会话,请高手帮我写个例子,愿意帮我的写,分不够再加.

Answer 1

1,重载构造函数，传近去3个参数，还有哪个BOOLEAN；
2，好象用ACTIVEX。COINI。的；

Answer 2

可以动态创建query,但是好像没有必要动态创建database和session

Answer 3

我是新手啊,麻烦有大哥写段代码给我看看啊,主要是参数传递和QUERY创建

Answer 4

...
  public
    constructor Create(QUERY: TQUERY;Session: TSession; DataBase:TDataBase);
    destructor Destroy;override;
  end;
...
constructor TMyThread.Create(QUERY: TQUERY;Session: TSession; DataBase:TDataBase);
begin
  inherited Create(True);
  QUERY:= TQUERY.Create(Application);
  Session:= TSession.Create(Application);
  DataBase:= TDataBase.Create(Application);
  //后面就不用我多说了吧

Answer 5

如果是ado的，还要初始化！！：）

Answer 6

constructor TMyThread.Create(QUERY: TQUERY;Session: TSession; DataBase:TDataBase);
begin
  inherited Create(True);
  QUERY:= TQUERY.Create(Application);
  Session:= TSession.Create(Application);
  DataBase:= TDataBase.Create(Application); 老兄，这样的代码都能写出来？后面的就不用我多说了八。

Answer 7

TMyThread =class(TThread)
private
   f_pDB:TDataBase;
   ... 其他的自己定义...constructor TMyThread.Create(low, height, count:integer; run:boolean);
begin
    f_pDB:= TDataBase.Create(Application);   // Delphi帮你释放，不推荐
或  f_pDB := TDataBase.Create(NIL);          // 自己释放
    ...
    inherited Create(run);   // 需要最后产生现成，否则崩溃
end;