Erro ao tentar inserir dados em uma tabela

[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!');

o interbase retorna:

 

Query: Parameter 'Nomecli' not found.

[quintelab 91]

Isso é erro do banco ou é do Delphi? Eu nunca tive esse tipo de erro em banco.

 

Abraços..

[DutchMan 0]

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!');

o interbase retorna:

 

Query: Parameter 'Nomecli' not found.

Há um erro de digitação ao passar os parametros:

 

NOME_CLI, TIPO_CLI, CPF_CLI, ETC... e

 

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

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

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

etc...

 

Espero ter ajudado.