Consulta em SQL

Delphi

07/05/2003

Tenho um formulário para pesquisa de venda com um TDBGrid (Pega informações direto da Tabela) que contém diversos campos.

O que quero: Seleciono uma linha DBGrid e peço para mostrar as duplicatas relacionadas a venda clicando em um botão.
Campo do TDBGrid que estou usando para relacionar a venda com duplicata: [b:47b9838731]Numero_Venda[/b:47b9838731]

Comando utilizado: DM_Modelo.Qry_ContasReceber.SQL.Text:= ´Select * From Tab_ContasReceber where ´+ ´(Fatura =´ + ´´´ + DM_Modelo.Tab_VendaProdutosNumero_Venda.asString + ´´)´;

Qual é o erro?

Obrigado

Evandro


Mardegan

Mardegan

Curtidas 0

Respostas

Marcus

Marcus

07/05/2003

Boa Noite!!

1 - Vc pode montar de uma maneira mais fácil, veja

. Na sua qry coloque

SELECT * FROM Tab_ContasReceber
WHERE FATURA = :NrFatura

. Na opcao Params da qry coloque o tipo do parametro (NrFatura) para String.

. No Seu Programa coloque

WITH qryTeste DO
BEGIN
IF Active THEN Close;
ParamByName (´NrFatura´).AsString := DM_Modelo.Tab_VendaProdutosNumero_Venda.asString;
Open;
END;

2. Para consertar o seu erro, no seu código é o seguinte. Vc deve utilizar 1 qry.Add, ao inves de .Text
2 Utilizar #39 ao inves do ´´


GOSTEI 0
POSTAR