帮你顶

你的线程函数呢？

继续顶

死劲顶，因为我也想知道

各个线程不能共享访问同一个ADO 对象

每个线程New一个TadoQuery组件，连接到公共的AdoConnection组件就可以了。

invalid(空心菜) ：
这是不行的！不信你试验一下！

Atomictry (天影) ：
我们可能是在做几乎同样的开发任务，我也卡到这里了，可以交流一下！

MSN catmiwang@hotmail.com
qq 154863618

我写过可以的，我采用的数据库是Access。有多种线程，多线程实例。

比如在连接的时候我需要将此次连接记录到数据库的一张表中。
void __fastcall Server::ClientExecute()
{
    Connected();                //客户端连接；
    try{
        Disposal();
    }
    catch(...){
        DisConnected();
    }
}

Connected()函数如下：
void __fastcall Server::Connected()
{
    RemoteHostIP=ClientSocket->RemoteAddress;

    RemoteHostPort=ClientSocket->RemotePort;

    ServerFrm->UpdateField("State","连接","RemoteIP",RemoteHostIP);//已
    经把将要连接上的远程客户机的IP记录在数据库的一张表中，即RemoteHostIP在数据
    库已经存在了记录。

    ServerFrm->UpdateField("Port",RemoteHostPort,"SourceIP",
                              RemoteHostIP);               //同上

    ServerFrm->UpdateDBGrid("LinkRecord");                //刷新DBGrid控件
}

UpdateField()函数如下：
void __fastcall TServerFrm::UpdateField(String updatefield,String updatevalue,String sourcefield,String sourcevalue)
//说明：updatefield为需要更新的字段，updatevalue为需要更新的字段值
//      sourcefield为已知字段，updatevalue为已知字段值，如上面的RemoteHostIP
{
    String Updatesql="update LinkRecord set "+updatefield;

    Updatesql+= "='"+updatevalue+"' where "+sourcefield;

    Updatesql+= "='"+sourcevalue+"'";

    ADOConnection1->Execute(Updatesql);
}

UpdateGrid()函数如下：
void __fastcall TServerFrm::UpdateDBGrid(String SQLName)//查询一次记录集
{
    ADOQuery1->Close();
                 
    ADOQuery1->SQL->Clear();

    ADOQuery1->SQL->Add("select * from "+SQLName);

    ADOQuery1->Open();
}

1. 我是在一台机子上开了六个客户端模拟几乎同时连接到服务端的情况，是不是因为六个
   RemoteHostIP是数据库里的同一个记录引起的“对象已打开操作”的错误？

2. 跟踪到线程，发现执行到ServerFrm->UpdateDBGrid("LinkRecord"); 时
   发生“[Microsoft][ODBC SQL Server Driver]连接占线导致另一个hstmt.”错误
   
3. 有时候也会产生“在异步运行时，操作不能被执行”的错误，不过较少发生。

4. 注释掉UpdateDBGrid()，程序不再出错，但界面上DBGrid不能够进行动态刷新显示。

   我用Synchronize进行同步和用TCriticalSection设置代码保护区都试过了，都是出现相同错误：
“[Microsoft][ODBC SQL Server Driver]连接占线导致另一个hstmt.”


to AKing:在线程查询语句会出错吗？该怎么用才可以用select查询语句？

请朋友们帮帮忙啊！

to invalid(空心菜):
    我仍然叫你菜老师吧，我先试一下你的办法。谢你先。 

谢谢朋友们。

to pbMaster(pb高手) :
   如果你只是用来插入或者更新操作，用我上面的UpdateField()方法就可以了。
   

to invalid(空心菜):
   菜老师好象不行啊，还是“[Microsoft][ODBC SQL Server Driver]连接占线导致另
   一个hstmt.”错误。
   我设置代码保护都没有用，new 应该也没有效果。ADO不知道究竟什么问题。

那就看是不是设置或者其它什么问题了。

