Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Ae gente to tentando usar o Update em um registro mais não to conceguindo to usando o seguinte codigo, algum pd me falar ond q ta errado
procedure TFrmCadMedico.Update;
begin
DMFisio.QCadMedico.Active:= False;
DMFisio.QCadMedico.SQL.Clear;
DMFisio.QCadMedico.SQL.Add(update medicos set crm = :crm, nome = :nome, especialidade = :especialidade where crm = :OLD_crm and nome = :OLD_nome and especialidade = :OLD_especialidade');
DMFisio.QCadMedico.ParamByName('crm').AsString := txtcrm.Text;
DMFisio.QCadMedico.ParamByName('nome').AsString := txtnome.Text;
DMFisio.QCadMedico.ParamByName('especialidade').AsString := txtespecialidade.Text;
DMFisio.QCadMedico.Open;
DMFisio.QCadMedico.ExecSQL;
end;Carregando comentários...