algo parecido a findnearest

[martita]

ok la ultima solucion me parece bien, pero el detalle es que trabajo con tablas paradox, con el bde, y un alias, el tibquery no me reconoce cuando quiero poner el nombre de la base de datos no aparece ninguna y tengo registradas como 5 en el bde se supone que deberia de mostrarme la lista de las bases de tados registradas en bde.

como puedo solucionar esto ?

[ecfisa]

Hola martita.

No entiendo bién el problema que tenes ya que no conozco mucho a Paradox, pero como te dije arriba sólo tendrías que cambiar el tipo del argumento AQuery de TIBQuery por TQuery.

Te adjunto un ejemplo funcional que utiliza la BDE, así lo podes analizar con tranquilidad. Para probarlo sólo descomprimilo en una carpeta y compilalo, incluye la tabla sobre la que trabaja.

Saludos.

[ecfisa]

Hola de nuevo.

Ahora entiendo lo que comentas del Alias...

En el evento OnShow del ejemplo que te adjunte, cambia:

Código Delphi [-]
Query1.DatabaseName:= ExtractFilePath(Application.ExeName);

Por:

Código Delphi [-]
Query1.DatabaseName:= 'NOMBRE_DE_TU_ALIAS';

O como una solución más completa, se puede agregar otro argumento a la función:

Código Delphi [-]
function QueryNearest(AQuery: TQuery; Alias, Tabla, Campo: string; Dato: Variant): Boolean;
begin
  AQuery.DatabaseName:= Alias;
  AQuery.Close;
  AQuery.SQL.Clear;
  AQuery.SQL.Add('SELECT * FROM ' + Tabla);
  AQuery.SQL.Add('WHERE '+Campo+' LIKE :DATO || ''%''');
  AQuery.ParamByName('DATO').Value:= Dato;
  AQuery.Open;
  Result:= not AQuery.IsEmpty;
end;

Ejemplo de llamada con la tabla Country que viene con Delphi:

Código Delphi [-]
  QueryNearest(Query1, 'DBDEMOS', 'COUNTRY', 'NAME', Edit1.Text);

Saludos.

[martita]

gracias por el apoyo y colaboracion con el ejemplo que envio en zip
ecfisa pude comprender a fondo el funcionamiento de la busqueda de datos en una tabla, agradezco mucho por el tiempo y ayuda prestado.

saludos.

espero y sirva a otros compañeros del foro.