Ver Mensaje Individual
  #3  
Antiguo 30-10-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Reputación: 24
ContraVeneno Va por buen camino
Para empezar, no tenías la cláusula "FROM" y tienes un laberinto con los joins que no logro entender perfectamente.

Código Delphi [-]
  
with frm_DataModule.qry_listDocentes do begin 
 Close;  
 SQL.Clear;
 SQL.Add('SELECT A.MATRICULA, C.ID_PERIODO, A.NOMBRE_ALUM, A.APELLIDOP, A.APELLIDOM,');
 SQL.Add('ACA.ID_AREA, ACA.NOMBRE_AREA, C.M01, M.ID_MATERIA, M.NOMBRE_MATERIA, ');
 SQL.Add('CT.ID_CT, CT.NOMBRE_CT, D.NOMBRE_MA, D.APELLIDOP_MA, D.APELLIDOM_MA'); 
 SQL.Add('FROM AREA_ACADEMICA ACA, CT, ');
 SQL.Add('ALU_MAT INNER JOIN ALUMNO A ON ALU_MAT.MATRICULA =   A.MATRICULA ');
 SQL.Add('INNER JOIN CALIFICACION C ON ALU_MAT.MATRICULA = C.MATRICULA, ');
 SQL:Add('MATERIA M INNER JOIN DOCENTES D ON M.ID_MATERIA = D.ID_MATERIA');
 SQL.Add('WHERE C.ID_PERIODO ='+QuotedStr(VarToStr(cmb_periodo.KeyValue)));
 SQL.Add('AND ACA.ID_AREA ='+QuotedStr(VarToStr(cmb_aA.KeyValue)));  
 SQL.Add('AND M.ID_MATERIA ='+QuotedStr(VarToStr(cmb_materia.KeyValue))
 SQL.Add('AND D.ID_MATERIA ='+QuotedStr(VarToStr(cmb_materia.KeyValue))); 
 Open;
 FetchAll;
end; //with
__________________


Última edición por ContraVeneno fecha: 30-10-2007 a las 17:52:16.
Responder Con Cita