SoloCodigo

Que tal Harol..

No me queda muy claro deseas agregar los campos o los registros de una bd al ddlb?...

Si lo que deseas es enviar los registros a un ddlb, te recomiendo que uses un ciclo do whilw o un do loop o un for next combinado con la lectura de una datawindow, basicamente lo que harias es leer el contenido de cada registro de la dw ponerlo en una variable temporal y depositarlo en la ddlb con la funcion additem.

Mira yo utilizo esto para cargar una tabla de ciudades en un ddlb, pero como necesito la informacion de varios campos, lo que hago es poner la informacion que desplegare al incio de la cadena e inserto espacios suficientes para que el resto de la info no aparezca para el usuario,  le doy un formato especifico a la cadena que contiene le resto de la info y ais es como la puedo leer y sacar los diferentes datos que necesito.

Ejemplo.

// poblar combo con las plazas
  ll_rows = w_boletines.tab_1.tabpage_ivr.dw_plazas_stp.RowCount()
  m = 0
  for l = 1 to ll_rows
    m++
    ls_cod_plz =
      w_boletines.tab_1.tabpage_ivr.dw_plazas_stp.getitemstring(m,"descripcion")+"
      "+&
      w_boletines.tab_1.tabpage_ivr.dw_plazas_stp.getitemstring(m,"location")+&
      w_boletines.tab_1.tabpage_ivr.dw_plazas_stp.getitemstring(m,"plaza")+&
      w_boletines.tab_1.tabpage_ivr.dw_plazas_stp.getitemstring(m,"mtx")
      ddplb_plazas.additem(ls_cod_plz)
   next

   // poblar combo con los modelos
  //**********************************
  ll_rows = dw_modelos.RowCount()
    m = 0
    for l = 1 to ll_rows
        m++
         ls_modelo   = trim(dw_modelos.getitemstring(m,"marcas_marca_des"))+"
         "+&
          trim(dw_modelos.getitemstring(m,"mode_des"))+"
          "+&
          dw_modelos.getitemstring(m,"mode_id")
         ddplb_modelo.additem(ls_modelo)
    next


espero te sirva de algo

Saludos

 

Hola! el siguiente codigo podria ayudarte, solo debes saber el nombre de la tabla en la cual se guarda las definiciones de las tablas y columnas; para Oracle es Cols.

String v_col
Int po
Declare v_columna Cursor For
   Select column_name
   From cols
   Where table_name = 'USUARIOS'
   Order By column_name;
   Open v_columna;
   If sqlca.sqlcode < 0 then
      Messagebox('Error - Open Cursor v_columna ',"Ha ocurrido un error")
   end if
   Do While sqlca.sqlcode = 0
      fetch v_columna
      into :v_col;
      If Sqlca.Sqlcode = 0 Then
            ddlb_col.additem(v_col)   
      ElseIf sqlca.sqlcode < 0 Then
         messagebox('Error - Fetch Cursor v_columna',"Ha ocurrido un error")
      Else
         Exit
      End If
   Loop
Close v_columna;

Espero que te sirva... suerte!

Puedes hacerlo con un dropdowdatwindow, que pero le pones a eso ?