Duvida Dúvidas sobre DBLabel

[marcelocjr]

Galera, boa noite.

Estou com um problema. É o seguinte.


Tenho dois DBLabels. . .

-> Um mostra a quantidade de registros que existem na tabela. (Esse funfou). . . Segue:

CSQL := 'SELECT * FROM Mercado order by mer_codigo desc';
with F_DM.qryMercado do
Begin
close;
SQL.Clear;
SQL.Add(CSQL);
open;
End;
dbNroMercado.Caption := IntToStr(F_DM.qryMercado.RecordCount);

-> O Outro, eu queria mostrar o ULTIMO mercado registrado (CAMPO: mer_nome). Para facilitar, eu tentei listar na query em DESC. Pois assim, eu apenas buscaria o primeiro resultado, no qual, seria o último registro, correto? Porém, não consegui de maneira alguma, atribuir o valor do campo para a DBLabel.

Tentei:
dbMercadoRecente.Caption := F_DM.tblmercado.FIeldByName('mer_nome').AsString;
dbMercadoRecente.Caption := F_DM.dtsqryMercado.FIeldByName('mer_nome').Value;

Podem me ajudar?

Se não for pedir muito também, eu queria muito que alguém me explicasse como realmente devo atribuir um valor de um campo à uma variável ou TDBLabel

[marcelocjr]

Galera,


Agradeço poder contar com esse site maravilhoso para tirar minhas dúvidas.

Eu fiquei fuçando aqui, e encontrei o erro.

Eu tirei o tabela.Append do evento FromShow. . . ai funfou. . .Melhorei criando um evento do Timer. . . ficou assim:

procedure TF_cMercado.TimerTimer(Sender: TObject);
var
CSQL : string;
aux : string;
begin

with F_DM.qryMercado do
Begin
close;
open;
End;

CSQL := 'SELECT * FROM Mercado order by mer_codigo desc';
with F_DM.qryMercado do
Begin
close;
SQL.Clear;
SQL.Add(CSQL);
open;
End;
dbNroMercado.Caption := IntToStr(F_DM.qryMercado.RecordCount);
aux := F_DM.qryMercado.FieldByName('mer_nome').AsString;

if(length(trim(aux)) <> 0)then
dbMercadoRecente.Caption := aux;
end;