busqueda de datos en SQL con TMEMO

[warrior79]

que tal a todos,quiesiera ver si alguien tiene una idea sobre un problema que tengo
Tengo en mi forma un TMEMO,adoquery,DBGrid y un boton quisiera poner varios nombres en el TMEMO y despues presionar el boton que execute el query buscando la informacion en una tabla llamada empleados.
Si puedo hacerlo si solo meto un solo nombre en el TMEMO el problema es como puedo hacer que poniendo varios nombres que todos esos nombres los busque en la tabla talvez usando el SELECT IN, algun ejemplo que tenga se los agradeceria

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

Deberías "montar" la consulta dependiendo de los nombres que ponbgas en el memo. O un OR o si son muchos, como tú dices un IN puede ser más cómodo.

Código SQL [-]
SELECT * FROM EMPLEADOS
WHERE (nombre=:nombre1) or (nombre=:nombre2) or ...

Código SQL [-]
SELECT * FROM EMPLEADOS
WHERE nombre IN (:nombre1, :nombre2, ...)

Las 2 formas son válidas; Aquí se usan parámetros también puedes colocar las cadeas directamente.

¿Puedes afinar más diciéndonos qué es lo que no tienes claro?
¿Sacar los nombres del memo?
¿Montar la sentencia?
¿la sintaxis?
...

Prueba a hacerlo y si tienes problemas ya nos dirás...

[warrior79]

Gracias por tu propuesta Neftali de hecho si habia pensado en eso
ahorita tengo este codigo

Código Delphi [-]
procedure Tfrminfo.BitBtn1Click(Sender: TObject);
begin
  qryinfo.Close;
  qryinfo.parameters.ParamByName('begin').Value:=TRIM(Memo1.Text);
  qryinfo.Open;
end;
procedure Tfrminfo.BitBtn2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
   memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

En el MEMO1.text si solo pongo una informacion asi:
YMN1016120001
si me lo busca en sql pero yo quisiera que el en MEMO1.text pusiera varios registros
YMN1016120001
YMN1016120002
YMN1016120003
YMN1016120004
YMN1016120005

yo quisiera que todos esos registros my query los buscara a todos, pero no se como en delphi hacer leer uno por uno.

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

Te lo pongo de memoria (quiero decir que lo he hecho directamente sobre el editor, no lo he compilado, así que si hay algun error ya dirás...)

Código Delphi [-]

var
    i:integer;
    StrSQL:string;
    StrNames: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]);

Si los nombres en el memo son:

YMN1016120001
YMN1016120002
YMN1016120003
YMN1016120004
YMN1016120005

La SQL (si no me he dejado nada) debería quedar algo así:

Código SQL [-]
SELECT * FROM EMPLEADOS WHERE Nombre IN ('YMN1016120001','YMN1016120002','YMN1016120003','YMN1016120004','YMN1016120005')

[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.