if adoquery1.Active then adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select top '+inttostr(m)+' * from WARNING order by id desc';
adoquery1.Open;
while not adoquery1.Eof do
begin
MInfo.Lines.Insert(0,'日期:'+datetimetostr(ADOQuery1.fieldbyname('wdateteim').value)+' '+ADOQuery1.fieldbyname('warmsg').value);
adoquery1.next
end;
SQL必须这样写要取最新的警告记录,但我想将最新显示在最上面,取记录可不可以从高端向下取呢?
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select top '+inttostr(m)+' * from WARNING order by id desc';
adoquery1.Open;
while not adoquery1.Eof do
begin
MInfo.Lines.Insert(0,'日期:'+datetimetostr(ADOQuery1.fieldbyname('wdateteim').value)+' '+ADOQuery1.fieldbyname('warmsg').value);
adoquery1.next
end;
SQL必须这样写要取最新的警告记录,但我想将最新显示在最上面,取记录可不可以从高端向下取呢?
解决方案 »
- 高分求解,,如何在cxGrid使用CheckBox操作与数据集无关的列呢
- 轻松得分,关于winexec调用16位程序后的控制
- 关于数据库备份的问题,请多指教!
- 一个用于分页的SQL语句问题
- 想用delphi调用windows的net send命令,如何才能实现呢
- 关于离线更新包制作的问题
- 寂寞的程序员.
- 4年半前的机器还有人在用吗?(要换机器了,但有点舍不得……)
- 求矩阵的逆矩阵的算法???????
- 怎样解决报表字段过多的问题?
- 如何定时检测到程序的弹出的消息框,Messagebox的还有发生异常程序弹出的消息框等
- 在SQL-server端有的异常前台可以捕捉,有点异常前台不能捕捉,如我在执行SQL时候偶尔出现 "键列信息不足或不正确,更新影响到更多的行",这个
adoquery1.Last;
while not adoquery1.Bof do
begin
MInfo.Lines.Insert(0,'日期:'+datetimetostr(ADOQuery1.fieldbyname('wdateteim').value)+' '+ADOQuery1.fieldbyname('warmsg').value);
adoquery1.Prior;
end;