En el evento que se necesite saber que opciones multiples selecciona un usuario en un listbox debemos hacer lo siguiente:
Solución:
‘Nuestro listbox se llam lst_test
Dim tp As DataRowView
For Each tp In lst_test.SelectedItems
MsgBox(tp.Row(1).ToString)
Next
Row(1) nos devuelve el displaymember
Row(0) nos devuelve el valuemember.
Soy dueño y administrador de un sitio de la loteria de Panamá en la que muestro las estadísticas de los números que juegan a lo largo de dos décadas. Me toco mostrar cuanto tiempo tiene x número de haber jugado desde la última vez que salió.
La solución:
<?
//obtengo la primera fecha de la base de datos
$fechas = mysql_result($rs_avg,$z,’fecha’);
//la convierto a fecha unix
$fecha_nueva = mktime(0,0,0,substr($fechas, 4,2), substr($fechas,-2), substr($fechas,0,4));
//la segunda fecha
$fechas = mysql_result($rs_avg,$z,’fecha’);
$fecha_vieja = mktime(0,0,0,substr($fechas, 4,2), substr($fechas,-2), substr($fechas,0,4));
//calculo la diferencia
$diferencia = $fecha_nueva-$fecha_vieja;
//si la quiero en días /(60*60*24)
$dias = floor($diferencia/(60*60*24));
?>
En mi trabajo rutinario debo verificar que no me llegue información de un cliente que no esté registrada en el maestro de clientes para lo cual realicé una consulta en sql server que era así:
select count(*) , clie_id from registros
where clie_id not in (select cod_cliente from clientes)
group by clie_id
Me funcionaba bien hasta que un día me percate que no me estaba mostrando bien la información por lo que supuse que existe un límite en la cantidad de elementos que se pueden contener dentro de in()
La solución (y más eficiente) es:
select cant, clie_id from
(
select count(*) cant, clie_id, cod_cliente from registros a
left outer join clientes b on a.clie_id=b.cod_cliente
group by clie_id, cod_cliente
) x
where cod_cliente is null
Estoy creando una empresa para el desarrollo de aplicaciones llamada l3panama por lo que he registrado el dominio y procedido a crear las cuentas de correo correspondientes.
El problema surge en que deseo poder manejar mis emails personales y de la empresa desde un sólo lugar sin tener que usar outlook.
La solución
Encontre que desde mi cuenta de gmail puedo realizar el proceso de obtener mis emails de cualquier cuenta pop3 (abilitada)
Para esto debemos:
Me toco desarrollar una aplicación de intranet que maneja información por cada días de la semana. Para esto diseñe textbox que tenian un ID secuencial como este i_dia_1_cdr, i_dia_2_cdr, etc.
El problema surgio porque no quería tener que manualmente escribir el nombre de cada uno por lo que opte por meterlo en un ciclo y localizar cada control.
Solución:
Dim rbvalue, rkvalue As TextBox
dim valor as string
‘declaro una variable para contener el control
for x=1 to 7 ‘cada dia de la semana
rbvalue = CType(Me.Panel1.FindControl(“i_dia_” & x & “_rb”), TextBox)
rkvalue = CType(Me.Panel1.FindControl(“i_dia_” & x & “_rk”), TextBox)
‘ahora puedo usar la variable como si fuera un textbox
valor = rbvalue.Text
next
‘busco el control y lo asigno a la variable
‘es importante incluir cualquier contenedor o control que tenga dentro (panel1 por ejemplo).
Esta pequeña función te permite obtener el valor de un campo de una tabla x.
Function obtener_valor_sql(ByVal sql As String) As String
Dim cnn As New SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand
Dim dt As New DataTable
cnn = cn.conectar_sqlserver
dt = obtener_datasource_sql(sql)
If dt.Rows.Count > 0 Then
cnn.Close()
cnn.Dispose()
cnn = Nothing
Return dt.Rows(0).Item(0).ToString
Else
cnn.Close()
cnn.Dispose()
cnn = Nothing
Return “”
End If
End Function
Un amigo estaba en un dilema en que necesitaba mostrar en asp.net los días de la semana en una columna de una tabla. Pero esto debia obtenerse de una base de datos que sólo guarda el primer día de cada semana.
Solución:
Le diseñe esta función que obtiene el valor de la base de datos
Function obtener_dia(ByVal id_semana As Integer, ByVal dia As Int16) As String
Dim qsql As String
Dim fecha As Date
Dim rfecha As String
qsql = “select pase_fecha_inicio from par_semanas where pase_id=’” & id_semana & “‘”
fecha = obtener_valor_sql(qsql)
rfecha = fecha.AddDays(dia – 1).ToString(“dd/MMM/yyy”)
Return rfecha
End Function
El hace el llamado para cada día desde el asp utilizando <%= obtener_dia(id, dia)
Si estas pensando en reubicarte en Panama te recomiendo este sitio <a href=”http://www.doomos.com.pa/sp/venta_casas_veraguas.html” target=”_blank” title=”Venta Casas en Veraguas”>Venta Casas en Veraguas</a>. Podrás encontrar soluciones para tu estadía.
Dunderio.com ha solicitado ingresar al siguiente directorio Directorio de blogs. La sección que elegí tiene un pr de 2 lo que es muy interesante para nosotros que estamos comenzando.
He encontrado este sitio vuelos iberia que te permite buscar y cotizar los vuelos y destinos de tu preferencia.