Fórum Consulta AdoQuery, Nao executa #219017

08/03/2004

0

caros amigos, venho mais uma vez atraves deste forum pedir a ajuda de voces para a seguinte duvida:
Tenho um formulario que chamo de FrmCaixa, onde pretendo fazer todas as consultas que meu aplicativo necessita.
Tenho um Data Module chamado: DModuleTab e uma AdoQuery chamada QDataVencNul.

na AdoQuery tenho o seguinte código:
Select * from caixa
where DataPagamento is null

e no evento on click do botao visualizxar receitas tenho o seguinte codigo:

procedure TFrmCaixa.BitBtn1Click(Sender: TObject);
begin
Dmoduletab.QDataVencNul.Close;
Dmoduletab.QDataVencNul.SQL.Clear;
Dmoduletab.QDataVencNul.SQL.Add(´Select * from caixa where Fornecedor =:cod´);
Dmoduletab.QDataVencNul.SQL.Add(´Select * from caixa where DataVencimento =:Vencimento´)
Dmoduletab.QDataVencNul.Parameters.ParamByName(´cod´).Value :=dbedit1.Text;
Dmoduletab.QDataVencNul.Parameters.´ParamByName(´Vencimento´).Value :=MaskEdit1.Text;
DModuletab.QDataVencNul.Open;
end;

Meu problema está na hora de rodar a aplicação, pois a linha:
Dmoduletab.QDataVencNul.Parameters.ParamByName(´cod´).Value :=dbedit1.Text;
Fica em vermelho. Alguem saberia me dizer oque tem de errado neste código?

Obrigada pela atenção.


Flavia_mococa

Flavia_mococa

Responder

Posts

08/03/2004

Airto

Dmoduletab.QDataVencNul.Parameters.´ParamByName(´Vencimento´).Value :=MaskEdit1.Text;

tem um caracter entre Parameters e o parambyname! verifique


Responder

Gostei + 0

08/03/2004

Lucas Silva

tá faltando um ´;´ na linha anterior....
 Dmoduletab.QDataVencNul.SQL.Add(´Select * from caixa where Fornecedor =:cod´);
 Dmoduletab.QDataVencNul.SQL.Add(´Select * from caixa where DataVencimento =:Vencimento´); // coloque um ponto e vírgula aqui...
 Dmoduletab.QDataVencNul.Parameters.ParamByName(´cod´).Value :=dbedit1.Text;
Obrigada pela atenção.
[/code]


Responder

Gostei + 0

08/03/2004

Ilanocf

O Lucas Alves está certo! Falta um ponto-e-vírgula na linha:
[color=blue:7189224e23]SQL.Add(´Select * from caixa where DataVencimento =:Vencimento´)[/color:7189224e23]

E ainda tem um apóstrofo intruso na linha:
[color=blue:7189224e23]Dmoduletab.QDataVencNul.Parameters.´ParamByName(´Vencimento´).Value :=MaskEdit1.Text;[/color:7189224e23]
Antes do ParamByName.


De qualquer forma, procure simplificar mais seu código assim:

procedure TFrmCaixa.BitBtn1Click(Sender: TObject); begin [color=red:7189224e23][b:7189224e23]With Dmoduletab.QDataVencNul Do Begin Close; SQL.Clear; SQL.Add(´Select * from caixa where Fornecedor =:cod´); SQL.Add(´Select * from caixa where DataVencimento =:Vencimento´); Parameters.ParamByName(´cod´).Value :=dbedit1.Text; Parameters.ParamByName(´Vencimento´).Value :=MaskEdit1.Text; Open; End;[/b:7189224e23][/color:7189224e23] end;


Dessa forma ficará mais fácil de seu sistema entendê-lo.


Responder

Gostei + 0

08/03/2004

Flavia_mococa

Obrigada amigos, voces me ajudaram bastante.
É engraçado como as vezes tropeçamos nas coisas mais simples do mundo :lol:

valeu


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar