Anónimo
Cargar datos en ddlb
Estor realizando una dw login. En ella tengo un ddlb yb un sle
mi pregunta es como puedo cargar datos de una bd a un ddlb que corresponden a los usuarios registrados.
Despues ir guardando esos valores en una variable.
Tengo este código:
ls_username = UPPER(ddlb_username.Text)
ls_password = UPPER(sle_password.Text)
ls_location = MID(gs_term_loc,3,2)
li_row = 1
DO WHILE ((li_row <= dw_ul_ua_pwd.RowCount()) AND &
(ls_username <> dw_ul_ua_pwd.GetItemString(li_row,"c_user_id")))
li_row = li_row + 1
LOOP
Pero al momento de ejecutarlo en las variables no carga nada y el el DO WHILE me marca error y cierra todo.
Cabe mencionar que este código es en pb 3.o y estoy migrandolo a pb 11
mi pregunta es como puedo cargar datos de una bd a un ddlb que corresponden a los usuarios registrados.
Despues ir guardando esos valores en una variable.
Tengo este código:
ls_username = UPPER(ddlb_username.Text)
ls_password = UPPER(sle_password.Text)
ls_location = MID(gs_term_loc,3,2)
li_row = 1
DO WHILE ((li_row <= dw_ul_ua_pwd.RowCount()) AND &
(ls_username <> dw_ul_ua_pwd.GetItemString(li_row,"c_user_id")))
li_row = li_row + 1
LOOP
Pero al momento de ejecutarlo en las variables no carga nada y el el DO WHILE me marca error y cierra todo.
Cabe mencionar que este código es en pb 3.o y estoy migrandolo a pb 11
1 Respuesta
Respuesta de jasamo19
1
Para cargar los usuarios en un control DropDownListBox lo puedes hacer de la siguiente manera (Lee muy detenidamente):
Requisitos:
* Ventana llamado w_login.
* Control DropDownListBox llamado ddlb_usuario sobre ventana w_login.
* Un Control SingleLineEdit llamado sle_password sobre la ventana w_login.
* Dos CommandButton uno llamado Aceptar y otro llamado Cancelar sobre la ventana w_login.
1. Crea un Objeto DataWindow de tipo Grid de la Tabla Usuario, la cual se llamara dw_usuario.
2. Declara una variable global de tipo DataStore asi: DataStore ds_usuario.
3. En el evento Open() de la ventana w_login pones lo siguiente:
//Declaramos variables
integer li_n,li_t
string ls_nombre
//crea el objeto Datastore llamado ds_usuario
ds_usuario=create DataStore
//conecta la variable ds_usuario al objeto DataWindow dw_usuario que creaste.
ds_usuario.dataobject="dw_usuario"
ds_usuario.settransobject(sqlca)
ds_usuario.retrieve()
//Ordeno los usuarios, Ojo suponiendo que el login de usuario tenga el nombre de: nom_usuario, Ud. debe cambiar por la de su tabla.
ds_usuario.setsort("nom_usuario")
ds_usuario.sort()
//lleno y muestro los nombres de los usuarios en ddbl_usuario
li_n=ds_usuario.rowcount()
ddlb_usuario.reset()
for li_t=1 to li_n
ls_nombre=ds_usuario.getitemstring(li_t,"nom_usuario")
ddlb_usuario.additem(ls_nombre)
next
//destruyo el DataStore ds_usuario, para liberar la memoria.
destroy ds_usuario
/////////////////////////////////////////////////////////////////////////
*Solo te pongo el ejemplo de como llenar un control DropDownListBox.
Califica y Finaliza la Pregunta.
Suerte.
Requisitos:
* Ventana llamado w_login.
* Control DropDownListBox llamado ddlb_usuario sobre ventana w_login.
* Un Control SingleLineEdit llamado sle_password sobre la ventana w_login.
* Dos CommandButton uno llamado Aceptar y otro llamado Cancelar sobre la ventana w_login.
1. Crea un Objeto DataWindow de tipo Grid de la Tabla Usuario, la cual se llamara dw_usuario.
2. Declara una variable global de tipo DataStore asi: DataStore ds_usuario.
3. En el evento Open() de la ventana w_login pones lo siguiente:
//Declaramos variables
integer li_n,li_t
string ls_nombre
//crea el objeto Datastore llamado ds_usuario
ds_usuario=create DataStore
//conecta la variable ds_usuario al objeto DataWindow dw_usuario que creaste.
ds_usuario.dataobject="dw_usuario"
ds_usuario.settransobject(sqlca)
ds_usuario.retrieve()
//Ordeno los usuarios, Ojo suponiendo que el login de usuario tenga el nombre de: nom_usuario, Ud. debe cambiar por la de su tabla.
ds_usuario.setsort("nom_usuario")
ds_usuario.sort()
//lleno y muestro los nombres de los usuarios en ddbl_usuario
li_n=ds_usuario.rowcount()
ddlb_usuario.reset()
for li_t=1 to li_n
ls_nombre=ds_usuario.getitemstring(li_t,"nom_usuario")
ddlb_usuario.additem(ls_nombre)
next
//destruyo el DataStore ds_usuario, para liberar la memoria.
destroy ds_usuario
/////////////////////////////////////////////////////////////////////////
*Solo te pongo el ejemplo de como llenar un control DropDownListBox.
Califica y Finaliza la Pregunta.
Suerte.