Como Empezar??

[MikyVato]

Hola, busco una sugerencia porque la verdad estoy un poco atascado, estoy creando un proyecto donde tengo que buscar dentro de una DB 58 reg. los cuales salen de un objeto memo, y luego mostrarlos en un dbGrid

Se me habia ocurrido leer una linea del MEMO comparar con toda la DB hasta encontrar el Reg, si esta lo agrego a otra tabla y asi hasta llegar al final del memo. Al finalizar muestro la tabla resultado

Mi duda es como hacer la busqueda de la manera mas rápida y eficiente.

Desde ya gracias x la ayuda

[ContraVeneno]

Bueno, la parte de hacer la consulta es lo sencillo. Un TADOQuery, una consulta SQL, un DBGrid y listo.

Lo que no me queda claro es la parte de que los datos salen de un memo. ¿Que datos? ¿Cuantos? ¿Un memo?

[jhonny]

Bueno, la verdad es que particularmente no entiendo muy bien que es lo que tienes en la BD ni que es lo que tienes en el Memo y mucho menos lo que tienes que comparar, pero a juzgar por lo que pude captar podria decirte que para recorrer el Memo solo basta con hacer lo siguiente:

Código Delphi [-]
var
  i :integer;
begin
  for i := 0 to Memo1.Lines.Count -1 do
  begin
    ShowMessage(Memo1.Lines[i]);
  end;
end;

y luego haces un Query en tiempo de ejecución que consulte en tu BD lo que necesitas...

Si mis habilidades mentalistas, astrologicas, budistas y si toda mi experiencia como yogui me engaño al punto de que lo que te dije no te sirve pa un carajo te agradeceria que nos apliaras un poco mas tu duda.

P.D. Y si otra persona entendio la pregunta a la perfeccion por favor decidme el telefono del templo para poder asistir.

[MikyVato]

JAJA Disculpen no me supe explicar muy bien, pero no estan tan lejos de lo que busco, el tema es asi:

Tengo un archivo de texto el cual cargo en TMEMO, contiene varios códigos de 8 digitos, los que tengo que buscar en la DB y mas tarde mostrarlos por un DBGRID. La idea del Querry me parece genial pero no se como usarlo muy bien, como uso la info del TMEMO en el Querry???

Gracias y prometo que la proxima ves les envio un curso de astrologia o algo por el estilo........ []

[MikyVato]

Bueno ya se como usar el TMEMO, creo también que se como utilizar el TQUERRY lo que no estoy seguro es si el TQUERRY mi filtra todos los registros, pues imaginate, la cosa es así:

Yo tengo un memo con por lo menos 58 Lineas de códigos diferentes los cuales tengo que buscar en la DB, me parece que para esta acción no me es útil el TQUERRY os si??. La dificultad esta (por lo menos para mi) en mostrar estos 58 Registros encontrados en un DBGRID. Tendría que crear una Tabla con los Registros Encontrados??


Desde ya Gracias disculpen la Ignorancia, soy un Novato tratando de superarse

[jhonny]

En vista he perdido el dinerito...
Y ahora a lo que hemos venido...
...No he probado el siguiente código... pero quizá te sirva y porfa nos comentas como te fue...
En un Boton o al OnCreate o en el evento que abras tu Tquery (Lo llamare Query1 para el ejemplo) podrías hacer lo siguiente:

Código Delphi [-]
Query1.Close;
Query1.Open;
Query1.Filtered := False;
Query1.Filtered := True;

Con esas lineas se dispararía el evento OnFilterRecord del TQuery(Query1)
y en el evento FilterRecord deberías tener el siguiente código...

Código Delphi [-]
Accept := (Memo1.Lines.IndexOf(Quer1.FieldByName('codigo').AsString) <> -1);//Esta linea mostraría los 
               //códigos que hay en la 
              //BD que también estén incluidos en el TMemo.

Nota: Si no te funciona así prueba quitando lo que tengas en la propiedad Filter de el TQuery.

[[Lepe]]

Otra forma, quizás algo bestia.... pero muy rápida de hacer

Código Delphi [-]

var filtro : string;
begin
filtro := EmptyStr;
for i:= 0 to memo1.lines.count -1 do
  filtro := filtro + ','+QuotedStr(memo1.lines[i]);
delete(filtro,1,1);

query1.sql.text := 'select * from tabla where campo in ('+ filtro+')';
query1.Open;

Saludos