Ayuda con tus Tareas

Escribir datos de un OleDbDataReader a un archivo de texto

Mr. FotoPex — Wed, 10 Mar 2010 23:46:01 +0000

OleDbDataReader proporciona el modo de lectura de una secuencia de filas de datos de tipo sólo avance de un origen de datos. Esta clase no se puede heredar.

Para crear OleDbDataReader, se debe llamar al método ExecuteReader del objeto OleDbCommand, en lugar de utilizar directamente un constructor.

Mientras se está utilizando OleDbDataReader, el objeto OleDbConnection asociado está ocupado dando servicio a OleDbDataReader, y en OleDbConnection no se puede realizar ninguna otra operación, excepto la de cerrar. Esto es así hasta que se llama al método Close de OleDbDataReader. Por ejemplo, no se pueden recuperar parámetros de salida hasta después de llamar a Close.

Los cambios que realiza otro proceso o subproceso en un conjunto de resultados mientras se leen los datos, pueden ser visibles para el usuario de OleDbDataReader. Sin embargo, el comportamiento exacto depende de los intervalos de tiempo.

IsClosed y RecordsAffected son las únicas propiedades a las que se puede llamar después de cerrarse OleDbDataReader. Si bien se puede obtener acceso a la propiedad RecordsAffected mientras exista OleDbDataReader, se debe llamar siempre al método Close antes de devolver el valor de RecordsAffected para garantizar que el valor devuelto sea exacto.

En el siguiente ejemplo se crean OleDbConnection, OleDbCommand y OleDbDataReader. En el ejemplo se leen los datos y se escriben en la consola. Por último, en el ejemplo se cierra OleDbDataReader y, a continuación, OleDbConnection.

Texto Plano

VB.NET:

Public Sub ReadData()
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\FotoPex\FpTimer\data\data.mdb"
Dim queryString As String = "SELECT usuario, Format(entrada, 'hh:mm:ss') as Entrada, Format(salida, 'hh:mm:ss') as Salida FROM(bitacora) WHERE (((fecha)=#03/04/2010#)) Order by id DESC ;"
Using connection As New OleDbConnection(connectionString)
Dim command As New OleDbCommand(queryString, connection)
connection.Open()
Dim reader As OleDbDataReader = command.ExecuteReader()
While reader.Read()
Console.WriteLine(reader(0).ToString())
End While
reader.Close()
End Using
End Sub

Ahora vamos a ver una variante del ejemplo para escribir datos de una tabla a un archivo de texto, pero esta vez utilizaremos un OleDbDataReader para obtener los datos. No olvidemos declarar el NameSpace Imports System.IO

Texto Plano

VB.NET:

Private Sub GrabaArchivo()
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\FotoPex\FpTimer\data\data.mdb")
Dim sql As String
Try
' preparamos el archivo
Dim Bitacora As StreamWriter
Dim NuevaLinea As String = ""
Dim newFileName As String = BitacoraPath & Date.Today.ToString("MMM dd yyyy") & ".txt"
' verificamos si existe
If File.Exists(newFileName) = False Then
' lo creamos
Bitacora = File.CreateText(newFileName)
Else
' lo abrimos para agregar texto
Bitacora = File.AppendText(newFileName)
End If
NuevaLinea = "Time: " & Date.Now.ToShortTimeString & vbCrLf & _
"Usuario" & vbTab & " Entrada " & vbTab & " Salida " & vbTab & "Total"
'agregamos datos al buffer en una linea nueva
Bitacora.WriteLine(NuevaLinea)
' buscamos los resultados
cn.Open()
' por otro carácter
sql = "SELECT usuario, Format(entrada, 'hh:mm:ss') as Entrada, Format(salida, 'hh:mm:ss') as Salida FROM(bitacora) WHERE (((fecha)=#03/04/2010#)) Order by id DESC ;"
'creamos un comando
Dim cmd As New OleDbCommand(sql, cn)
Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Do While dr.Read()
NuevaLinea = dr.Item("usuario").ToString & vbTab & dr.Item("Entrada").ToString & vbTab & dr.Item("Salida").ToString & vbTab & "Total"
Bitacora.WriteLine(NuevaLinea)
' limpiamos el buffer y escribimos los datos contenidos al stream
Bitacora.Flush()
Loop
NuevaLinea = vbCrLf & "********************* ***** " & vbCrLf
Bitacora.WriteLine(NuevaLinea)
Bitacora.Flush()
Bitacora.Close() ' no olvides cerrar el archivo
dr.Close()
Catch ex As Exception
'mostramos el error
If Err.Number = 91 Or Err.Number = 5 Then
'MessageBox.Show("No se encontro registro")
Err.Clear()
Else
MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
End If
'Finally
End Try
End Sub

