不能在手动或分布事务方式下创建新的连接（线程中批量执行SQL语句）(200分)

银雨辰 · 2008-05-01

线程中批量执行SQL语句时 提示错误“不能在手动或分布事务方式下创建新的连接。” 确定再F9 提示错误“在异步运行时，操作不能被执行。” 确定再F9 提示错误“ITransaction::Commit或ITransaction::Abort被调用，并且对象处于Zombie状态。” 确定再F9 提示地址出错(borlndmm.dll)！

银雨辰 · 2008-05-01

部分代码：   TRunExeSQLStrList = Class(TThread)   Private   Protected     Procedure Execute; Override;     Procedure RunExeSQL;   Public     Constructor Create;   End; { ****************************** TRunExeSQLStrList ******************************* } Constructor TRunExeSQLStrList.Create; Begin   RunSQL := False; //全局信号量，为False是禁止创建该线程   Inherited Create(False); //创建即执行   FreeOnTerminate := True; //执行完即销毁 End; Procedure TRunExeSQLStrList.Execute; Begin   If Not Terminated Then     RunExeSQL; End; Procedure TRunExeSQLStrList.RunExeSQL; Begin  //SQLStrListA、SQLStrListB 为全局变量交换存储要执行的SQL语句   If LockSQL Then //SQLStrListA 为活动的   Begin     Try       LockSQL := False; //切换 SQLStrListB 为活动的以便执行 SQLStrListA 中SQL语句       If SQLStrListA.Count > 0 Then         ExeListSQL(@SQLStrListA); //*********执行此处出错 //ExeListSQL 为我的动态链接库引出过程代码附在后面     Finally       SQLStrListA.Clear;     End;   End;   If Not LockSQL Then //SQLStrListB 为活动的   Begin     Try       LockSQL := True; //切换 SQLStrListA 为活动的以便执行 SQLStrListB 中SQL语句       If SQLStrListB.Count > 0 Then         ExeListSQL(@SQLStrListB);     Finally       SQLStrListB.Clear;       Sleep(5000);       RunSQL := True; //线程TRunExeSQLStrList创建触发信号     End;   End; End; Function ExeListSQL(ASQL: PTStr): Boolean; StdCall; External 'DataControl.DLL'; //PTStr = ^TStrings; //ExeListSQL不附在线程中执行是正常的，函数代码如下： Function TDM.ProtExeSQL(ASQL: PTStr): Boolean; Var   I, J: Integer;   Str: String; Begin   Result := True;   J := ASQL^.Count;   If J = 0 Then     Exit;   If stClosed In DM.ADOCon.State Then     DM.ADOCon.Open;   DM.ADOQ.Close;   DM.ADOCon.BeginTrans;   Try         J := ASQL^.Count;     DM.ADOQ.SQL.Clear;     For I := 0 To J - 1 Do     Begin       If I < 10 Then         Str := #13 + ASQL^;       DM.ADOQ.SQL.Add(ASQL^);       If DM.ADOQ.SQL.Count > 100 Then       Begin         DM.ADOQ.ExecSQL;         DM.ADOQ.SQL.Clear;       End;     End;     If DM.ADOQ.SQL.Count > 0 Then       DM.ADOQ.ExecSQL;     DM.ADOCon.CommitTrans;   Except     DM.ADOCon.RollbackTrans;     MessageBox(0, PChar('&Ecirc;&yacute;&frac34;&Yacute;&iquest;&acirc;&sup2;&Ugrave;×÷&Ouml;&acute;&ETH;&ETH;&sup3;&ouml;&acute;í!' + Str), '&Ecirc;&yacute;&frac34;&Yacute;&iquest;&acirc;&sup2;&Ugrave;×÷', MB_ICONERROR);     Result := False;   End;   DM.ADOQ.Close; End;

银雨辰 · 2008-05-02

这么没人回答？！ 难道5.1你们都放假了吗？

不能在手动或分布事务方式下创建新的连接（线程中批量执行SQL语句）(200分)

银雨辰

Unregistered / Unconfirmed

银雨辰

Unregistered / Unconfirmed

银雨辰

Unregistered / Unconfirmed

Similar threads