Como Empezar??

[jhonny]

El código de Lepe lo que hace es concatenar en una sola variable los datos del memo separados por coma (,) y luego asignar a la propiedad Text del Query dichos valores para que los filtre; ahora bien, vos tenes lo siguiente:

Código Delphi [-]
 
ADOQuerry.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo = ('+ filtro')';

y debe ser

Código Delphi [-]
 
ADOQuerry.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo in ('+ filtro')';

Fijate en que estas usando el "=" mientras que en el ejemplo de Lepe esta muy claro que debes usar el "in" para buscar en el conjunto de datos alimentado desde la variable de texto llamada "filtro".

En cuanto a la linea que tienes duda:

Código Delphi [-]
 
filtro := EmptyStr;

Esa es una manera de inicializar la variable.

Espero te sirva de algo la explicacion.

[ContraVeneno]

a ver... aquí necesitan ponerse las pilas y abrir bien los ojos. No se me desesperen que esto es lo sencillo, mantenga la cabeza fria y ponga antención a lo que estan escribiendo.

Código Delphi [-]
ADOQuerry.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo in ('+ filtro+')';

En la segunda, según tu excepción, el problam esta en el ADOQuerry... será porque es ADOQuery con una "r", no con dos.

[jhonny]

Claro ContraVeneno debe tener razon , despues de todo aqui si hay un verdadero mentalista

[[Caral]]

Hola
A ver si me entrometo un poquito, por favor corrijanme.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Text:= 'Select * From TuTabla';
   ADOQuery1.Open;
end;

En un boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Filter := 'TuCampo = '+QuotedStr(memo1.lines[0]);
  ADOQuery1.Filtered := True;
end;

Filtra el contenido de la primera linea del memo?
Ahora lo que no me explico es para que se necesita colocar la informacion primero en un memo y luego en el dbgrid y no de una vez?
Sera para darle un vistazo previo?
Saludos

[jhonny]

Empezado por Caral

Ahora lo que no me explico es para que se necesita colocar la información primero en un memo y luego en el dbgrid y no de una vez?

Al principio me pregunte lo mismo pero me respondí solito... Quizá sea porque alguna persona exporta los códigos desde otra aplicación a txt y es ese txt el que el programa de nuestro compañero MikyVato debe leer y compararlo con la base de datos para guardar algún tipo de trazabilidad en los datos de manera pues que queden coherentes.

[[Lepe]]

El commaText del memo o un stringlist no sirve.

Queremos (según mi código) que la consulta quede así:

Código SQL [-]
select * from tabla where codigo in ('codigo1', 'codigo2', 'codigo3');

Si usamos commatext, quedaría así:

Código SQL [-]
select * from tabla where codigo in (codigo1, codigo2, codigo3);

es decir, falta encerrar cada elemento entre comillas simples. Además commaText tiene el horroroso fallo (creo recordar) de usar tambien el espacio como separador de cadenas, así que al tiempo de recuperar los datos destrozaría el invento con un campo que se llame [Nombre Cliente] y si, uso corchetes ya que Access lo permite así.

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;

EmptyStr es una constante, es idéntico a la asignación:

Código Delphi [-]
 filtro := '';

Pero el caso es que me gusta mucho el nombre de esa constante jejeje.

El Segundo no corre, me aparece un error de compilacion en la línea que dice:

En el código de jhonny el error es que falta un signo de "+" después de la palabra "filtro" (además del comentado adoquerrrrrry jeje).

Debe decir:

Código Delphi [-]
ADOQuerry.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo = ('+ filtro+')';

[jhonny]

Es gracioso como un codigo sencillo nos haga cometer tantos errorsillos de sintaxis

Empezado por Lepe

Debe decir:

Código Delphi [-]
ADOQuerry.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo = ('+ filtro+')';

Si te fijas bien en el codigo sql que acabas de colocar haz cometido tambien un errorsillo de sintaxis y es que en lugar de "=" debe ir "in" , y debe ser asi:

Código Delphi [-]
ADOQuerry.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo in ('+ filtro+')';

Y bueno aun asi podria seguir un error, en caso de que el ADQuerry en realidad si este mal escrito