Instrução SQL

Delphi

20/04/2004

Alguem poderia me dizer o que esta errado no comando abaixo, utilizo Delphi 7 e Paradox


DM_Modelo.Sql_Apura_Resultados.ParamByName(´Data_Inicio´).Text := DateToStr(Data_Inicio.DateTime);
DM_Modelo.Sql_Apura_Resultados.ParamByName(´Data_Termino´).Text := DateToStr(Data_Termino.DateTime);


SELECT Tab_vendaprodutos_itens.Produto, Tab_produtos.Descricao, SUM( Tab_vendaprodutos_itens.Qtde ) Soma_qtde, SUM( Tab_vendaprodutos_itens.Vr_Total ) Soma_Vr_Total, Tab_produtos.Valor_Custo Valor_Custo, Tab_produtos.Valor_Venda, Tab_produtos.Valor_Lucro
FROM ´Tab_VendaProdutos_Itens.DB´ Tab_vendaprodutos_itens
INNER JOIN ´Tab_Produtos.DB´ Tab_produtos
ON (Tab_produtos.Codigo = Tab_vendaprodutos_itens.Produto)
INNER JOIN ´Tab_VendaProdutos.DB´ Tab_vendaprodutos
ON (Tab_vendaprodutos.Numero_Venda = Tab_vendaprodutos_itens.Numero_Venda)
WHERE Tab_vendaprodutos.Data BETWEEN (:Data_Inicio) AND (:Data_Termino)
GROUP BY Tab_vendaprodutos_itens.Produto, Tab_produtos.Descricao, Tab_produtos.Valor_Custo, Tab_produtos.Valor_Custo, Tab_produtos.Valor_Venda, Tab_produtos.Valor_Lucro
ORDER BY Tab_produtos.Descricao

Obriado pela ajuda


Mardegan

Mardegan

Curtidas 0

Respostas

Renato.isl

Renato.isl

20/04/2004

Ao invés de .text , use .AsString

Renato.


GOSTEI 0
Marcelo.c

Marcelo.c

20/04/2004

Se a dica do Renato não resolver, coloque a mensagem de erro emitida.


GOSTEI 0
Mardegan

Mardegan

20/04/2004

Mensagem de erro:

Type mismatch in expression


GOSTEI 0
Adilsond

Adilsond

20/04/2004

SELECT Tab_vendaprodutos_itens.Produto,
       Tab_produtos.Descricao,
       Tab_produtos.Valor_Custo,
       Tab_produtos.Valor_Venda,
       Tab_produtos.Valor_Lucro,
       SUM(Tab_vendaprodutos_itens.Qtde) Soma_qtde,
       SUM(Tab_vendaprodutos_itens.Vr_Total) Soma_Vr_Total
FROM "Tab_VendaProdutos_Itens.DB" Tab_vendaprodutos_itens
  INNER JOIN "Tab_Produtos.DB" Tab_produtos
    ON (Tab_produtos.Codigo = Tab_vendaprodutos_itens.Produto)
  INNER JOIN "Tab_VendaProdutos.DB" Tab_vendaprodutos
    ON (Tab_vendaprodutos.Numero_Venda = Tab_vendaprodutos_itens.Numero_Venda)
WHERE Tab_vendaprodutos.Data BETWEEN :Data_Inicio AND :Data_Termino
GROUP BY Tab_vendaprodutos_itens.Produto,
         Tab_produtos.Descricao,
         Tab_produtos.Valor_Custo,
         Tab_produtos.Valor_Venda,
         Tab_produtos.Valor_Lucro
ORDER BY Tab_produtos.Descricao


DM_Modelo.Sql_Apura_Resultados.ParamByName(´Data_Inicio´).AsDateTime := Data_Inicio.DateTime;
DM_Modelo.Sql_Apura_Resultados.ParamByName(´Data_Termino´).AsDateTime := Data_Termino.DateTime;



GOSTEI 0
Mardegan

Mardegan

20/04/2004

Obrigado....

Agora deu certo


GOSTEI 0
POSTAR