3 Formas Para Exportar DataTable A Excel En .Net

Forma 1:

Public Sub trycodenet_ExportExcel(ByVal table As DataTable, ByVal name As String)

Dim sb As New StringBuilder()

Dim sw As New IO.StringWriter(sb)

Dim htw As New HtmlTextWriter(sw)

Dim pagina As New Page()

Dim form As New HtmlForm()

Dim dg As New GridView()

dg.HeaderStyle.Font.Bold = True

dg.EnableViewState = False

dg.DataSource = table

dg.DataBind()

pagina.EnableEventValidation = False

pagina.DesignerInitialize()

pagina.Controls.Add(form)

form.Controls.Add(dg)

pagina.RenderControl(htw)

Response.Clear()

Response.Buffer = True

Response.ContentType = "application/vnd.ms-excel"

Response.AddHeader("Content-Disposition", "attachment;filename=" & name & ".xls")

Response.Charset = "UTF-8"

Response.ContentEncoding = Encoding.Default

Response.Write(sb.ToString())

Response.End()

End Sub

---

Forma 2:

Public Sub trycodenet_ExportExcel(ByVal table As DataTable, ByVal name As String)

Dim context As HttpContext = HttpContext.Current

Dim attachment As String = "attachment; filename=" & name & ".xls"

context.Response.ClearContent()

context.Response.AddHeader("content-disposition", attachment)

context.Response.ContentType = "application/vnd.ms-excel"

Dim tab As String = ""

For Each dc As DataColumn In table.Columns

context.Response.Write(tab + dc.ColumnName)

tab = vbTab

Next

context.Response.Write(vbLf)

For Each dr As DataRow In table.Rows

tab = ""

For i As Integer = 0 To table.Columns.Count - 1

context.Response.Write(tab + dr(i).ToString())

tab = vbTab

Next

context.Response.Write(vbLf)

Next

context.Response.End()

End Sub

---

Forma 3:

Public Sub trycodenet_ExportExcel(ByVal table As DataTable, ByVal name As String)

Dim context As HttpContext = HttpContext.Current

context.Response.Clear()

For Each column As DataColumn In table.Columns

context.Response.Write(column.ColumnName & ",")

Next

context.Response.Write(Environment.NewLine)

For Each row As DataRow In table.Rows

For i As Integer = 0 To table.Columns.Count - 1

context.Response.Write(row(i).ToString().Replace(",", String.Empty) & ",")

Next

context.Response.Write(Environment.NewLine)

Next

Response.ContentType = "application/vnd.ms-excel"

context.Response.AppendHeader("Content-Disposition", "attachment; filename=" & name & ".xls")

context.Response.End()

End Sub

Encriptacion y Compresion

Saludos
Segun Wiki

La encriptación es el proceso para volver ilegible información considera importante. La información una vez encriptada sólo puede leerse aplicándole una clave.

Se trata de una medida de seguridad que es usada para almacenar o transferir información delicada que no debería ser accesible a terceros. Pueden ser contraseñas, nros. de tarjetas de crédito, conversaciones privadas, etc.

Para encriptar información se utilizan complejas fórmulas matemáticas y para desencriptar, se debe usar una clave como parámetro para esas fórmulas.

El texto plano que está encriptado o cifrado se llama criptograma.

..Les adjunto unas librerias en VB para encripacion como mod5, DES, Rindjael,..
que uso en mis proyectos en el siguiente Link

Concatenar el resultado de una consulta

Saludos

Como el tema lo indica me salto una duda queriendo concatenar el resultado de una consulta y que me de el resultado en una sola linea.

Lo que se tenia:

select Indicador_Anemia from Seguimiento_Ninio

Función para exportar DataGridView a EXCEL vb.Net

Saludos le adjunto una subRutina que uso muy amenudo

Convertir HTML a CADENA

public static String ConvertirHTMLaCADENA(String HTMLString)
{
String noHTMLString = htmlString.replaceAll("\\<.*?\\>", "");
return noHTMLString;
}

Adicionar Validación Captcha en nuestro inicio de sesión

Saludos
En este ejemplo crearemos un captcha sencillo para nuestros formularios de inicio de sesión.
...
Adicionar un nuevo elemento al proyecto de tipo Controlador Genérico  .ashx, el cual contendra la imagen captcha autogenarada aleatoriamente Random() numeros y letras.
El resultante sera como la siguiente imagen:

Función para exportar DataGridView a PDF vb.Net

Saludos les adjunto una subrutina de exportacion a formato PDF