Ir para conteúdo
Fórum Script Brasil
  • 0

Consulta Sql


Eder

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

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 por sillier
Link para o comentário
Compartilhar em outros sites

  • 0

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. biggrin.gif

Link para o comentário
Compartilhar em outros sites

  • 0

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.... biggrin.gif

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...