Consulta sobre el listbox

[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