Erro em Consulta SQL

18/11/2005

1

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.


Responder

Posts

18/11/2005

Edilcimar

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


Responder
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;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira