Erro em Consulta SQL
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.
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
Curtidas 0
Respostas
Edilcimar
18/11/2005
você está acrescentando o ¬ como se fosse uma parte final da string
GOSTEI 0
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