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.

Estoy protegiendo un software para lo cual necesito obtener el id único del cpu de la máquina que lo utilizará, para esto desarrollé esta pequeña función:

Solución:

Imports System.Management

Private Sub obtener_id()
Dim objMOS As ManagementObjectSearcher

Dim objMOC As Management.ManagementObjectCollection

Dim objMO As Management.ManagementObject

objMOS = New ManagementObjectSearcher(“Select * From Win32_Processor”)

objMOC = objMOS.Get

For Each objMO In objMOC

lbl_id.Text = objMO(“ProcessorID”)

Next

objMOS.Dispose()

objMOS = Nothing

objMO.Dispose()

objMO = Nothing
End Sub

Al utilizar la salida de MySql para generar un reporte me topé con el problema de formatear un la data que venia de los campos tipo datetime.

La manara más fácil que encontré sin tener que utilizar funciones internas en mi programa fue utilizando la función date_format y aplicarla directamente al select que estaba ejecuntado.

Ejemplo:

La sentencia select date_format(poli_fecha_inicio, ‘%d/%m/%Y’) from polizas

debe devolverme 28/11/2009 por ejemplo

Para mas formatos visita este link

En una aplicación para corredores de seguros debe verificar en cada “nueva versión” la estructura de la base de datos para que esta sea exactamente igual a la final.

Para esto utilizo la siguiente sentencia al igual que un select:

show tables

Este simple comando me permite realizar incluso consultas filtradas como

show tables where Tables_in_mibasededatos = ‘usuarios’

Después de muchas horas de búsqueda logré encontrar un programa que me permitiera convertir un archivo html o un sitio web a PDF de una manera fácil, rápida y lo mejor sin costo.

Encontré una herramienta llamada wkhtmltopdf que la puedes bajar aqui.

Esta es la forma en que la implementé utilizando vb.net 2008 declaré una variable tipo system.xml.linq.xelement de la siguiente forma

Dim archivo_html = <html><body>ejemplo</body></html>

Luego salvo el archivo en la carpeta donde está corriendo la aplicación

archivo_html.Save(Application.StartupPath & “\test.html”)

Y por ultimo con un shell llama la aplicación para que haga su trabajo.

Shell(Application.StartupPath & “\wkhtmltopdf test.html test.pdf”)

El proceso es limpio y sin complicaciones.