Fórum Consulta em SQL #158553
07/05/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
07/05/2003
Marcus
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 ´´
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 ´´
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)