[firebase-br] Update

[Evandro Siqueira]

Adriano,

Tente assim q acho q vai dar certo, ok?

with DM.QRTEMP do
 begin
    Close;
    SQL.Clear;
    SQL.Add( 'UPDATE TBVENDAS SET NOTA =  :vNota,');
    SQL.Add( '                              DEVOLVIDO = 1,');
    SQL.Add( '                    DATADEVOLUCAO = :vDataDev');
    SQL.Add( ' WHERE NRREGISTRO = :vRegistro' );
    SQL.ParamByName( 'vNota' ).AsInteger :=  StrToInt( CMBNOTA.Text );
    SQL.ParamByName( 'vDataDev').AsDateTime := StrToDate(EDTDATA.Text);
    SQL.ParamByName('vRegistro').AsString := REGISTRO.CAPTION;
     ExecSQL;
 end;

[]'s

Evandro Siqueira.
Em 27/05/06, AdrianoCadi <adrianocadi em hotmail.com> escreveu:
>
> Preciso fazer um update na tabela do FireBird, estou usando um IBQUERY,
> mas
> naum da certo.
> Vejam abaixo, e me digam oq pode estar de errado
> Campo Nota é Integer
> Devolvido é Integer;
> DataDevolucao é date
> Nrregistro é VarChar
>
> WITH DM.QRTemp DO
> BEGIN
>        CLOSE;
>        Fields.Clear;
>        SQL.Clear;
>        SQL.ADD('UPDATE TBVENDAS SET NOTA =   '+CMBNOTA.Text+',DEVOLVIDO =
> 1,DATADEVOLUCAO = '
>        +Datetostr(strtodate(EDTDATA.Text))+'WHERE NRREGISTRO =
> '+''+REGISTRO.CAPTION+''+'');
>        ExecSQL;
> END;
>
>
>
>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>


-- 
Evandro Siqueira
Programador
Aracaju/SE