Posts Tagged ‘Tabla’

Alternar Colores en una Tabla

October 5th, 2011
PHP:
  1. <?php
  2.  
  3. //- Definimos los colores que queremos que se estén alternando
  4. $colores=array(0=>"#B6BC9D", "red","#D66734");
  5.  
  6. echo "<table border=1 cellspacing=0 width=200>";
  7.  
  8. // generamos la tabla de 20 lineas
  9.  
  10. for($i=0; $i<20; $i++) {
  11.  //seleccionamos el color
  12.   $color=$colores[$i % count($colores)];
  13.  // pintamos el renglón del color elegido
  14.   echo "<tr bgcolor='$color'> <td>".($i+1)."</td>
  15.        <td align=center> Línea $i </td></tr>";
  16. }
  17. echo "</table>";
  18. ?>

Escribir datos de un OleDbDataReader a un archivo de texto

March 10th, 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, » Read more: Escribir datos de un OleDbDataReader a un archivo de texto

Escribir datos de una tabla a un archivo de texto

January 24th, 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&ntilde;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