ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

problemas com update fdQuery

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
DiogoDF83
Novato
Novato


Registrado: Sexta-Feira, 19 de Novembro de 2021
Mensagens: 20
MensagemEnviada: Seg Jun 20, 2022 4:58 pm    Assunto: problemas com update fdQuery Responder com Citação
Boa tarde pessoal.
não estou conseguindo atualizar meu cadastro de clientes usando
TFdQuery

Alguem poderia me ajudar?

Código:

procedure TfrmClienteDAO.Alterar(Cliente: TCliente; IdCliente: Integer);
var
  fdQryAlterar: TFDQuery;
  frmClienteController: TClienteController;
begin
  fdQryAlterar := TFDQuery.Create(nil);
  frmClienteController := TClienteController.Create;
  fdQryAlterar.Connection := dmConexao.fdConexao;
  with fdQryAlterar, Cliente do
  begin
    SQL.Clear;
    SQL.Add('UPDATE ' +  frmClienteController.GetNomeTabela +
            'SET RAZAO_SOCIAL_CLI =:RAZAO_SOCIAL_CLI, ' +
            'FANTASIA_CLI =:FANTASIA_CLI, ' +
            'CPF_CNPJ_CLI =:CPF_CNPJ_CLI, ' +
            'TIPO_FJ_CLI =:TIPO_FJ_CLI ,' +
            'NOME_CLI =:NOME_CLI, ' +
            'EMAIL_CLI =:EMAIL_CLI, ' +
            'SITE_CLI =:SITE_CLI, ' +
            'ENDERECO_CLI =:ENDERECO_CLI, ' +
            'COMPLEMENTO_CLI =:COMPLEMENTO_CLI, ' +
            'NUMERO_CLI =:NUMERO_CLI, ' +
            'BAIRRO_CLI =:BAIRRO_CLI, ' +
            'IE_CLI =:IE_CLI, ' +
            'IM_CLI =:IM_CLI, ' +
            'ID_CIDADE_CID =:ID_CIDADE_CID, ' +
            'ID_ESTADO_EST =:ID_ESTADO_EST ' +
            'WHERE (ID_CLIENTE_CLI =:ID_CLIENTE_CLI)');

    ParamByName('RAZAO_SOCIAL_CLI').AsString := RAZAOSOCIAL;
    ParamByName('FANTASIA_CLI').AsString := FANTASIACLI;
    ParamByName('CPF_CNPJ_CLI').AsString := CPFCNPJCLI;
    ParamByName('TIPO_FJ_CLI').AsString := TIPOFJCLI;
    ParamByName('NOME_CLI').AsString := NOMECLI;
    ParamByName('EMAIL_CLI').AsString := EMAILCLI;
    ParamByName('SITE_CLI').AsString := SITECLI;
    ParamByName('ENDERECO_CLI').AsString := ENDERECOCLI;
    ParamByName('NUMERO_CLI').AsString := NUMEROCLI;
    ParamByName('BAIRRO_CLI').AsString := BAIRROCLI;
    ParamByName('IE_CLI').AsString := IECLI;
    ParamByName('IM_CLI').AsString := IMCLI;
    ParamByName('ID_CIDADE_CID').AsInteger := IDCIDADECID;
    ParamByName('ID_ESTADO_EST').AsInteger := IDESTADOEST;
    ParamByName('ID_CLIENTE_CLI').AsInteger := IdCliente;

    //SQL.SaveToFile('C:\temp\sql.txt');
    ExecSQL;
  end;
end;

Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
MensagemEnviada: Ter Jun 21, 2022 2:08 pm    Assunto: Responder com Citação
Boa tarde,

O que acontece? Está sendo exibida alguma mensagem?
Pelo que vi está faltando atribuir um valor para o parâmetro COMPLEMENTO_CLI, e talvez esteja faltando um espaço em branco entre o nome da tabela e o Set.

Espero que ajude
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB