Ver Mensaje Individual
  #3  
Antiguo 29-01-2007
fidel fidel is offline
Miembro
 
Registrado: mar 2005
Posts: 381
Reputación: 20
fidel Va por buen camino
Hola:

Funciona perfectamente de la manera que me indicas. Me queda así.
Código Delphi [-]
  DM.IBDSAlumnos.Close;

  DM.IBDSAlumnos.SelectSQL.Clear;
  DM.IBDSAlumnos.SelectSQL.Add('select * from ALUMNOS');
  if cbNivel.itemIndex=0 then
    DM.IBDSAlumnos.SelectSQL.Add(' where NIVEL like ''%%''')
  else
    DM.IBDSAlumnos.SelectSQL.Add(' where NIVEL=:QUENIVEL');
  if cbGrupo.itemIndex=0 then
    DM.IBDSAlumnos.SelectSQL.Add(' and GRUPO like ''%%''')
  else
    DM.IBDSAlumnos.SelectSQL.Add(' and GRUPO=:QUEGRUPO');
  if cbEtapa.itemIndex=0 then
    DM.IBDSAlumnos.SelectSQL.Add(' and ETAPA like ''%%''')
  else
    DM.IBDSAlumnos.SelectSQL.Add(' and ETAPA=:QUEETAPA');

  if cbNivel.itemIndex>0 then
    DM.IBDSAlumnos.ParamByName('QUENIVEL').AsString := CBNivel.Text;
  if cbGrupo.itemIndex>0 then
    DM.IBDSAlumnos.ParamByName('QUEGRUPO').AsString := CBGrupo.Text;
  if cbEtapa.itemIndex>0 then
    DM.IBDSAlumnos.ParamByName('QUEETAPA').AsString := CBEtapa.Text;

  DM.IBDSAlumnos.Open;

Muchas gracias.

Un saludo.
Responder Con Cita