Consulta em SQL

Delphi

27/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: Numero_Venda

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

Qual é o erro?


Mardegan

Mardegan

Curtidas 0

Respostas

Perin75

Perin75

27/05/2003

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


faz assim

Dm_modelo.Qry_contasreceber.close
Dm_modelo.Qry_contasreceber.sql.clear;
Dm_modelo.Qry_contasreceber.sql.add(´select * from tab_contasreceber´);
Dm_modelo.Qry_contasreceber.sql.add(´where fatura = :var´);

Dm_modelo.Qry_contasreceber.parabyname(´var´).asstring := DM_Modelo.Tab_VendaProdutosNumero_Venda.asString;

Dm_modelo.Qry_contasreceber.open;


tenta isto que da certo !!!!


GOSTEI 0
POSTAR