Clausula LIMIT en Access, SQL, MySQL y ORACLE

Mr. FotoPex — Mon, 08 Mar 2010 18:53:38 +0000

Para limitar el número de registros que debe devolver una consulta podemos utilizar:

Para Access y MS SQL utilizaremos TOP n de esa forma obtendremos los n primeros resultados de la búsqueda, y si nos interesa son los n últimos, utilizaremos la cláusula ORDER BY

Texto Plano

SQL:

SELECT TOP n ... FROM ...
WHERE ...
ORDER BY...

Para MySQL utilizaremos LIMIT n , que ademas permite el compaginado agregando al final de un SELECTla clausula "LIMIT".
MySQL - LIMIT n

Texto Plano

MySQL:

SELECT ... FROM ...
WHERE ...
LIMIT n, n

Para ver cinco registros a partir del registro 10:

Texto Plano

SQL:

SELECT * FROM tabla LIMIT 10,5

ORACLE genera una variable, tal y como si fuera un campo más de cada registro de la tabla, llamada “rownum”, la cual se incrementa por cada registro que vamos recuperando. De esta manera, sólo tenemos que acceder a esta variable y controlar que no sobrepasa el número que nos hemos propuesto como límite.

Texto Plano

ORACLE8:

SELECT campos
FROM TABLE
WHERE condicion
AND ROWNUM <= 2

Activar Windows 7 actualizado

Mr. FotoPex — Wed, 03 Mar 2010 16:54:29 +0000

La actualización de Windows 7 kb971033 que elimina la mayoría de los métodos de activación del sistema operativo, ya tiene una solución, y mucho que tienen Windows 7 pirata lo han probado.

Enlace Protégete del WAT (Windows Activation Technologies).

Crea un Emoticon Animado Fácilmente

Mr. FotoPex — Tue, 02 Mar 2010 15:22:47 +0000

Un emoticono es una secuencia de caracteres ASCII que, en un principio, representaba una cara humana y expresaba una emoción. Pero, posteriormente, fueron creándose otros emoticonos con significados muy diversos. Los emoticonos que expresan alegría u otras emociones positivas se clasifican normalmente como smileys (de smile, «sonrisa» en inglés). Los emoticonos se emplean frecuentemente en mensajes de correo electrónico, en foros, SMS y en los chats mediante servicios de mensajería instantánea. Si se gira a la derecha el emoticono se obtiene una cara. Una cara sonriente derivada del emoticono (smiley).

Los emoticonos se han ido desarrollando a lo largo de los años, principalmente, para imitar las expresiones faciales y las emociones, para vencer las limitaciones de tener que comunicarse sólo en forma de texto y porque sirven como abreviaturas. Se han escrito libros sobre este tema, con listas interminables de emoticonos.

En los foros de Internet, los emoticonos se suelen reemplazar automáticamente por las imágenes correspondientes. En algunos editores de texto (como por ejemplo Microsoft Word), la opción de «corrección automática» reconoce emoticonos básicos como y , cambiándolos por el carácter correspondiente.

Para esos amigos que les gusta ver su conversación en el mensajero repleto de emoticonos en el blog de Softonic te muestran cómo crear un emoticon animado en 10 pasos

Elimina referencias a la version de WordPress

Mr. FotoPex — Tue, 02 Mar 2010 14:43:06 +0000

Una solución muy limpia, segura y efectiva es añadir el siguiente código al fichero functions.php de tu tema activo:

Texto Plano

PHP:

function quitar_version_wp() {
return '';
}
add_filter('the_generator', 'quitar_version_wp');

De este modo el número de versión de WordPress no se mostrará en ninguna parte de blog.

