busqueda de datos en SQL con TMEMO

[warrior79]

ok cuando lo corry me salian unos errors en la variable Strname porque no estaba declarada pero se lo agregue y me quedo asi

Código Delphi [-]
procedure Tfrminfo.BitBtn1Click(Sender: TObject);
Var
    i:integer;
    StrSQL:string;
    StrNames:string;
    StrName:string
begin
    // Preparamos la sentencia
    StrSQL := 'SELECT * FROM EMPLEADOS WHERE Nombre IN (%s)';
 // recorremos el memo con todos los nombres
    for i := 0 to (Memo1.Lines.Count - 1) do begin
        // le añadimos la coma si hace falta
        if (i > 0) then begin
            StrName := StrNames + ',';
        end;
        // nombre
        StrName := StrNames + QuotedStr(Memo1.Lines[i]);
    end;
    StrSQL := Format(StrSQL,[StrNames]);
end;

y ya no me salio error
Pero no me salio nada en mi DBGRID
como mando el resultado del query al DBGRID

gracias

[rgstuamigo]

Haber que tal así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
   qryinfo.Close;
   qryinfo.SQL.Clear;
   qryinfo.SQL.Add('SELECT * FROM EMPLEADOS WHERE Nombre IN ');
   qryinfo.SQL.Add('(');
   for  i:=0  to Memo1.Lines.Count - 1 do
   begin
    qryinfo.SQL.Add(QuotedStr(Memo1.Lines[i]));
    if i<>Memo1.Lines.Count - 1 then
     qryinfo.SQL.Add(',');
   end;
   qryinfo.SQL.Add(')');
   qryinfo.Open;
end;

Saludos...

[warrior79]

Exceletente muchas gracias funciono

[Neftali [Germán.Estévez]]

Empezado por warrior79

Pero no me salio nada en mi DBGRID
como mando el resultado del query al DBGRID

Bueno, se trataba de acabar asignando esa variable al Query y realizar el Open.