多线程 连接数据库问题

[csrwgs]

我想用多线程读写数据库
建立了一个ThreadObject
在
void __fastcall TTest1::Execute()
{
TADOConnection *ADOConnection1;
ADOConnection1 = new TADOConnection(this);
WideString connectionstr = "Provider=SQLOLEDB.1;Password=csrwgsexpert;Persist Security Info=False;User ID=sa;Initial Catalog=csrwgs;Data Source=127.0.0.1";
ADOConnection1 ->ConnectionString = connectionstr ;
try
{
ADOConnection1 ->Open();
}
catch(...)
{
ShowMessage("Cannot connect to database");
exit(0);
}
}
总是出错
错误显示为 什么对象没有 'CoInitialize'
请指教

我在头文件里已经加了
adodb.hpp 了

[csrwgs]

好像上面的程序
ADOConnection1 = new TADOConnection(this);
我写的是ADOConnection1 = new TADOConnection(NULL);

[特招]

up

[3996906]

void __fastcall TTest1::Execute()
{
::CoInitialize(NULL); //+这个，不过你就算这个样子写可能还会出错，很麻烦，偶还在调试

TADOConnection *ADOConnection1;
ADOConnection1 = new TADOConnection(this);
WideString connectionstr = "Provider=SQLOLEDB.1;Password=csrwgsexpert;Persist Security Info=False;User ID=sa;Initial Catalog=csrwgs;Data Source=127.0.0.1";
ADOConnection1 ->ConnectionString = connectionstr ;
try
{
ADOConnection1 ->Open();
}
catch(...)
{
ShowMessage("Cannot connect to database");
exit(0);
}
}

[3996906]

还有，线程里不能用这种东西：ShowMessage("Cannot connect to database");

[csrwgs]

我声明ADOConnection1 = new TADOConnection(NULL);
使用的是 NULL 参数
是不是跟这个有关？

我在主窗口
也是这么写的，就可以
到了ThreadObject 就不行了。奇怪啊~

[3996906]

怎么说呢？你要理解线程的概念，和应用程序有差别的

这样说肯定不合适，在理解这个问题的时候你把它当作一个新的应用程序吧，先来一次 ::CoInitialize(NULL);