filtrar por combobox
 

hola amigos, tengo un problema..estoy trabajando en una base de datos en access donde tengo cargado una serie de alumnos con sus respectivos sexos M (masculino) F (femenino) lo qui quiero hacer yo es que a traves de un combo box, donde voy a tener masculino y femenino me filtre (segun lo que yo presione) por masculino o femenino.

Hola jose_am.

Suponiendo el ComboBox tiene los Items:
Masculino
Femenino

Sería:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  DataSet.Filtered:= False;
  DataSet.Filter:= 'SEXO = '+QuotedStr(ComboBox1.Text[1]);
  DataSet.Filtered:= True;
end;

Donde 'SEXO' sería el nombre del campo que utilices para almacenar 'F' o 'M'.


Saludos.

Funciono perfecto!,muchas gracias!, ahora sacame esta duda..que hiciste o que sinifica esta paso? QuotedStr(ComboBox1.Text[1])

Hola.

La función QuotedStr devuelve la cadena de caracteres enviada en el argumento, encerrada entre comillas simples.

Por ejemplo:

Código Delphi [-]
  ShowMessage('casa');

Muestra: casa

En cambio:

Código Delphi [-]
  ShowMessage(QuotedStr('casa'));

Muestra: 'casa'

En cuanto a ComboBox1.Text[1], hago referencia al primer caracter del item seleccionado, que en este caso será: Femenino o Masculino

Saludos.

perfectoo!, muchas gracias y saludos!

se me complico con otra cosa..tengo que hacer lo mismo pero con un campo booleano..osea tengo la regularidad del alumno por true o false..hago lo mismo que me dijoste pero me da un error que no lo puedo hacer porque es un campo booleano.. se ve que no debe ser igual.

Hola jose.

Te pongo dos ejemplos de como podrías hacerlo.

Con un ComboBox, cuyos items sean:
Irregular
Regular

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  DataSet.Filtered:= False;
  DataSet.Filter:= 'Condicion = '+ IntToStr(ComboBox1.ItemIndex);
  DataSet.Filtered:= True;
end;

Aquí es importante que el alumno no-regular esté en primera posición. Ya que la posición del ítem, mediante la propiedad ItemIndex, es la que dictamina el valor Verdadero/Falso (0=Falso / 1= Verdadero)

Con un CheckBox cuyo caption sea Regular, donde chequeado = regular, en blanco = irregular:

Código Delphi [-]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  DataSet.Filtered:= False;
  DataSet.Filter:= 'Condicion = '+ IntToStr(Integer(CheckBox1.Checked));
  DataSet.Filtered:= True;
end;

Saludos.