Problemas ao alterar registro usando Query
Olá, preciso gravar os dados em uma tabela paradox que possuem campos texto, numérico, memorando e data.
No datamodule criei um componente [Data source] um Componente [Query] e um componente [updateSQL]
O que ocorre é:
Quando Crio um registro novo, tudo funciona todos os campos são salvos e o registro gerado.
Quando modifico um registro ou excluo um registro existente é exibido a seguinte mensage: [Type mismatch in expression]
No componente datasource esta setado em dataset a query clientes
**No componente [Query] está com os seguinte parâmetros
Active: True
CachedUpdate: True
DatabaseName: Sistest
SQL: Select * from Clientes
UpdateObject: UpdateSQL1 **
No componente UpdateSQL:
Foi gerado de forma altomatica, através de Generate Sql, sendo:
Modify
update Clientes
set
Codigo = :Codigo,
Nome = :Nome,
Ordem = :Ordem,
Endereco = :Endereco,
Bairro = :Bairro,
Cidade = :Cidade,
UF = :UF,
Fone = :Fone,
Nascimento = :Nascimento,
Comissao = :Comissao,
Preferencial = :Preferencial,
Obs = :Obs
where
Codigo = :OLD_Codigo and
Nome = :OLD_Nome and
Ordem = :OLD_Ordem and
Endereco = :OLD_Endereco and
Bairro = :OLD_Bairro and
Cidade = :OLD_Cidade and
UF = :OLD_UF and
Fone = :OLD_Fone and
Nascimento = :OLD_Nascimento and
Comissao = :OLD_Comissao and
Preferencial = :OLD_Preferencial and
Obs = :OLD_Obs
Insert
insert into Clientes
(Codigo, Nome, Ordem, Endereco, Bairro, Cidade, UF, Fone, Nascimento,
Comissao, Preferencial, Obs)
values
(:Codigo, :Nome, :Ordem, :Endereco, :Bairro, :Cidade, :UF, :Fone,
:Nascimento,
:Comissao, :Preferencial, :Obs)
Delete
delete from Clientes
where
Codigo = :OLD_Codigo and
Nome = :OLD_Nome and
Ordem = :OLD_Ordem and
Endereco = :OLD_Endereco and
Bairro = :OLD_Bairro and
Cidade = :OLD_Cidade and
UF = :OLD_UF and
Fone = :OLD_Fone and
Nascimento = :OLD_Nascimento and
Comissao = :OLD_Comissao and
Preferencial = :OLD_Preferencial and
Obs = :OLD_Obs
Obs:
Testei de duas formas em um botão gravar com o código (além do descrito acima) dm1.QClientes.Post e também pelo componente dbnavigator, de uma forma ou de outra ao fazer um dos dois procedimentos ocorre o erro, lembrando que a inclusão de novos registros funciona normalmente.
Desde já agradeço pelo ajuda.
Discussão (3)
Carregando comentários...