注册 登录
编程论坛 Delphi论坛

快烦死了!用ADO连接ACCESS数据库,有时报“未指定的错误”

realside 发布于 2015-05-06 21:21, 3944 次点击
它不是一运行就报,而是过几十下或100下报,根本找不到头绪错在哪,我程序就是定时(每分钟)更新一条数据,数据格式类型完全一样,只是数字有变化(但也在长度允许范围内),已经好几周了解决不了,求大大们给看看:


  adocmd:=TADOCommand.Create(nil);
  adocmd.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False';
...

//组装SQL存数据库
      if c1.Code<>'' then begin
        sql:='update realtime set code="' + c.Code +'",'+
             '[text]="' + c.Text +'",' +
             'price=' + currtostr(c.Price-c1.Price) + ','+
             'vol='   + IntToStr(c.vol-c1.vol  ) + ',' +
             'amt='   + currtostr(c.amt-c1.amt ) + ',' +
             'times=' + IntToStr(tms) +',' +
             'upddt="'+ DateTimeToStr(now)+'" ' +
             'where code="' + c.Code + '"';
        
        adoCmd.Execute;
      end;
    end;

    except on e : exception do
      begin  //这里在有时多少次数之后就抛出异常“未指定的错误”!!!!!!
        MAINFRM.mmo.Lines.Add('[SYS-ERR] Thread() MSG:'+e.Message);
        MAINFRM.mmo.Lines.Add('[SYS-ERR] Thread() DUMP:'+ sql);
        inc(errs);
      end;
    end;
...
 FreeAndNil(adocmd);
1 回复
#2
waterm0_02016-06-22 13:07
2015年的问题都还没人回答?
1