error e busqueda
 

hola a todos

tengo un form de busqueda de clientes estoy usndo accses
cuando trato de hacer una busqueda me sale este error
[controlador odbc accses] 'no concieden los tipos de datos en la exprecion de criterios'

y este es el codigo:

var sql: string;
begin
clienteQuery1.CLOSE;
clienteQuery1.sql.clear;

IF LENGTH (EDIT1.TEXT) > 0 THEN
SQL:= 'SELECT * FROM consultacliente WHERE codigo =' + QUOTEDSTR (EDIT1.TEXT)
ELSE
SQL:= 'SELECT * FROM consultacliente';

clienteQuery1.SQL.ADD (SQL);
clienteQuery1.ACTIVE := TRUE;

IF
clienteQuery1.RecordCount < 1 THEN
BEGIN
SHOWMESSAGE ('NO HAY CLIENTE CON ESTE CODIGO');
END
ELSE
EDIT1.TEXT:= clienteQuery1.FIELDVALUES ['codigo'];
end;

si hay otra forma de hacerla le agradeceria mucho.

Hola josi, de que tipo es tu campo codigo, si es entero no necesita el quotedstr, te sale el error porque no coinciden los tipos.

Código Delphi [-]
......
SQL:= 'SELECT * FROM consultacliente WHERE codigo =' +EDIT1.TEXT
......

Saluditos