void __fastcall TServerFrm::UpdateField(String updatefield,String updatevalue,String sourcefield,String sourcevalue)
//说明：updatefield为需要更新的字段，updatevalue为需要更新的字段值
//      sourcefield为已知字段，updatevalue为已知字段值，如上面的RemoteHostIP
{
    String Updatesql="update LinkRecord set "+updatefield;

    Updatesql+= "='"+updatevalue+"' where "+sourcefield;

    Updatesql+= "='"+sourcevalue+"'";

    TADOQuery *q=new TADOQuery(ADOConnection1);
    q->Connection=ADOConnection1;//各个线程可以间接公用ADOConnection1,但是ADOQuery不能共享访问
    q->Execute(Updatesql);
    delete q;
}

啊？怎么这么命苦？
1.ADOConnection1一些设置，其他默认：
  Connected>>>true;ConnectonString>>>是通过数据源连接的;

2.ADOQuery通过new生成，如下：
void __fastcall Server::Newquery()
{
      TADOQuery *Newado;
    try
      {
      Newado=new TADOQuery(NULL);
      Newado->Connection=ServerFrm->ADOConnection1;
      Newado->Close();
      Newado->SQL->Clear();
      Newado->SQL->Add("select * from linkrecord");
      Newado->Open();
      }
    __finally
      {
      delete Newado;
      }
}

然后就是调用，没了。
我也完了，这么个问题都搞不定。

楼上，ADOQuery没有Execute()方法。谢你一次。

我在线程里其实用了同样的方式做过了也不行：
void __fastcall Server::Newquery()
{
      TADOQuery *Newado;
    try
      {
      Newado=new TADOQuery(NULL);
      Newado->Connection=ServerFrm->ADOConnection1;
      Newado->Close();
      Newado->SQL->Clear();
      Newado->SQL->Add("select * from customerlinkrecord");
      Newado->Open();
      }
    __finally
      {
      delete Newado;
      }
}

up.

朋友们，我算是被ADO打败了。

现在我只想让DBGrid能够刷新更新显示，除了用ADOQuery查询一遍数据库外，
还有什么方法实现显示当前表数据。

顶

我也用过ADO做线程
也是类似的错误

联系我:QQ:6522203 MSN:sncel@vip.sina.com

void __fastcall TServerFrm::UpdateField(String updatefield,String updatevalue,String sourcefield,String sourcevalue)
//说明：updatefield为需要更新的字段，updatevalue为需要更新的字段值
//      sourcefield为已知字段，updatevalue为已知字段值，如上面的RemoteHostIP
{
    String Updatesql="update LinkRecord set "+updatefield;

    Updatesql+= "='"+updatevalue+"' where "+sourcefield;

    Updatesql+= "='"+sourcevalue+"'";

    TADOQuery *q=new TADOQuery(ADOConnection1);
    q->Connection=ADOConnection1;//各个线程可以间接公用ADOConnection1,但是ADOQuery不能共享访问
    q->CommandText=Updatesql;
    q->ExecSQL();//不要用Open();
    delete q;
}

先感谢sncel(地狱情人-杨勇) 、空心菜、yesry(噎死你)，还有其他朋友。

再把问题整理一下：

问题症状：
   环境:Windows2000;SQL Server;BCB6.0;
   在TServerSocket线程阻塞方式下，线程中可以进行更新，插入。但查询时就可能
   会出现如下错误：
  “对象已打开”、“[Microsoft][ODBC  SQL  Server  Driver]连接占线导致
   另一个hstmt.”、“在异步运行时，操作不能被执行”。

解决问题的方法：
   1.在线程中用new方法创建TADOQuery组件。
   2.这是最主要的原因：是否用的是for SQL Server驱动，如果用了OLE DB for 
     ODBC,即使用new创建也会出现连接占线错误。

解决方法是sncel(地狱情人-杨勇)  给了我他调试的工程文件。

MARK