Jun 30 2007
Escribir datos de una tabla a un archivo de texto
Loading ...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:\
VB.NET:
-
Public Sub GrabaArchivo(ByVal TablaTmpLog As DataTable)
-
-
‘Buffer = espacio de memoria diseñada para
-
‘el almacenamiento temporal de datos
-
-
Dim Bitacora As StreamWriter
-
Dim NuevaLinea As String = “”
-
Dim BitacoraPath As String = _
-
“\\Kikegavilan\Logs\” & Date.Today.ToString(“MMM dd yyyy”) & “.log”
-
-
‘ verificamos si existe
-
‘ lo creamos
-
Else
-
‘ lo abrimos para agregar texto
-
End If
-
-
Dim currRow As DataRow
-
Dim RowNums As Integer
-
-
NuevaLinea = vbCrLf & “–” & vbCrLf & “Movimiento a las “ & _
-
Date.Now.ToShortTimeString & vbCrLf
-
-
‘agregamos datos al buffer en una linea nueva
-
Bitacora.WriteLine(NuevaLinea)
-
-
For RowNums = 0 To TablaTmpLog.Rows.Count - 1
-
-
currRow = TablaTmpLog.Rows(RowNums)
-
NuevaLinea = currRow(0, DataRowVersion.Current).ToString
-
-
Bitacora.WriteLine(NuevaLinea)
-
‘ limpiamos el buffer y escribimos los datos contenidos al stream
-
Bitacora.Flush() subyacente
-
Next
-
-
NuevaLinea = vbCrLf & “********************* ***** “ & vbCrLf
-
Bitacora.WriteLine(NuevaLinea)
-
Bitacora.Flush()
-
Bitacora.Close() ‘ no olvides cerrar el archivo
-
End Sub
Enlaces que te pueden interesar:
Programacion
Más información
