Consulta Sql

[Eder]

Olá...

Pessoal...para fazer uma consulta SQL e pegar o valor Maximo de uma campo de tabela usa-se: Max

e pra pegar o ultimo registro da tabela???

e o primeiro??

muito Grato.

[sillier]

Olá Eder,

Cara, não sei exatamente o que você quer fazer mas tenta usar os comandos First (primeiro) e Last (último).

Tipo, pra exibir o primeiro:

DM.Query.First;

Label1.Caption:= DM.Query.FieldbyName ('campo').AsString;

Bem... espero ter te ajudado.

Quaquer coisa posta aew.

Até mais...

Editado Novembro 16, 2005 por sillier

[Eder]

Amigo...muito grato em ajudar.....

vou explicar melhor:

eu tenho este codigo que busca na placa no veiculo a kilometragem maior e me mostra num dbedit9.text.

só que agora eu preciso mostrar no dbedit9.text qual a ultima kilometragem registrada no veiculo.

Entende?

segue o codigo abaixo buscando a km maior do veiculo:

procedure TFormAbaste.DBEdit9Enter(Sender: TObject);

begin

With Query1 Do

Begin

Close;

  With Sql do

  Begin

  Clear;

  Add('Select Max(ABASTE.KmFINAL) as Total From ABASTE');

  Add('WHERE ABASTE.CODVEI ='+ QuotedStr(DBLookupComboBox1.keyValue));

  Open;

  DBEDIT9.TEXT := FloatToStr (Query1Total.Value);

END;

END;

END;

muito Grato...amigo.

[Graymalkin]

Então, é só seguir a sugestão do sillier. Faça uma query selecionando todas as quilometragens do veículo, ordenando por data. Daí, vá para o último registro (utilizando o método Last) e pegue o valor contido nele.

Abraços,

Graymalkin

[Eder]

beleza...colegas...entendi.....

O codigo ficou assim:

procedure TFormAbaste.DBEdit9Enter(Sender: TObject);

begin

With Query1 Do

Begin

Close;

  With Sql do

  Begin

  Clear;

  Add('Select ABASTE.CODIGO, ABASTE.KMINICIAL, ABASTE.KMFINAL, ABASTE.DATA From ABASTE');

  Add('WHERE ABASTE.CODVEI ='+ QuotedStr(DBLookupComboBox1.keyValue));

  Add('ORDER BY ABASTE.CODIGO');

  end;

  Open;

  Query1.LAST;

  DBEDIT9.TEXT := Query1.FieldbyName ('KMFINAL').AsString;

END;

END;

Valeu...colegas....