Consultas y/o filtrados multiples

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

[[Lepe]]

Como has visto tuve que irme repentinamente, así que solo mostré un esbozo de lo que tenía en mente.

En el mensaje nº 6 de este hilo tienes algo que igual te sirve, o por lo menos te ayuda un poco.

Se trata de un TStringlist mejorado para crear sqls al vuelo, así te olvidas un poco de los espacios en blanco, de si debe llevar el where o no, etc. "Te permite concentrarte un poco más en tu programa olvidándote de la sintaxis del SQL".

Como verás, no es nada del otro mundo.

Saludos

[aanil]

Observa mi pantalla para que te de una idea.

[aanil]

Hola

Mamu o Lepe

Esta es parta de mi form para que tenga una idea