erro no codigo que nao consigo achar

15/03/2013

0

arqema.sql.add(''select codfun as coddes, nomfun as nomdes, emails as endele, '''' as endalt, cidfun as ciddes, estfun as estdes'');
arqema.sql.add(''from fpd005 where emails is not null'');
if maskedit1.text <> '''' then
begin
arqema.sql.add(''and codfun=:wcodfun'');
arqema.parambyname(''wcodfun'').asinteger := strtoint(maskedit1.text);
end;
if checkbox4.checked = false then
begin
arqema.sql.add(''and datres is null'');
end;


ESTA DANDO ERRO NO PARAMENTRO WCODFUN. ALGUEM POR FAVOR PODE OLHAR O QUE ESTA ERRADO, POIS EU ATÉ AGORA NÃO ACHEI.

OBRIGADO
"DEUS ABENÇOE"
Wilton Júnior

Wilton Júnior

Responder

Posts

15/03/2013

William

Colega falta um espaço no final do WHERE:

"from fpd005 where emails is not null "
Responder

15/03/2013

Joel Rodrigues

Rapaz, qual é exatamente o erro?
Responder

15/03/2013

Wilton Júnior

aparece uma mensagem dizendo que o paramentro wcodfun não funciona.
Parameter 'wcodfun' not found.

Eu não vi erro. ta muito esquisito
Responder

15/03/2013

Wilton Júnior

Achei o erro obrigado a todos.
Responder

15/03/2013

Francisco Macário

arqema.sql.add(''select codfun as coddes, nomfun as nomdes, emails as endele, '''' as endalt, cidfun as ciddes, estfun as estdes'');
arqema.sql.add(''from fpd005 where emails is not null'');
if maskedit1.text <> '''' then
begin
arqema.sql.add(''and codfun=:wcodfun'');
arqema.parambyname(''wcodfun'').asinteger := strtoint(maskedit1.text);
end;
if checkbox4.checked = false then
begin
arqema.sql.add(''and datres is null'');
end;


ESTA DANDO ERRO NO PARAMENTRO WCODFUN. ALGUEM POR FAVOR PODE OLHAR O QUE ESTA ERRADO, POIS EU ATÉ AGORA NÃO ACHEI.

OBRIGADO
"DEUS ABENÇOE"


Olá.

Pode ser por que você esta passando valor para o parametro sem ter terminado de montar a instrução SQL.

Repondo seu código.



  arqEma.sql.add('  select');
  arqEma.sql.add('    CODFUN as CODDES, NOMFUN as NOMDES, EMAILS as ENDELE,');
  arqEma.sql.add('  '+QuotedStr('''')+ 'as ENDALT, CIDFUN as CIDDES, ESTFUN as ESTDES');
  arqEma.sql.add('  from');
  arqEma.sql.add('    FPD005');
  arqEma.sql.add('  where');
  arqEma.sql.add('    EMAILS is not null');
  if maskedit1.text <> '''' then
  begin
    arqEma.sql.add('  and CODFUN = :wcodfun');
  end;

  if checkbox4.checked = false then
  begin
    arqEma.sql.add('  and DATRES is null');
  end;

  if maskedit1.text <> '''' then
  begin
    arqEma.parambyname('wcodfun').AsInteger := strtoint(maskedit1.text);
  end;


Responder

15/03/2013

Joel Rodrigues

Obrigado pelo retorno.
Sendo assim, estou marcando este tópico como Concluído.
Abraço a todos.
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar