RE:como crear un datawindows unico de paises
Hola !!!. te paso un codigo que tengo a mano
Defina una función que retorne un valor integer y que tenga los siguientes parametros:
string tabla_parm,
string columna_parm,
dropdownlistbox ddlb_parm,
string clausula_where
Esta funcion se usa por ejemplo para llenar un drop down list box con los códigos de una tabla. Suponiendo que la función la llamamos f_llenar_ddlb_desde_bd la función se llamaría así:
f_llenar_ddlb_desde_bd('tabla','columna',ddlb_allenar,'where condicion = 10'')
El codigo de la función sería el siguiente
ls_select_string = "SELECT DISTINCT " + columna_parm + " FROM " + tabla_parm + " " + clausula_where
PREPARE sqlsa FROM :ls_select_string;
DECLARE dyn_cursor DYNAMIC CURSOR FOR sqlsa;
OPEN DYNAMIC dyn_cursor;
if sqlca.sqlcode < 0 then
MessageBox("Error de Base de datos!", sqlca.sqlerrtext)
return sqlca.sqlcode
end if
ddlb_parm.SetRedraw(false)
ddlb_parm.Reset( )
Do While sqlca.sqlcode = 0
Fetch dyn_cursor into :ls_add_string;
if sqlca.sqlcode = 0 then
ddlb_parm.AddItem(ls_add_string)
elseif sqlca.sqlcode < 0 then
MessageBox("Error de Base de datos", sqlca.sqlerrtext)
return sqlca.sqlcode
else
exit
end if
Loop
ddlb_parm.SetRedraw(true)
Close dyn_cursor;
return 0
Saludos, espero que te sirva.