steel1：
代码在win32 exe下调试通过，在service下死活就是不行，而且还不报错...
[阅读: 428] 2007-11-15 03:27:15
ADOConnection1.Connected := true ;
ADOConnection1.BeginTrans ;
s := 'Update Service_Action set Action_Id ="Test' + IntToStr(i) + '"' ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add(s) ;
ADOQuery1.ExecSQL ;
ADOConnection1.CommitTrans ;
ADOConnection1.Connected := false ;
| -ICP -IDC -ISP |