erro no codigo que nao consigo achar

15/03/2013

1

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"
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
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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira