historico das 3 ultimas compras ainda esta dando erro
amigos estou com problema tenho que no meu sistema consultar 3 ultimas compras de um determinado cliente pelo campo data estou tentando fazer assim
begin
with DATamodule1.Zcaixa do
begin
Close;
SQL.Clear;
SQL.Add(SELECT * FROM caixa_geral WHERE Data BETWEEN AND nome =+ fclientes.DBEdit2.Text +);
Open;
end;
ja vi uma sugestao nesse forum com a dica
select first 3 meusCampos
from minhaTabela
order by 1 desc
mas nao estou sabendo implementar corretamente nesse codigo pois sou novo na area
preciso pegar as 3 ultimas compras de um determinado cliente pela data
agradeço a qualquer atenção antecipadamente
begin
with DATamodule1.Zcaixa do
begin
Close;
SQL.Clear;
SQL.Add(SELECT * FROM caixa_geral WHERE Data BETWEEN AND nome =+ fclientes.DBEdit2.Text +);
Open;
end;
ja vi uma sugestao nesse forum com a dica
select first 3 meusCampos
from minhaTabela
order by 1 desc
mas nao estou sabendo implementar corretamente nesse codigo pois sou novo na area
preciso pegar as 3 ultimas compras de um determinado cliente pela data
agradeço a qualquer atenção antecipadamente
Credson Silva
Curtidas 0
Respostas
Credson Silva
21/01/2012
resolvido dica do forum activedelphi mas obg a todos
begin
with DATamodule1.Zcaixa do
begin
Close;
SQL.Text := SELECT FIRST 3 * FROM caixa_geral WHERE (Data BETWEEN :DATAINI AND :DATAFIM) AND (nome = :NOME);
Parameters.ParamByName(DATAINI).DataType := ftDate;
Parameters.ParamByName(DATAFIM).DataType := ftDate;
Parameters.ParamByName(NOME).DataType := ftString;
Parameters.ParamByName(DATAINI).Value := SUA DATA INICIAL;
Parameters.ParamByName(DATAFIM).Value := SUA DATA FINAL;
Parameters.ParamByName(NOME).Value := DBEdit2.Text;
Open;
end;
begin
with DATamodule1.Zcaixa do
begin
Close;
SQL.Text := SELECT FIRST 3 * FROM caixa_geral WHERE (Data BETWEEN :DATAINI AND :DATAFIM) AND (nome = :NOME);
Parameters.ParamByName(DATAINI).DataType := ftDate;
Parameters.ParamByName(DATAFIM).DataType := ftDate;
Parameters.ParamByName(NOME).DataType := ftString;
Parameters.ParamByName(DATAINI).Value := SUA DATA INICIAL;
Parameters.ParamByName(DATAFIM).Value := SUA DATA FINAL;
Parameters.ParamByName(NOME).Value := DBEdit2.Text;
Open;
end;
GOSTEI 0