como lleno un DBLookupComboBox

[MOCOSO07]

hola buen dia compañeros!!

quiero hacer lo siguiente pero me fuciona quiero ver si me pueden ayudar

tengo una tabla de areas academicas y una de planes de estudios y su firebird y delphi 5

tengo un DBLookupComboBox y un combobox dependiendo del plan de estudios(solo hay dos 2007 y BIS 37) que seleccione en el combo quiero que me mande solo las areas que pertenecen a ese plan espero y me de a entender(las areas academicas del plan 2007 si id es de 4 caracteres y las del bis 37 son de tres)

gracias por su atencion el codigo es el siguiente

Código Delphi [-]
if cmb_plan.Text = '2007' then
  begin
    frm_DataModule.qry_Area_Academica.close;
    frm_DataModule.qry_Area_Academica.SQL.Clear;
    frm_DataModule.qry_Area_Academica.SQL.Add('select *');
    frm_DataModule.qry_Area_Academica.SQL.Add('FROM AREA_ACADEMICA');
    frm_DataModule.qry_Area_Academica.SQL.Text;
    frm_DataModule.qry_Area_Academica.FetchAll;
    frm_DataModule.qry_Area_Academica.Open;

    while not  frm_DataModule.qry_Area_Academica.Eof do
    begin
      cuatro := Length(trim(frm_DataModule.qry_Area_Academica.Fields[0].AsString));
      if cuatro = 4 then
      begin
      DBLookupComboBox6.KeyValue := frm_DataModule.qry_Area_Academica.Fields[0].AsString;
      end;
      frm_DataModule.qry_Area_Academica.Next;
    end;
     end
     else
     begin
     end;

una ves mas muchas gracias

[[coso]]

Hola, lo podrias poner en la misma sentencia sql

Código SQL [-]
'select * from AREA_ACADEMICA where length(CAMPO) = 4'

[[enecumene]]

Hola, A ver si entendí, ¿quieres hacer algo dinámicamente? ¿al seleccionar un dblookupcombobox te rellene en el combobox lo relacionado?.

Saludos.

[*Caro*]

Hola MOCOSO07, también puedes hacerlo utilizando dos DBLookComboBox y una relación maestro detalle, donde el query que hara de maestro sería donde hagas el select de planes de estudio y en el detalle el select de las areas academicas, revisa este hilo, ahí explico como se hace una relación maestro detalle http://www.clubdelphi.com/foros/showthread.php?t=54043

Saluditos

[MOCOSO07]

hola buen dia ya hice lo que queria me fue de gran ayuda utilice las relaciones maestro detalle y fue tdo un exito muchisimas gracias