Erro em Consulta SQL

Delphi

18/11/2005

Senhores Boa tarde, estou com o seguinte problema:
Utilizo Delphi 7.0 e Firebird 1.5

tenho a seguinte query no evento on Change de um Edit

DTCadastro.cdsItens.Close;
DTCadastro.cdsItens.SelectSQL.Clear;
DTCadastro.cdsItens.SelectSQL.Add(´Select * From Itens´);
DTCadastro.cdsItens.SelectSQL.add(´Where Str_CodigoItem like :Str_CodigoItem´);
DTCadastro.cdsItens.Parambyname(´Str_CodigoItem´).AsString := Trim(EdtFiltro.Text)+ ´¬´;
DTCadastro.cdsItens.Open;

o Campo Str_CodigoItem é Varchar de 8 porém quando estou fazendo uma consulta e digito 7 Caracter o sistema retorna a seguinte mensagem

Trying to store a String Of Length 9 into a field That can Only contain 8

a memnsagem eu até entendi ele ta dizendo que estou querendo armazenar 9 caracter onde só cabe 8 mas acontece que não estou armazenando nada estou apenas passando parâmetro, o que eu verifiquei é que se eu tirar os ´¬´ do parametro tudo funciona.


Ariovaldo

Ariovaldo

Curtidas 0

Respostas

Edilcimar

Edilcimar

18/11/2005

você está acrescentando o ¬ como se fosse uma parte final da string


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

18/11/2005

tente assim:

with DTCadastro.cdsItens do
begin
  Close; 
  SelectSQL.Clear; 
  SelectSQL.Add(´Select * From Itens´); 
  SelectSQL.add(´Where Str_CodigoItem like :Str_CodigoItem´); 
  Parambyname(´Str_CodigoItem´).AsString := Copy(Trim(EdtFiltro.Text)+´¬´,1,8);
  Open;
end;



GOSTEI 0
POSTAR