AMLO

Si bien respeto a todos los partidos, aqui les dejo información que
debemos leer no por estar en contra de tal o cual sino de estar
informados para podre tomar la mejor desición este 2 de Julio.


http://www.malo.org.mx/wordpress/

Saludos!!

De infierno a infierno

López Obrador, Fidel Castro y Chávez estaban en el infierno y se enteraron que había un teléfono y rápidamente Fidel fué y se lo pidió al diablo para hacer una llamada a Cuba para saber cómo iba el país después de su partida.

El diablo le concedió la llamada y habló durante 2 minutos, al colgar, el diablo le dijo que la llamada era de 3 millones de dólares americanos; Castro le hizo un cheque y le pagó.

Al enterarse de ésto Chávez quiso hacer lo mismo y llamó a Venezuela durante 5 minutos y el diablo le pasó la cuenta de 10 millones de euros y también le pagó.

Andrés Manuel también sintió ganas de llamar a la Ciudad de Méxicopara ver cómo la estaban pasando y habló por 3 horas (ya ven que es lento).

Cuando colgó, el diablo le dijo que eran 35 pesos mexicanos y le preguntó al diablo por qué era tan barato llamar a México. Y el diablo le respondió:  "Mira cabrón, con tus segundos pisos, las
marchas, tu pinche desafuero, las pendejadas de Ebrard, Ponce,Bejarano y demás ratas y animales de tu equipo, dejaste a la Ciudad de México convertida en un verdadero Infierno, y de infierno a
infierno la llamada es local".

Si gana el peje...

Como ven??? 

.Net : Crear un archivo de Excel, Parte 2

Esta es la segunda parte de la creación de un archivo de Excel. En esta entrega veremos
todo el código necesario para crear la forma en donde visualizaremos los datos de la tabla,
y posteriormente llenar una hoja de un archivo de excel con esa información

El ultimo paso es el guardar el archivo con un nombre.

En esta entrega estamos haciendo un barrido de filas y columnas para llenar el archivo de excel,
en la siguiente parte daremos una explicación de un método distinto de llenado, presentando
así sus pros y contras.

Imports System.Data.SqlClient
Imports Excel


Public Class frmCreateExcelfile
Inherits System.Windows.Forms.Form

Private ds As DataSet
Private objExcel As Excel.Application
Private objWBook As Excel._Workbook
Private objWSheet As Excel._Worksheet
Private objRange As Excel.Range

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
DisposeExcelObjects()
Me.Close()
End Sub

Private Sub DisposeExcelObjects()
Try
objWBook.Close()
objExcel.Workbooks.Close()
Catch ex As Exception

End Try

objExcel.Quit()
If Not objRange Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(objRange)
End If
If Not objExcel Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel)
End If
If Not objWBook Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(objWBook)
End If
If Not objWSheet Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(objWSheet)
End If

objWBook = Nothing
objWSheet = Nothing
objExcel = Nothing
GC.Collect()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cnx As System.Data.SqlClient.SqlConnection
Dim da As System.Data.SqlClient.SqlDataAdapter
Dim cm As System.Data.SqlClient.SqlCommand

Try
cnx = New System.Data.SqlClient.SqlConnection("Data Source=XXX.XXX.XXX.XXX;User Id=XXX;Password=XXX;Initial Catalog=Northwind")

cm = New System.Data.SqlClient.SqlCommand
cm.CommandType = CommandType.Text
cm.CommandText = "SELECT * FROM Employees ORDER BY LastName"
cm.Connection = cnx

da = New System.Data.SqlClient.SqlDataAdapter(cm)

ds = New DataSet
da.Fill(ds)

DataGrid1.DataSource = ds.Tables(0)

Catch ex As Exception
MsgBox(ex.ToString)
Finally
cnx.Close()
cm.Dispose()
cnx.Dispose()
cnx = Nothing
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
objExcel = New Excel.Application
objExcel.ScreenUpdating = False
objExcel.Visible = False


objWBook = objExcel.Workbooks.Add()

objWSheet = CType(objWBook.Sheets.Item(1), Excel._Worksheet)

Fillsheet(ds)
End Sub

Private Sub Fillsheet(ByVal ds As DataSet)
Dim arrData() As Object
Dim dr As DataRow
Dim i As Int32
Dim j As Int32

ReDim arrData(ds.Tables(0).Columns.Count)

'objWSheet = CType(objWBook.Sheets.Item("Sheet1"), Excel._Worksheet)
objWSheet.Activate()


For i = 0 To ds.Tables(0).Rows.Count - 1
dr = ds.Tables(0).Rows(i)

For j = 0 To 13
'arrData(j) = IIf(IsNumeric(dr(j).ToString), dr(j), dr(j).ToString)
objWSheet.Cells.Item(i + 1, j + 1) = dr(j)
Next
Next


objWSheet.SaveAs(TextBox1.Text)

End Sub
End Class

Esta es una imagen del archivo generado:

.Net : Crear un archivo de Excel, Parte 1

En esta ocación crearemos un archivo de Excel a través de .Net. El alcance de este post es la
creación en si del archivo y el llenado simple con la información de una tabla.

Private ds As DataSet
Private objExcel As Excel.Application
Private objWBook As Excel._Workbook
Private objWSheet As Excel._Worksheet
Private objRange As Excel.Range

objExcel = New Excel.Application
objExcel.ScreenUpdating = False
objExcel.Visible = False

objWSheet = CType(objWBook.Sheets.Item(sheetName), Excel._Worksheet)
objWSheet.Activate()

objWSheet.Cells.Item(1, 1) = "Metxtli" ' Escribir en "A1"


objWBook.Close()
objExcel.Workbooks.Close()

En pocas lineas estos son los pasos para crear un archivo de excel, voy
un ejemplo completo en una forma de windows.



La idea es a partir de la información contenida en el DataGrid crear
un archivo de excel con toda esta información.