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