近日小弟中遇到一个难题,请教各位仁兄,忘指点迷津!
dm :数据模块,ulgq :AODuery控件 ,
  ulgq.sql:='select * from C_log order by Operat_user,Operat_date Desc'在登录空体中使用下列句出错,显示‘连接失败’!
  dm.ulgq.Append ;
  dm.ulgq.FieldValues['Operat_user']:=frmmain.Auser.UserId;
  dm.ulgq.FieldValues['Operat_date']:=date;
  dm.ulgq.FieldValues['Operat_time']:=time;
  dm.ulgq.FieldValues['FormCaption']:=dlfm.Caption;
  dm.ulgq.FieldValues['Operat']:=dlbutton.Caption ;
  dm.ulgq.Post;
  dm.ulgq.Requery;在运行以上语句前,先进行了数据库服务器连接,用户帐号也已添加下用户下接框中,说明数据库连接正常!
以上语句在装有Sql的机子上没问题。
经检测程序运行到dm.ulgq.post;都正确,可执行dm.ulgq.requery;就显示连接失败’!
屏蔽这条语句运行正常,如说这条语句有问题,但这条语句不止登录窗体有,其它窗体也有,运行正确

解决方案 »

  1.   

    我的建议可能不对哦,你不防试试这样:
       dm.ulgq.Append ;
      dm.ulgq.FieldValues['Operat_user']:=frmmain.Auser.UserId;
      dm.ulgq.FieldValues['Operat_date']:=date;
      dm.ulgq.FieldValues['Operat_time']:=time;
      dm.ulgq.FieldValues['FormCaption']:=dlfm.Caption;
      dm.ulgq.FieldValues['Operat']:=dlbutton.Caption ;
      dm.ulgq.Post;
      try  except
      dm.ulgq.Requery;
      end;
      

  2.   

    dm.ulgq.Open ;
      dm.ulgq.Append ;
      dm.ulgq.FieldByName('Operat_user').AsString:=frmmain.Auser.UserId;
      dm.ulgq.FieldByName('Operat_date').AsDate:=date;
      dm.ulgq.FieldByName('Operat_time').AsString:=time;
      dm.ulgq.FieldByName('FormCaption').AsString:=dlfm.Caption;
      dm.ulgq.FieldByName('Operat').AsString:=dlbutton.Caption ;
      dm.ulgq.Post;