Consulta AdoQuery, Nao executa

Delphi

08/03/2004

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

Curtidas 0

Respostas

Airto

Airto

08/03/2004

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

tem um caracter entre Parameters e o parambyname! verifique


GOSTEI 0
Lucas Silva

Lucas Silva

08/03/2004

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]


GOSTEI 0
Ilanocf

Ilanocf

08/03/2004

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.


GOSTEI 0
Flavia_mococa

Flavia_mococa

08/03/2004

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

valeu


GOSTEI 0
POSTAR