SHA-1 Con VB.NET 2008

Mr. FotoPex — Tue, 02 Mar 2010 01:50:18 +0000

Necesitamos :

1 caja de texto TextBox1
1 botón Button1
1 etiqueta para el mensaje lblMsg

Ya sabes que puedes bajarte los archivos sha1 con vb.net

Texto Plano

VB.NET:

Imports System.Security.Cryptography
Imports System.Text
Public Class Form1
Private Function generarClaveSHA1(ByVal nombre As String) As String
Dim enc As New UTF8Encoding
Dim data() As Byte = enc.GetBytes(nombre)
Dim result() As Byte
Dim sha As New SHA1CryptoServiceProvider()
result = sha.ComputeHash(data)
Dim sb As New StringBuilder
For i As Integer = 0 To result.Length - 1
If result(i) <16 Then
sb.Append("0")
End If
sb.Append(result(i).ToString("x"))
Next
Return sb.ToString.ToUpper
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.lblMsg.Text = generarClaveSHA1(Me.TextBox1.Text)
End Sub
End Class

Cómo Des-instalar GrooveMonitor

Mr. FotoPex — Fri, 26 Feb 2010 00:40:11 +0000

Existe malware que podria camuflajearse como GrooveMonitor.exe, particularmente si esta localizado en las carpetas c:\windows ó c:\windows\system32, si ya intentaste desinstalarlo desde el panel de control y sigue apareciendo, puedes removerlo así de fácil:

1.- Presiona las teclas Windows + R y en la ventana de ejecutar ingresa msconfig y presionas Enter.
2.- En la pestaña de INICIO quita la selección de "groovemonitor".
Listo!
Ahora reinicia y continua.

De esta forma estamos previniendo que inicie groovemonitor.

Quitando el mensaje “Podría ser víctima de una falsificación de software”

Mr. FotoPex — Fri, 26 Feb 2010 00:18:33 +0000

Yo te recomendaría que te cambiaras a linux que actualmente es muy fácil de utilizar y existe una infinidad de software que seguramente satisfagan tus necesidades ahorrándote mucho dinero.
Pero si insistes en utilizar Windows, lo mas recomendable es que compres la licencia y tengas acceso a las "actualizaciones de seguridad" que te brinda la compañía, de acuerdo lo que necesitas es remover el Windows Genuine Advantage (WGA) mientras tomas una decisión definitiva.

Recuerda que debes hacer un respaldo del registro antes de comenzar a hacer este experimento.

1.- Reinicia Windows en modo seguro (presionando la tecla F8)
2.- Abre el editor de registros (regedit.exe) y busca y borra el folder wgalogon y wgasetup.
3.- En tu directorio de Windows busca y borra los archivos wga*, normalmente están en system 32.

Listo!

Reinicia normalmente tu windows y continua con tu "trabajo".

sumando

Mr. FotoPex — Mon, 15 Feb 2010 23:41:27 +0000

Si:

2 + 3 = 10
7 + 2 = 63
6 + 5 = 66
8 + 4 = 96

Entonces:

9 + 7 =¿?

Yo no sé si es un problema para personas con un IQ superior a 120 pero es muy bueno.

Color del texto seleccionado con CSS

Mr. FotoPex — Mon, 08 Feb 2010 15:27:58 +0000

Warning: preg_replace() [function.preg-replace]: Unknown modifier '\' in /home1/fotopexc/public_html/ayuda/wp-content/plugins/ig_syntax_hilite/geshi.php on line 2007

Warning: preg_replace() [function.preg-replace]: Unknown modifier 'a' in /home1/fotopexc/public_html/ayuda/wp-content/plugins/ig_syntax_hilite/geshi.php on line 2007

Warning: preg_replace() [function.preg-replace]: Unknown modifier '\' in /home1/fotopexc/public_html/ayuda/wp-content/plugins/ig_syntax_hilite/geshi.php on line 2007

Warning: preg_replace() [function.preg-replace]: Unknown modifier 'a' in /home1/fotopexc/public_html/ayuda/wp-content/plugins/ig_syntax_hilite/geshi.php on line 2007

Algo tan simple como:

Texto Plano

CSS:

Pero si usas Internet Explorer no funciona.