erro ao fazer o select no clientDataset
Boa noite pessoal...
Na seguinte linha de código:
with CdsParcelasaPagar do
begin
sSel := '';
Close;
CommandText := '';
sSel := ' SELECT CDITEM_PARCELASAPAGAR,CDCONTA_CONTASAPAGAR,' +
' DTVENC_PARCELASAPAGAR,VLPARCELA_PARCELASAPAGAR,' +
' NRPARCELAS, SITUACAO_PARCELASAPAGAR, ' +
' DTPAGTO_PARCELASAPAGAR,VLPAGO_PARCELASAPAGAR, ' +
' CD_FORMPAGAMENTO,VLDESCONTO_PARCELASAPAGAR, ' +
' VLACRESCIMO_PARCELASAPAGAR, ' +
' DESCACR_PARCELASAPAGAR,COD_CONTAS ' +
' FROM PARCELASAPAGAR ';
case pTipoFiltro of
0 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('A');
1 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('B');
2 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('D');
3 : sFiltro := '';
end;
sOrder := ' ORDER BY NRPARCELAS,DTVENC_PARCELASAPAGAR ';
CommandText := sSel + sFiltro + sOrder;
Open;
Quando é executado o open está mostrando a seguinte mensagem de erro:
TOKEN UNKNOW - LINE @1,COLUMN @2
@1
A mesma linha de código estou usando com a tabela parcelasareceber e funciona normalmente. Seu eu colocar o código acima no ibexpert não apresenta mensagem de erro executando normalmente o SQL.
Estou usando delphi 2010 + Firebird 2.0 + dbx...
Att
Rogério
Na seguinte linha de código:
with CdsParcelasaPagar do
begin
sSel := '';
Close;
CommandText := '';
sSel := ' SELECT CDITEM_PARCELASAPAGAR,CDCONTA_CONTASAPAGAR,' +
' DTVENC_PARCELASAPAGAR,VLPARCELA_PARCELASAPAGAR,' +
' NRPARCELAS, SITUACAO_PARCELASAPAGAR, ' +
' DTPAGTO_PARCELASAPAGAR,VLPAGO_PARCELASAPAGAR, ' +
' CD_FORMPAGAMENTO,VLDESCONTO_PARCELASAPAGAR, ' +
' VLACRESCIMO_PARCELASAPAGAR, ' +
' DESCACR_PARCELASAPAGAR,COD_CONTAS ' +
' FROM PARCELASAPAGAR ';
case pTipoFiltro of
0 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('A');
1 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('B');
2 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('D');
3 : sFiltro := '';
end;
sOrder := ' ORDER BY NRPARCELAS,DTVENC_PARCELASAPAGAR ';
CommandText := sSel + sFiltro + sOrder;
Open;
Quando é executado o open está mostrando a seguinte mensagem de erro:
TOKEN UNKNOW - LINE @1,COLUMN @2
@1
A mesma linha de código estou usando com a tabela parcelasareceber e funciona normalmente. Seu eu colocar o código acima no ibexpert não apresenta mensagem de erro executando normalmente o SQL.
Estou usando delphi 2010 + Firebird 2.0 + dbx...
Att
Rogério
Rogerio Santos
Curtidas 0
Respostas
Dannicléo Teles
22/01/2015
Meu caro, acredito que o problema seja na montagem dessa string, minha sugestão é que vc verifique essa string pelo debug, com ela montada vc copia e joga no ibexpert
GOSTEI 0
Rogerio Santos
22/01/2015
Olá bom dia...
Conforme citei acima eu já fiz o debug com o conteúdo colocado na string...No IBEXPERT não apresenta msg de erro.
Att
Rogério
Conforme citei acima eu já fiz o debug com o conteúdo colocado na string...No IBEXPERT não apresenta msg de erro.
Att
Rogério
GOSTEI 0
Douglas
22/01/2015
Olá Rogerio, a montagem de sua string "sOrder" antes do comando open está um pouco estranho mesmo. Eu aconselho a você dá um showmessage antes do comando open, somente para certifica-se de que o código SQL não está saindo tudo junto. Uma outra coisa é alterar o open pelo execute. Faça um teste, aguardo os seu feedback!
GOSTEI 0
Rogerio Santos
22/01/2015
Boa tarde Douglas...
Primeiramente obrigado por verificar essa dúvida que postei no forum...
Bom coloquei um showmessage e a script sql está saindo certinho com o select, campos mais from da tabela...
Substitui o OPEN pelo EXECUTE então ele não apresenta msg de erro mas também não aparece nada na grid...
No caso ele têm que aparecer... Tipo ele têm que mostrar os registros quitados, em aberto, pagamento parcial.. Um deles têm que mostrar...
Att
Rogério
Primeiramente obrigado por verificar essa dúvida que postei no forum...
Bom coloquei um showmessage e a script sql está saindo certinho com o select, campos mais from da tabela...
Substitui o OPEN pelo EXECUTE então ele não apresenta msg de erro mas também não aparece nada na grid...
No caso ele têm que aparecer... Tipo ele têm que mostrar os registros quitados, em aberto, pagamento parcial.. Um deles têm que mostrar...
Att
Rogério
GOSTEI 0