Alberto Mota Postado Agosto 1, 2009 Denunciar Share Postado Agosto 1, 2009 Prezados colegas, há tempo não consigo obter sucesso para atualizar um pagamentoUtilizo o Delphi 7 com sql server express 2005O código executa dando a mensagem de operação concluida, porém não faz a devida baixa, atualizaçãoNada acontece a não ser a mensagem .Segue o código e desde já obrigado. procedure TFrmRecebimentos.BitBtn5Click(Sender: TObject); var wrddia, wrdmes, wrdAno: word; DtVcto: TDateTime; StrAno : string; begin DtVcto:= strtodate(maskedit1.Text); DecodeDate(Date, wrdAno, WrdMes, WrdDia); StrAno := IntTostr(wrdAno); StrAno := Copy(StrAno,3,2); TblDuplicatas.Close; TblDuplicatas.sql.Clear; TblDuplicatas.sql.Add('Update TblDuplicatas Set DtPgto =:DtVcto where RegDet=:Codigo'); TblDuplicatas.Parameters.ParamByName('Codigo').Value := StrToInt(edit9.text); TblDuplicatas.ExecSQL; TblDuplicatas.close; Duplicatas.Close; Duplicatas.open; showmessage('Operação de pagamento concluída!'); maskedit3.Text := ''; end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Agosto 1, 2009 Denunciar Share Postado Agosto 1, 2009 TblDuplicatas.Close; TblDuplicatas.sql.Clear; TblDuplicatas.sql.Add('Update TblDuplicatas Set DtPgto =:DtVcto where RegDet=:Codigo'); TblDuplicatas.Parameters.ParamByName('Codigo').Value := StrToInt(edit9.text); TblDuplicatas.ExecSQL;voce só passou o parametro Codigo .. onde esta o parametro DtVcto ???TblDuplicatas.Parameters.ParamByName('DtVcto').Value := strtodate(maskedit1.Text);Veja se é isso...abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Alberto Mota Postado Agosto 1, 2009 Autor Denunciar Share Postado Agosto 1, 2009 Jhonas, obrigado pela atenção. Obtive sucesso após pesquisar pela NET. Que sufoco! Eis o código correto. Um abraço.procedure TFrmRecebimentos.BitBtn5Click(Sender: TObject);var DataI, DataF: TDatetime;beginDataI:=strtodate(MaskEdit1.text);ADOQuery1.Close;ADOQuery1.sql.Clear;ADOQuery1.sql.Add('Update TblDuplicatas Set DtPgto = '+#39+FormatDateTime('mm/dd/yyyy',DataI)+#39+' where RegDet='+DbGrid8.fields[0].text);ADOQuery1.ExecSQL;showmessage('Operação de pagamento concluída!');maskedit3.Text := '';Duplicatas.close;Duplicatas.open;end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Alberto Mota
Prezados colegas, há tempo não consigo obter sucesso para atualizar um pagamento
Utilizo o Delphi 7 com sql server express 2005
O código executa dando a mensagem de operação concluida, porém não faz a devida baixa, atualização
Nada acontece a não ser a mensagem .
Segue o código e desde já obrigado.
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.