Archivado en: ‘.NET’ .

Escribir datos de un OleDbDataReader a un archivo de texto

10 marzo, 2010

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, » Leer más: Escribir datos de un OleDbDataReader a un archivo de texto

SHA-1 Con VB.NET 2008

1 marzo, 2010

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

» Leer más: SHA-1 Con VB.NET 2008

Escribir datos de una tabla a un archivo de texto

24 enero, 2008

Escribir en un fichero de texto con VB .NET es muy fácil.

Este es un ejemplo simple de como podemos crear o escribir dentro de un archivo de texto los datos de una tabla, podemos usarlo para registrar que datos fueron afectados por algún proceso de nuestro programa.

No olvides cambiar la ruta del archivo en tu pc C:\ y declarar el NameSpace Imports System.IO.

 

VB.NET:
  1. Public Sub GrabaArchivo(ByVal TablaTmpLog As DataTable)
  2.  
  3.     'Buffer = espacio de memoria diseñada para
  4.     'el almacenamiento temporal de datos
  5.  
  6.     Dim Bitacora As StreamWriter
  7.     Dim NuevaLinea As String = ""
  8.     Dim BitacoraPath As String = _
  9.     "\\Kikegavilan\Logs\" & Date.Today.ToString("MMM dd yyyy") & ".log"
  10.  
  11.     ' verificamos si existe
  12.     If File.Exists(BitacoraPath) = False Then
  13.       ' lo creamos
  14.       Bitacora = File.CreateText(BitacoraPath)
  15.     Else
  16.       ' lo abrimos para agregar texto
  17.       Bitacora = File.AppendText(BitacoraPath)
  18.     End If
  19.  
  20.     Dim currRow As DataRow
  21.     Dim RowNums As Integer
  22.  
  23.     NuevaLinea = vbCrLf & "--" & vbCrLf & "Movimiento a las  " & _
  24.     Date.Now.ToShortTimeString & vbCrLf
  25.  
  26.     'agregamos datos al buffer en una linea nueva
  27.     Bitacora.WriteLine(NuevaLinea)
  28.  
  29.     For RowNums = 0 To TablaTmpLog.Rows.Count - 1
  30.  
  31.       currRow = TablaTmpLog.Rows(RowNums)
  32.       NuevaLinea = currRow(0, DataRowVersion.Current).ToString
  33.  
  34.       Bitacora.WriteLine(NuevaLinea)
  35.       ' limpiamos el buffer y escribimos los datos contenidos al stream
  36.       Bitacora.Flush()
  37.     Next
  38.  
  39.     NuevaLinea = vbCrLf & "********************* ***** " & vbCrLf
  40.     Bitacora.WriteLine(NuevaLinea)
  41.     Bitacora.Flush()
  42.     Bitacora.Close() ' no olvides cerrar el archivo
  43.   End Sub