Comando Sql No Firebird

[rjcerri]

Zquery1.SQL.Clear;

Zquery1.SQL.Add('Select * from clientes where aniver LIKE:aniv and estado LIKE:Mest and tipocli LIKE:Mtipo and descricao LIKE:Mdesc');

Zquery1.ParamByName('aniv').AsString:='%'+edit1.text+'%';

Zquery1.ParamByName('mest').AsString:='%'+edit3.text+'%';

Zquery1.ParamByName('mtipo').AsString:='%'+edit2.text+'%';

Zquery1.ParamByName('mtipo').AsString:='%'+edit2.text+'%';

Zquery1.ParamByName('mdesc').AsString:='%'+DBlookupComboBox2.text+'%';

Zquery1.open;

estou fazendo assim mas esta dando esse erro

303 aritmetic exception, numeric overflow, or string truncation, error code:-303 incompatible cloun/host variable datatype.

não tenho a menor ideia do que seja isso.

[Micheus]

rjcerri, acredito que seja porque não esteja definido o tipo de parâmetro a ser passado e deste modo a consulta pode não estar sendo enviada corretamente para o banco. Como você está fazendo esta consulta dinamicamente, faça um teste: defina então o tipo do parâmetro (DataType) de acordo com o tipo do respectivo campo na tabela (ftString)

Zquery1.SQL.Clear;

Zquery1.SQL.Add('Select * from clientes where aniver LIKE:aniv and estado LIKE:Mest and tipocli LIKE:Mtipo and descricao LIKE:Mdesc');

// *** não sei se funciona em run-time, então se houver erro, acho que vai ter que tentar

// *** adicionando em design-time

Zquery1.ParamByName('aniv').DataType := ftString;

Zquery1.ParamByName('mest').DataType := ftString;

Zquery1.ParamByName('mtipo').DataType := ftString;

Zquery1.ParamByName('mdesc').DataType := ftString;

// ****

Zquery1.ParamByName('aniv').AsString:='%'+edit1.text+'%';

Zquery1.ParamByName('mest').AsString:='%'+edit3.text+'%';

Zquery1.ParamByName('mtipo').AsString:='%'+edit2.text+'%';

Zquery1.ParamByName('mtipo').AsString:='%'+edit2.text+'%';

Zquery1.ParamByName('mdesc').AsString:='%'+DBlookupComboBox2.text+'%';

Zquery1.open;

[]s

[rjcerri]

Zquery1.ParamByName('aniv').DataType:=ftstring;

Zquery1.ParamByName('mest').DataType:=ftstring;

Zquery1.ParamByName('mtipo').DataType:=ftstring;

Zquery1.ParamByName('mdesc').DataType:=ftstring;

Zquery1.ParamByName('aniv').AsString:='%'+edit1.text+'%';

Zquery1.ParamByName('mest').AsString:='%'+edit3.text+'%';

Zquery1.ParamByName('mtipo').AsString:='%'+edit2.text+'%';

Zquery1.ParamByName('mdesc').AsString:='%'+DBlookupComboBox2.text+'%';

Zquery1.open;

Obrigado amigo, fiz assim mas o erro continua.

[Guest MACABUS]

não sei se estou falando besteira, mas fiz um teste e parece que o maximo de caracteres é 20. será que algum parametro está dando o string truncation?

obrigado por me ajudar com a sintaxe do LIKE... ;)

[Micheus]

depois que o colega MACABUS chamou a atenção para o LIKE, dando uma olhada melhor, parece que você está utilizando o like com campo data quando coloca "...where aniver LIKE:aniv..."

O like só se aplica a textos(strings), então se quizer fazer uso com um campo data, provavelmente você terá que converter seu campo data para texto. Se for o caso, dê uma olhada em CAST (no Firebird). Seria algo mais ou menos assim: "...where CAST(aniver as varchar(10)) like :aniv...". não tenho como conferir agora.

[]s