盒子论坛 v2.1

          with self.adoqsql do
          begin
            SQL.Clear;
            SQL.Append('update s set level1=Q.level1');
            SQL.Append('from '+table_name+' s,OPENROWSET('+''Microsoft.Jet.OLEDB.4.0'+'',');
            SQL.Append(''+Mdb_name_r+'';'+''+'admin'+'';'''+', '+table_name+') Q');
            SQL.Append('where s.member_id=Q.member_id ');
            SQL.SaveToFile(datapath+'aa.txt');
            Prepared:=true;
            Connection.BeginTrans;
            rec_num:=ExecSQL;  //此处报错 ExecSQL也不对。
            Connection.CommitTrans;
          end;
          把begintrans和committrans去掉就没错了。

此帖子包含附件:

大小:11.9K

----------------------------------------------
实践是检验真理的唯一标准！

信息

登陆以后才能回复