郁闷的问题?=------------在线等待

Question

派生了一个线程类
在其中有  qryWork:TADOQuery;
我在其中一个函数使用
qryWork.Connection:=DataModule3.ADOConnection1;
//DataModule3.ADOConnection1是数据模块中的连接
系统老是报错!
抛出一个olesyserror异常

Answer 1

在线程里必须先调用初始化COM库的函数:CoInitialize
因为ADO是一个COM组件.

Answer 2

initialization 
  CoInitialize(0);—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 3

uses ActiveX;
//.....initialization 
  CoInitialize(0);—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————