Fórum Problemas em um UPDATE (Sql) #225827
13/04/2004
0
tenho uma tabela em mysql, na qual acesso com o componente zeoslib.
tenho vários campos, todos eles do tipo varchar, exceto o ´Codigo´ (Int(+)).
em um append eu puxo os dados da grid e jogo eles no edit, tudo certo ate ai, mas, na hora de atualizar, nao estou conseguindo dar um Update..
abaixo segue minha rotina:
Sql.Text := ´Update tbFuncionarios ´+
´ Set Nome = :001, ´+
´ Endereco = :002, ´+
´ Bairro = :003, ´+
´ CartProfissional = :004, ´+
´ SeriedaCart = :005, ´+
´ Cpf = :006, ´+
´ Profissao = :007, ´+
´ Cep = :008, ´+
´ Cbo = :009, ´+
´ scontrato = :010, ´+
´ identidade = :011, ´+
´ ssp = :012, ´+
´ sal_base = :013 ´+
´ DataNasc = :014 ´+
´ DataAdm = :015 ´+
´ Where Codigo = Codigo ´;
Params[00].asString := edNome.Text;
Params[01].asString := edEnd.Text;
Params[02].asString := edBairro.Text;
Params[03].asString := edCidade.Text;
Params[04].asString := edCarteiraProf.Text;
Params[05].asString := edSerie.Text;
Params[06].asString := edCpf.Text;
Params[07].asString := edProfissao.Text;
Params[08].asString := edCep.Text;
Params[09].asString := edCbo.Text;
Params[10].asString := edscontrato.Text;
Params[11].asString := edIdentidade.Text;
Params[12].asString := edSsp.Text;
Params[13].asString := edSalario.Text;
Params[14].asString := edDataNasc.Text;
Params[15].asString := edDataAdm.Text;
ExecSql;Obrigado... 8)
Otto
Curtir tópico
+ 0Posts
13/04/2004
Otto
Gostei + 0
13/04/2004
Chico Gois
KaKaKaKaKaKaKaKaKaKaKaKaKaKa........ :lol:
Gostei + 0
13/04/2004
Otto
mas, falando do topico, acrescentei algumas virgulas la que faltavam, e tb nao cadastra..
Gostei + 0
13/04/2004
Otto
Sql.Text := ´Update tbFuncionarios ´+
´ Set Nome = :00,´+
´ Endereco = :01,´+
´ Bairro = :02,´+
´ Cidade = :03,´+
´ CartProfissional = :04,´+
´ SeriedaCart = :05,´+
´ Cpf = :06,´+
´ Profissao = :07,´+
´ Cep = :08,´+
´ Cbo = :09,´+
´ scontrato = :10,´+
´ identidade = :11,´+
´ ssp = :12,´+
´ sal_base = :13,´+
´ DataNasc = :14,´+
´ DataAdm = :15 ´+
´ Where Codigo = Codigo ´;
Params[00].asString := edNome.Text; // Nome
Params[01].asString := edEnd.Text; // Endereço
Params[02].asString := edBairro.Text; // Bairro
Params[03].asString := edCidade.Text; // Cidade
Params[04].asString := edCarteiraProf.Text; // CartProfissional
Params[05].asString := edSerie.Text; // SeriedaCart
Params[06].asString := edCpf.Text; // Cpf
Params[07].asString := edProfissao.Text; // Profissao
Params[08].asString := edCep.Text; // Cep
Params[09].asString := edCbo.Text; // Cbo
Params[10].asString := edscontrato.Text; // scontrato
Params[11].asString := edIdentidade.Text; // Identidade
Params[12].asString := edSsp.Text; // SSP
Params[13].asString := edSalario.Text; // sal_base
Params[14].asString := edDataNasc.Text; // DataNasc
Params[15].asString := edDataAdm.Text; // DataAdm
ExecSql;o erro é este:
[img:6ac5ad2b3d]http://www.seek.srv.br/otto/fotos/erros/erro_mysql.jpg[/img:6ac5ad2b3d]
Gostei + 0
13/04/2004
Lucas Silva
Gostei + 0
13/04/2004
Otto
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)