 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
tiagorogers1
Aprendiz
Registrado: Sexta-Feira, 17 de Julho de 2015
Mensagens: 215
Localização: Recife
|
 Enviada: Qui Jan 14, 2016 4:27 pm Assunto: Erro parametro na Query(RESOLVIDO) |
 |
|
Estou com a seguinte Query com problemas
| Código: |
begin
With dm.TESTE do
begin
SQL.Clear;
SQL.Add('select VENCIMENTO, SUM(VALOR_BRUTO) as total from RECEBER where VENCIMENTO BETWEEN :DataIni AND :DataFim');
SQL.Add('and RECEBIDO=' + QuotedStr('NAO'));
SQL.Add('and CANCELADO is null and RENEGOCIADO is null');
dm.TESTE.Params.ParamByName('DataIni').Value:= FormatDateTime('yyyy/mm/dd', StartOfTheMonth(VarToDateTime('01-'+FormatFloat('00', cbMes.ItemIndex+1)+'-'+cbAno.Text)));
dm.TESTE.Params.ParamByName('DataFim').Value:= FormatDateTime('yyyy/mm/dd', EndOfTheMonth(VarToDateTime('01-'+FormatFloat('00', cbMes.ItemIndex+1)+'-'+cbAno.Text)));
//ShowMessage(SQL.Text);
Open;
end;
end;
|
apresenta erro [dcc32 Error] UFrm.pas(322): E2003 Undeclared identifier: 'Params'
Editado pela última vez por tiagorogers1 em Qui Jan 14, 2016 5:04 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Qui Jan 14, 2016 4:44 pm Assunto: |
|
|
Você usa ADOQuery? Se sim, troque Params por Parameters.
| Código: | begin
With dm.TESTE do
begin
SQL.Clear;
SQL.Add('select VENCIMENTO, SUM(VALOR_BRUTO) as total from RECEBER where VENCIMENTO BETWEEN :DataIni AND :DataFim');
SQL.Add('and RECEBIDO=' + QuotedStr('NAO'));
SQL.Add('and CANCELADO is null and RENEGOCIADO is null');
dm.TESTE.Parameters.ParamByName('DataIni').Value :=
FormatDateTime('yyyy/mm/dd', StartOfTheMonth(VarToDateTime('01-' + FormatFloat('00',cbMes.ItemIndex + 1) + '-' + cbAno.Text)));
dm.TESTE.Parameters.ParamByName('DataFim').Value :=
FormatDateTime('yyyy/mm/dd', EndOfTheMonth(VarToDateTime('01-' + FormatFloat('00',cbMes.ItemIndex + 1) + '-' + cbAno.Text)));
// ShowMessage(SQL.Text);
Open;
end;
end; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
tiagorogers1
Aprendiz
Registrado: Sexta-Feira, 17 de Julho de 2015
Mensagens: 215
Localização: Recife
|
| Enviada: Qui Jan 14, 2016 5:01 pm Assunto: |
|
|
| Resolvido Natan, vlw mesmo. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
