Consultas y/o filtrados multiples

[aanil]

Saludos a todos.
Quiero una orientación para lo siguiente.

La historia es que tengo una tabla que tiene varios campos (Escuela, Estudiante, Asignatura, Grado, Sección…..)

Bueno aplico esta consulta:

Seleccione todo de la tabla Centro_Educaltivo.
Donde escuela = “nombre de la escuela”
Ejecute.

// Esto hasta aquí funciona correctamente///

Ahora bien.

De las escuelas anteriormente consultadas, quiero que me filtren los estudiantes que estén cursando matemática del grado X, de la sección Y, pero que también yo puede elegir los que estudian matemática y español, o lo que estudian español y ciencias,
Consultar los estudiantes que estudian matemática y ciencias del grado () y sección ()

Yo estaba haciendo esto utilizando varios checkbox


Grupobox : Asignatura
Español () Matemática () Ciencias ()


Grupobox : Grados
Primero () Segundo () Tercero () Cuarto ()

Grupobox: Secciones

A () B () C()


Muestra del codigo

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
If COMBOBOX1.Text = NOMBRE DEL DISTRITO then begin
DM.ADOQuery1.Close;
DM.ADOQuery1.SQL.Clear;
DM.ADOQuery1.SQL.Add('SELECT * FROM CENTROSEDUC');
DM.ADOQuery1.SQL.Add('Where ESCUELA ='+Quotedstr('EDIT1.TEXT'));
dm.ADOQuery1.Open;
end else

Luego usando Checkbox

begin
If (checkbox1.checked) then begin
Dm. Adoquery1.filter := ‘ asignatura =’ +Quotedster(‘Espanol’));
Dm. Adoquery1.filtered: = true;
End else

Begin
Dm. Adoquery1.filtered: = false;
End,

// Hasta aquí voy bien , luego cuando escribo el siguiente código, ya comienzan los problemas…

If (checkbox2.checked) then begin
Dm. Adoquery1.filter := ‘ grado =’ +Quotedster(‘primero’));
Dm. Adoquery1.filtered: = true;
End else

Begin
Dm. Adoquery1.filtered: = false;
End,


Esto lo he hecho de varias formas y no me sale. Esperando me ayuden.

[MaMu]

hola aanil, porque usar filtro? cuando podes hacerlo directamente en una consulta, para eso estas usando los combobox con diferentes parametros que puede incluir en la clausula where.
Asi como estan los filtros, o es uno, o es el otro, para que tome los dos, ambos deben ser un unico filtro. Esto tiene una desventaja, ya que si tenes 1000 registros, el filtro se aplica sobre la lectura de los 1000 registros, en cambio en una sola consulta podes devolver los registros que estas buscando y tal ves sean solo 3. Yo te recomiendo que las consultas, cuando sean asi con muchas variables, que las implementes como parametros.

Saludos

[aanil]

Gracia MaMu


Lo voy a intentar o probar luego te contesto o te planteo si hay error

[aanil]

Hola MaMu, no me ha funcionado te presento parte del codigo de la aplicacion que estoy haciendo.


procedure TForm2.ComboBox1Change(Sender: TObject);
begin
With dm.ADOQuery1 do begin
If COMBOBOX1.Text = '07 - 01, TENARES' then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where Distrito ='+Quotedstr('0701')); // selecciona todas las escuelas de ese distrito
Open;
end else

If COMBOBOX1.Text = '07 - 02, SALCEDO' then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where Distrito ='+Quotedstr('0702'));
Open;
end else

If COMBOBOX1.Text = '07 - 03, CASTILLO' then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where Distrito ='+Quotedstr('0703'));
Open;
end else

If COMBOBOX1.Text = '07 - 04, VILLA RIVA' then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where Distrito ='+Quotedstr('0704'));
Open;
end else

If COMBOBOX1.Text = '07 - 05, SAN FRANCISCO DE MACORIS' then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where Distrito ='+Quotedstr('0705'));
Open;
end else

If COMBOBOX1.Text = '07 - 06, SAN FRANCISCO DE MACORIS' then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where Distrito ='+Quotedstr('0706'));
Open;
end else

If COMBOBOX1.Text = '07 - 07, VILLA TAPIA' then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where Distrito ='+Quotedstr('0707'));
Open;
end else

If COMBOBOX1.Text = 'Todos los Distritos' then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
Open;
end;
end;
end;


procedure TForm2.GroupBox1Click(Sender: TObject);
begin
with dm.ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where SECTOR ='+Quotedstr('publico'));
Open;

if (checkbox2.Checked) then begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where SECTOR ='+Quotedstr('PRIVADO')); //aqui selecciona las escuelas privadas del distrito seleccionado
Open;
end else
if (checkbox3.Checked) then begin // aqui selecciona las escuelas del distrito privadas con nivel IB
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CENTROSEDUC');
SQL.Add('Where nivel ='+Quotedstr('IB')); // aqui nivel se trata si es Inicial y Basico
Open;
end else
end;
end;
end.

Ahora bien, se da el caso de que quiero consultar las escuelas de un distrito que que sean del sector publico, que sean de nivel medio y su tanda sea matutina.

Pero tambien quiero consultar las escuelas de un distrito diferente al anterior que sean del sector publico, que sean del nivel IB, y que funcionan en la tanda vespertina.

AHORA quiero consultar otro distrito donde escuelas pertenecen al sector privado, que funcionan en la mañana, y que son del nivel incial y que su zona es urbana.

Eso es mas o menos la idea. ( con el codigo anterior solo funciona la primera parte) cuando aplico la segunda parte ya comienza a no funcionar como yo quiero.

[[Lepe]]

Usa las etiquetas vb por favor.

Código Delphi [-]
var code:string;
begin 
With dm.ADOQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM CENTROSEDUC');

  If COMBOBOX1.Text <> 'Todos los Distritos' then 
  begin
     code := copy(combobox1.text, 1,2) + copy(combobox1.text, 6,2);
    sql.Add(' where Distrito ='+Quotedstr(code));

  end;
  Open;
end;
end;

vaya, tengo que irme.

[aanil]

Gracias Lepe

El codigo que me presenta esta bien, el mio es largo y funciona tambien, el problema no es ese, sino que como hago la segunda parte, o sea donde comienzan los checkbox, ya que cuando uso ese elemento para filtrar otros campos despues de haber consultado un distrito ( fijate que explico al termino, es que tengo varias combinaciones) Distrito por sector y por grado y por zona y por nivel. Con la combinacion de si es publico o privado de si es zona rural o urbana, de si es nivel incial basico o nivel medio o nivel basico solo, si la tanda es matutina, vespertina o nocturna.

Pues esa es la combinacion de elementos despues de filtrar por distrito en el comobobox.

Le he dado mucha vuelta de mi poble biblioteca no encuentro ningun ejemplo que se pueda adaptar.

Sigo en espera.