10 replies to this topic

[nelson8000]

Esse é o meu código..

dmData.qryBaixa.SQL.Clear;
dmdata.qryBaixa.SQL.Add('UPDATE tblCobTilt set situacao='+#39+(EDTatraso.Text)+#39' WHERE SITUACAO like '+#39+(EDTVENCER.Text)+#39' and DATAVENCIMENTO like '+#39+(edtDataVencimento.Text)+#39'');
dmData.QryBaixa.Open;

é o seguinte:

Eu quero que o valor do campo passe a ser o q eu digitar na "edtAtraso" onde os campos situacao e datavencimento sejam respectivamente os valores que eu digitar na "edtVencer" e "edtDataVencimento" ...

Eu gostaria de saber onde está o erro...
Esse código Funciona, o campo passa para o valor q eu digitei...
só que gera alguns erros...

Dei um Print Screen nos erros..

Erros segue em anexo...

Qm puder me ajudar eu agradeço mtooooooo..

Attached Files

•  erro.jpg   40.5KB   0 downloads

[proteus_adi]

dmData.qryBaixa.close;
dmData.qryBaixa.SQL.Clear;
dmdata.qryBaixa.SQL.Add('UPDATE tblCobTilt set situacao=' +
   quotestr[/b](EDTatraso.Text)                                 +
   ' WHERE SITUACAO like '                                      +
   quotestr(EDTVENCER.Text)                                   +
    ' and DATAVENCIMENTO like '                                      +
   quotestr(edtDataVencimento.Text)                         );
dmData.QryBaixa.Open;

agora eu não sei porque vc tá usando o like?
em teoria ... tá certo...

Edição feita por: proteus_adi, 25/05/2004, 15:41.

[nelson8000]

Esse code tah certo???


Deu erro!!

Vai em anexo os erros...

Se vc puder me ajudar agradeço!

Attached Files

•  erro2.jpg   57.23KB   0 downloads

[proteus_adi]

QuotedStr()

Edição feita por: proteus_adi, 25/05/2004, 15:48.

[nelson8000]

kra onde eu coloco esse

QuotedStr() ??

Tem como vc passar o código inteiro??

[nelson8000]

kra
Entendi o post anterior...

Funcionou, mas gerou os mesmos erros que eu mostrei no 1º post!

[proteus_adi]

dmData.qryBaixa.close;
dmData.qryBaixa.SQL.Clear;
dmdata.qryBaixa.SQL.Add('UPDATE tblCobTilt set situacao=' +
quotedstr[/b](EDTatraso.Text) +
' WHERE SITUACAO like ' +
quotedstr(EDTVENCER.Text) +
' and DATAVENCIMENTO like ' +
quotedstr(edtDataVencimento.Text) );
dmData.QryBaixa.Open;

quotedstr();
o que ele faz?
ele coloca uma string entre aspas

agora...
isso melhora o codigo...
mas...

[nelson8000]

Gerou os mesmos erros do meu 1º post!!

E pq tem um "[/b]" no meio do código???

[nelson8000]

Desistiu kra??

E "Prog".. vc tem alguma brilhante ideia para esse erro??


Abraços

Nelson

[proteus_adi]

a rede da em presa é que caiu...
o negocio é o seguinte...

comandos do tipo insert, update, create table, alter table
vc não usa o query.open;
vc usa o query.execsql;
então ficaria..

dmData.qryBaixa.close;
dmData.qryBaixa.SQL.Clear;
dmdata.qryBaixa.SQL.Add('UPDATE tblCobTilt set situacao=' +
quotedstr[/b](EDTatraso.Text) +
' WHERE SITUACAO like ' +
quotedstr(EDTVENCER.Text) +
' and DATAVENCIMENTO like ' +
quotedstr(edtDataVencimento.Text) );
dmData.QryBaixa.ExecSql;

que vergonha....
eu ter esquecido disso...

[nelson8000]

Putz Kra!
Valeu mesmo.. eu sabia q podia contar com vc!!

o code fikou assim

dmData.qryBaixa.close;
dmData.qryBaixa.SQL.Clear;
dmdata.qryBaixa.SQL.Add('UPDATE tblCobTilt set situacao=' +
quotedstr(EDTatraso.Text) +
' WHERE SITUACAO like ' +
quotedstr(EDTVENCER.Text) +
' and DATAVENCIMENTO like ' +
quotedstr(edtDataVencimento.Text));
dmData.QryBaixa.ExecSql;

Abraços

Nelson