Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-04-2008
aanil aanil is offline
Miembro
 
Registrado: abr 2006
Posts: 155
Poder: 19
aanil Va por buen camino
Consultas y/o filtrados multiples

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.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Contar registros filtrados con TDbf userlazarus Conexión con bases de datos 5 28-10-2015 10:02:21
Imprimir datos filtrados de un cxgrid DANY OOP 7 19-06-2014 17:16:01
Consultas Múltiples theloren07 Conexión con bases de datos 11 12-07-2007 15:24:32
como mostrar consultas multiples en un dbgrid?? yo_coco_py SQL 6 27-01-2007 13:00:31
Conocer el tamaño de los datos filtrados en delphi royrogers84 Firebird e Interbase 1 18-11-2006 22:14:26


La franja horaria es GMT +2. Ahora son las 09:47:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi