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.
|