Erro com query.. não consigo encontrar o erro

[Thiago Delalibera 1]

Estou usando Interbase com Delphi, o sistema ta funcionando legal, porém quando vou tentar inserir dados na minha tabela de clientes ele retorna o erro de parâmetro não encontrado.. sendo o que o parâmetro é :Nomecli,

mas eu especifiquei o parâmetro... mesmo assim nada, ja tentei trocar o nome, as conexões estão perfeitas, tanto que o sistema faz login, executa outras operações e minhas querys são todas neste padrão que apresento abaixo.

 

 

Query.Active:=False;

Query.SQL.Clear;

Query.SQL.Append('INSERT INTO TBL_CLIENTES (NOME_CLI, TIPO_CLI, CPF_CLI, RG_CLI, ENDERECO_CLI, NUMEND_CLI, BAIRRO_CLI, UF_CLI, CIDADE_CLI, CEP_CLI, TEL_CLI, FAX_CLI, CEL_CLI, SITE_CLI, EMAIL_CLI) VALUES (:Nomecli, :Tipo, :Cpf, :Rg, :Endereco, :Num, :Bairro, :Uf, :Cidade, :Cep, :Tel , :Fax, :Cel, :Site, :Email)');

Query.ParamByName('Nomecli').AsString:=dbNome.Text;

Query.ParamByName('Tipo').AsString:=dbTipo.Text;

Query.ParamByName('Cpf').AsString:=dbCPF.Text;

Query.ParamByName('Rg').AsString:=dbRG.Text;

Query.ParamByName('Endereco').AsString:=dbEndereco.Text;

Query.ParamByName('Num').AsString:=dbNumero.Text;

Query.ParamByName('Bairro').AsString:=dbBairro.Text;

Query.ParamByName('Uf').AsString:=dbUF.Text;

Query.ParamByName('Cidade').AsString:=dbCidade.Text;

Query.ParamByName('Cep').AsString:=dbCEP.Text;

Query.ParamByName('Tel').AsString:=dbTel.Text;

Query.ParamByName('Cel').AsString:=dbCel.Text;

Query.ParamByName('Fax').AsString:=dbFax.Text;

Query.ParamByName('Site').AsString:=dbSite.Text;

Query.ParamByName('Email').AsString:=dbEmail.Text;

Query.ExecSQL;

ShowMessage('Cadastro efetuado com sucesso!');

 

retorna:

 

Query: Parameter 'Nomecli' not found.

 

se eu remover o nomecli, ele retornaria o próximo parametro especificado

eu to usando o TSQLConnection e TSQLQuery do dbexpress... não sei mais o que testar aqui ..

[shini 318]

Talvez você não tenha adicionado os campos no filedEditor, no datamodule.