多线程与ADOQuery的问题。

[transcend]

一个普通的porject，加入线程类TThread，其实例mythread调用主窗体Form1->func1（）；

其中func1用到adoquery如下：
ADOQ->Close();
ADOQ->SQL->Clear();
ADOQ->SQL->Add("Select * from 汇率编码");
ADOQ->Open();
编译通过，但执行至Open()语句会抛出一个EOleException“尚未调用CoInitialize”

如何解决？

[sncel]

问题是什么？

[invalid]

那就在启动程序是调用CoInitialize
在关闭程序调用UncoInitialize

[invalid]

大错了，看http://expert.csdn.net/Expert/topic/1248/1248184.xml?temp=.4659693吧

[transcend]

试过在
void __fastcall TForm1::FormShow(TObject *Sender)
{
CoInitialize(0);
...
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
.....
CoUninitialize();
}

异常同样出现！！！

[invalid]

在主窗体上放个AdoQuery，AdoConnection控件好像就出现了。

[invalid]

错了：应该是就不出现了。

[transcend]

在主窗体上放个AdoQuery，AdoConnection

问题依旧。

[copy_paste]

一个普通的porject，加入线程类TThread，其实例mythread调用主窗体Form1->func1（）；

那就是说线程在哪里运行，就在那里Initialize, Uninitialize();当然最好是在：
MyThread::Execute()
{
CoInitialize();
try
{
Form1->Func();
}
__finally
{
CoUninitialize();
}
}
或者直接在Form1::Func()中过程写

[sncel]

照copy_paste(木石三) 这样做就可以了。

你的ADO不设置为异步操作时，你的多线程写了也是白写的，达不到效果的。

[烟波三千里人鬼五百年]

〉〉〉一个普通的porject，加入线程类TThread，其实例mythread调用主窗体Form1->func1（）；

严重的问题：在线程中调用主线程的VCL方法不能这样啊！
要用Sychronize()

2：这样做多县城还有意义么？应该在线程中创建adoquery是用才是

[烟波三千里人鬼五百年]

错了,哎...Synchronize

[copy_paste]

线程是可以调用主线程或主窗体的方法的，但调用时你得清楚的、明白的，它会不会和主线程发生冲突，只要不发生冲突，随便怎么用都行。

而楼主就属于没注意线程运行，次线程调用主线程的组件，发生ＸＸＸ错，因为线程运行到ＡＤＯ组件，线程根本没有为ＡＤＯ这个ＣＯＭ组件进行CoInitialize，即使是在主窗体的方法中。所以ＥＲＲＯＲ。。。

而用Synchronize方法，那用多线程就没什么意义了，呵呵，Synchoronize是给主线程发个消息，通知我需要同步一些处理，然后进行sleep状态，直接主线程处理完同步的处理后，才唤醒继续线程的工作。
　当然在线程进行Synchronize来调用MainForm的函数／组件是不会有问题的，不过那就没必要用线程了。
　主线程中一般会有默认调用CoInitialize & CoUninitialize，所以一般在单线程中我们遇不到什么什么“没有初始化CoInitialize”或什么什么”连线被占用“这样的错。而一用多线程就会，就是这个CoInitialize的错，而不是说你在线程中运行主窗体的方法就不会错，嘿嘿，你那种方法不中。

[warton]

强烈关注！！

[warton]

研究这中!!!

[transcend]

问题仍未解决!!!,用
try
{
Form1->Func();
}
__finally
{
....
}
可以通过,但不一定能打开ado特别在其他机上.
请继续帮忙!!!!

[hatumei]

要加上try....catch
ADOQ->Close();
ADOQ->SQL->Clear();
ADOQ->SQL->Add("Select * from 汇率编码");
try
{
ADOQ->Open();
}
catch(...)
{
ShowMessage("db error!");
return;
}

[transcend]

怎么样才能保证ado能顺利打开???

[xiaojianw]

mark