Fórum Ordem pelo select - order by confuso #267672
07/02/2005
0
Olá...
Sempre aparece a data no qual inseri minha combo..Como posso deixar padrão em uma comboBox a data atual do sistema?
tenho um select para lista meus pedidos.. gostaria de ordenar pelo campo data_entrega (no qual é a data cadastrada em cada pedido para que o produto seja entregue).
with QueryEntregas do
begin
QueryEntregas.Close; //fecha a query
QueryEntregas.Sql.Clear; //limpa o select que existia anteriormente
QueryEntregas.sql.text := ´Select data_entrega,qtde,descricao,cliente from tab_lista_pedidos where situacao = ´ABERTO´ order by data_entrega ASC´;
QueryEntregas.Active:=true;
GridEntregas.Columns.Items[1].Width := 60;
GridEntregas.Columns.Items[0].Alignment := taCenter;
GridEntregas.Columns.Items[1].Alignment := taCenter;
end;
Mesmo pelo order by não está funcionando.. não ordena ... :shock:
alguem ja teve um problema similar??
Sempre aparece a data no qual inseri minha combo..Como posso deixar padrão em uma comboBox a data atual do sistema?
tenho um select para lista meus pedidos.. gostaria de ordenar pelo campo data_entrega (no qual é a data cadastrada em cada pedido para que o produto seja entregue).
with QueryEntregas do
begin
QueryEntregas.Close; //fecha a query
QueryEntregas.Sql.Clear; //limpa o select que existia anteriormente
QueryEntregas.sql.text := ´Select data_entrega,qtde,descricao,cliente from tab_lista_pedidos where situacao = ´ABERTO´ order by data_entrega ASC´;
QueryEntregas.Active:=true;
GridEntregas.Columns.Items[1].Width := 60;
GridEntregas.Columns.Items[0].Alignment := taCenter;
GridEntregas.Columns.Items[1].Alignment := taCenter;
end;
Mesmo pelo order by não está funcionando.. não ordena ... :shock:
alguem ja teve um problema similar??
Ce
Curtir tópico
+ 0
Responder
Posts
07/02/2005
Aroldo Zanela
Colega,
Tente o seguinte:
Tente o seguinte:
GridEntregas.Columns.Items[1].Width := 60; GridEntregas.Columns.Items[0].Alignment := taCenter; GridEntregas.Columns.Items[1].Alignment := taCenter; with QueryEntregas do begin Close; Sql.Text := ´Select data_entrega, qtde, descricao, cliente from tab_lista_pedidos where situacao = ´+QuotedStr(´ABERTO´)+´ order by data_entrega´; Open; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)