begin
nombre:=DM_General.TClientes.Fields[0].FieldName;
numero:=strtoint(txt_buscar.Text);
QUERY1.Active := False;
filtro:='%'+IntToStr(numero)+'%';
consulta := 'SELECT * FROM T_CLIENTES WHERE + nombre + LIKE ' + QuotedStr(filtro);
QUERY1.SQL.Clear;
QUERY1.SQL.ADD(consulta);
QUERY1.Open;
end
he cambiado pero aun no obtengo la busqueda que deseo...
La base de datos que uso es Paradox.
|