Consulta sobre el listbox

[herodes]

Hola a todos, les comento cual es mi problema, yo quisiera mostrar en una grilla todos los campos de una base pero aplicandole un filtro, este filtro (Ej: de una tabla con nombres y apellidos que me muestre todas las lineas que tengan los apellidos Gonzales y Lopez) lo quisiera poner mediante un listbox , osea tomar los valores que coloco en este componente.
Esto seria mediante la accion click de un boton.
Les agradeceria toda la ayuda que me puedan brindar.

Gracias

Herodes

[marcoszorrilla]

Supongo que quieres decir Gonzalez y López.

Según parece apellidos es un solo campo que contiene los dos apellidos, por lo tanto un filtro no sería apropiado.

Tendrás que armar una consulta SQL contra la tabla.

Código SQL [-]
 Select *
 From MiTabla
 Where Apellidos Like %Variable% or Apellidos Like %Variable%

En donde he puesto variable iría el contenido del control en el que se hallen los apellidos elegidos, por ejemplo si fuera un Edit.

'Like %'+QuotedStr(Edit1.Text)+'%'

Un Saludo.

[herodes]

Gracias por la ayuda, pero no era eso exactamente lo que necesitaba seguramente me exprese mal.
Lo que yo quisiera es tomar varios valores de un listbox para ingresarlos en forma dinamica en un consulta SQL. Osea tomar todo lo que coloque en el listbox para que me conforme el where de la consulta.. seria algo asi

Select * from nombre_tabla where Columna in (listbox) o columna like (listbox)

en donde listbox son todos los items que componen dicho objeto , esto es lo que no se hacer mediante el click de un boton.

nuevamente muchas gracias.

Herodes

[roman]

Código Delphi [-]
var
  Valor: String;

begin
  Query.Sql.Text := 'select * from nombre_tabla where Columna like :valor';
  Valor := ListBox.Items[ListBox.ItemIndex];
  Query.ParamByName('valor').AsString := '%' + Valor +'%';
  Query.Open;
end;

// Saludos

[roman]

No, no, disculpa, ya te entendí: quieres incluir todos los elementos del listbox en la misma consulta. En ese caso te puede servir esto:

Código Delphi [-]
const
  fmtWhere = '(Columna like "%%%s%%")';

var
  Where: String;
  I: Integer;

begin
  Query1.SQL.Text := 'select * from nombre_tabla'#13;

  Where := '';
  for I := 0 to ListBox1.Count - 1 do
    if Where = ''
      then Where := Format(fmtWhere,[ListBox1.Items[i]])
      else Where := Where + ' or ' + Format(fmtWhere,[ListBox1.Items[i]]);

  if Where <> '' then
    Query1.SQL.Text := Query1.SQL.Text + 'where ' + Where;
end;

Si el ListBox contiene

González
López
Pérez

la consulta quedará así:

Código SQL [-]
select * from nombre_tabla
where (columna like "%González%") or (columna like "%López%") or (columna like "%Pérez%")

// Saludos

[herodes]

Muchas gracias, eso es lo que estaba necesitando.

Me interpretaste bien lo que pedia.
Ahora lo pondre en funcionamiento.

Saludos