Uso de crystal reports en VB.NET
Bueno... tomando en cuenta todos los problemas que puede llegar a dar el manejo de reportes, es viable apuntar que tanto CrystalRepots Como .Net hacen una gran pareja para el trabajo ordenado y confiable.
Iniciemos
1- Elaboro un reporte fuera de .NET [osea desde el mismo CR] , el cual lleva absolutamente todo lo que necesito osea que si lo ejecuto desde CR este dara los resultados deseados, el reporte puede haber sido creado partiendo de un procedimiento almacenado[SP] o directamente de un grupo de tablas o vistas.
Ahora lo que necesitamos es que .Net deploye el reporte previamente elaborado.
Para el ejemplo elabore un reporte el cual fue hecho a partir de un SP [procedimiento almacenado], el cual solicita tres parametros, por ende dichos parametros tengo que enviarlos desde .Net para que sean a su vez capturados por CR y los pueda procesar.
parametros solicitados por el reporte
OK. OK.
Ahora en VB.Net crearemos un nuevo proyecto y en el formulario de inicio [Form1] agregaremos un control CrystalReportViewer1, en la propiedad Dock le colocamos Fill
Espacios de nombre utilizados:
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
En el evento load del Fom1 colocaremos el siguiente codigo.
' ---------------------------By CesarL--------------
' SETEANDO CONEXION PARA CR
Dim oConexInfo As ConnectionInfo
Dim oListaTablas As Tables
Dim oTabla As Table
Dim oTablaConexInfo As TableLogOnInfo
' instanciar objeto para guardar datos de conexión
oConexInfo = New ConnectionInfo()
oConexInfo.ServerName = "NombreServidor"
oConexInfo.DatabaseName = "NombreBaseDatosODBC"
oConexInfo.UserID = "Usuario"
oConexInfo.Password = "Password"
Dim rpt_id As New ReportDocument
' Comprobamos la existencia del reporte, si el reporte no existe abortamos si no continuamos
Dim Reporte As String = Application.StartupPath & "Reporte.rpt"
If Not IO.File.Exists(Reporte) Then
MessageBox.Show("No se encontro reporte:" & vbCrLf & _
Reporte, "Report Not Found", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
Exit Sub
End If
'Una vez verificado el reporte procedemos a cargarlo
rpt_id.Load(Reporte)
oListaTablas = rpt_id.Database.Tables
For Each oTabla In oListaTablas
oTablaConexInfo = oTabla.LogOnInfo
oTablaConexInfo.ConnectionInfo = oConexInfo
oTabla.ApplyLogOnInfo(oTablaConexInfo)
'ENVIANDO VARIABLE A CR
rpt_id.SetParameterValue("@FechaInicio", "VariableFechaInicial")
rpt_id.SetParameterValue("@FechaFin", "VariableFechaFinal")
rpt_id.SetParameterValue("@Company", "VariableCompany")
Me.CrystalReportViewer1.ReportSource = rpt_id
Con esto el form1 cuando cargue hara lo siguiente
1- Seteara las variables de conexion
2- Comprobara la existencia del reporte
3- Si el reporte existe este creara una instancia de tipo CR y enviara los parametros de conexion y los parametros del reporte
4- Finalmente cargara el reporte.
Si quieres los fuentes, dudas o comentrios: cesarlopez1909@gmail.com
Buscar en Google
Busca en Todo Vb-Net
Búsqueda personalizada
miércoles, 21 de julio de 2010
lunes, 12 de julio de 2010
Convertir .doc a .pdf
Convertir .doc a .pdf
Muchas veces nos hemos visto en la necesidad de realizar una conversion de documentos entre estos dos tipos de formatos, existen muchas herramientas en la red que hacen dicho proceso, sin enbargo como programadores nos vemos en la necesidad muchas veces de manipular dicha conversion por tal motivo se inicia este pequeño tutorial.
Comenzemos...
Usaremos VB .Net 2008
Office 2010 [Version actualmente en mi PC]
Primero crearemos un nuevo proyecto.
En el formulario de inicio [Form1] agregaremos los siguientes controles
1- Caja de texto [TxtSource]
2- Boton Examinar [BtnExaminar]
3- Boton Convertir a PDF [BtnConvertir]
4- Un label [Label1]
El formulario se vera asi:
A nuestro proyecto debemos agregar la referencia correspondiente a Word
para mi caso es Microsoft Word 14.0 Object Library
Si tienes otra version de offices debes agregar la libreria correspondiente a tu version.
Vamos al codigo...
En el evento click del boton examinar haremos lo siguiente, esto lo que hace es habrir un dialogo el cual nos permitira seleccionar un documento de Word y almacenara la ruta en el TxtSource
'Seleccionar Tipo de Fichero
Dim TipoFichero As String
TipoFichero = ""
TipoFichero = "Fichero MSWord |*.doc;*.docx"
Try
Dim oFD As New OpenFileDialog
With oFD
.Filter = TipoFichero
.FileName = TxtSource.Text
If .ShowDialog = DialogResult.OK Then
TxtSource.Text = .FileName
End If
End With
Catch oexcep As Exception
MessageBox.Show("Error: //Abriendo Documento// " & vbCrLf & _
"Use una ubicación diferente" & vbCrLf & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)
End Try
Luego en el evento click del boton ConvertirArchivo!!!
'----Pasando documento de Word a PDF ---------------------------------------
'----By CesarL
Dim wordApplication As ApplicationClass = New ApplicationClass()
Dim wordDocument As Document = Nothing
Dim paramSourceDocPath As String = TxtSource.Text
Dim paramExportFilePath As String = "C:\Test.pdf"
Dim paramExportFormat As WdExportFormat = _
WdExportFormat.wdExportFormatPDF
Dim paramOpenAfterExport As Boolean = False
Dim paramExportOptimizeFor As WdExportOptimizeFor = _
WdExportOptimizeFor.wdExportOptimizeForPrint
Dim paramExportRange As WdExportRange = _
WdExportRange.wdExportAllDocument
Dim paramStartPage As Int32 = 0
Dim paramEndPage As Int32 = 0
Dim paramExportItem As WdExportItem = _
WdExportItem.wdExportDocumentContent
Dim paramIncludeDocProps As Boolean = True
Dim paramKeepIRM As Boolean = True
Dim paramCreateBookmarks As WdExportCreateBookmarks = _
WdExportCreateBookmarks.wdExportCreateWordBookmarks
Dim paramDocStructureTags As Boolean = True
Dim paramBitmapMissingFonts As Boolean = True
Dim paramUseISO19005_1 As Boolean = False
Try
'Abrir documento basados en el que selecciono
wordDocument = wordApplication.Documents.Open(paramSourceDocPath)
' Exportar al formato deseado
If Not wordDocument Is Nothing Then
wordDocument.ExportAsFixedFormat(paramExportFilePath, _
paramExportFormat, paramOpenAfterExport, _
paramExportOptimizeFor, paramExportRange, paramStartPage, _
paramEndPage, paramExportItem, paramIncludeDocProps, _
paramKeepIRM, paramCreateBookmarks, _
paramDocStructureTags, paramBitmapMissingFonts, _
paramUseISO19005_1)
End If
Catch ex As Exception
'Aqui una exepcion no controlada
Finally
'cerrar documento
If Not wordDocument Is Nothing Then
wordDocument.Close(False)
wordDocument = Nothing
End If
'Quit a la aplicacion WinWord
If Not wordApplication Is Nothing Then
wordApplication.Quit()
wordApplication = Nothing
End If
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()
End Try
' Fin de proceso -----------------------------------------------------------
Ahora solo ejecutamos nuestro proyecto, seleccionamos el archivo .doc ó .docx y presionamos el boton ConvertirArchivo!!! y se convertira el documento seleccionado y se almacenara en "C:\Test.pdf"
Muchas veces nos hemos visto en la necesidad de realizar una conversion de documentos entre estos dos tipos de formatos, existen muchas herramientas en la red que hacen dicho proceso, sin enbargo como programadores nos vemos en la necesidad muchas veces de manipular dicha conversion por tal motivo se inicia este pequeño tutorial.
Comenzemos...
Usaremos VB .Net 2008
Office 2010 [Version actualmente en mi PC]
Primero crearemos un nuevo proyecto.
En el formulario de inicio [Form1] agregaremos los siguientes controles
1- Caja de texto [TxtSource]
2- Boton Examinar [BtnExaminar]
3- Boton Convertir a PDF [BtnConvertir]
4- Un label [Label1]
El formulario se vera asi:
A nuestro proyecto debemos agregar la referencia correspondiente a Word
para mi caso es Microsoft Word 14.0 Object Library
Si tienes otra version de offices debes agregar la libreria correspondiente a tu version.
Vamos al codigo...
En el evento click del boton examinar haremos lo siguiente, esto lo que hace es habrir un dialogo el cual nos permitira seleccionar un documento de Word y almacenara la ruta en el TxtSource
'Seleccionar Tipo de Fichero
Dim TipoFichero As String
TipoFichero = ""
TipoFichero = "Fichero MSWord |*.doc;*.docx"
Try
Dim oFD As New OpenFileDialog
With oFD
.Filter = TipoFichero
.FileName = TxtSource.Text
If .ShowDialog = DialogResult.OK Then
TxtSource.Text = .FileName
End If
End With
Catch oexcep As Exception
MessageBox.Show("Error: //Abriendo Documento// " & vbCrLf & _
"Use una ubicación diferente" & vbCrLf & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)
End Try
Luego en el evento click del boton ConvertirArchivo!!!
'----Pasando documento de Word a PDF ---------------------------------------
'----By CesarL
Dim wordApplication As ApplicationClass = New ApplicationClass()
Dim wordDocument As Document = Nothing
Dim paramSourceDocPath As String = TxtSource.Text
Dim paramExportFilePath As String = "C:\Test.pdf"
Dim paramExportFormat As WdExportFormat = _
WdExportFormat.wdExportFormatPDF
Dim paramOpenAfterExport As Boolean = False
Dim paramExportOptimizeFor As WdExportOptimizeFor = _
WdExportOptimizeFor.wdExportOptimizeForPrint
Dim paramExportRange As WdExportRange = _
WdExportRange.wdExportAllDocument
Dim paramStartPage As Int32 = 0
Dim paramEndPage As Int32 = 0
Dim paramExportItem As WdExportItem = _
WdExportItem.wdExportDocumentContent
Dim paramIncludeDocProps As Boolean = True
Dim paramKeepIRM As Boolean = True
Dim paramCreateBookmarks As WdExportCreateBookmarks = _
WdExportCreateBookmarks.wdExportCreateWordBookmarks
Dim paramDocStructureTags As Boolean = True
Dim paramBitmapMissingFonts As Boolean = True
Dim paramUseISO19005_1 As Boolean = False
Try
'Abrir documento basados en el que selecciono
wordDocument = wordApplication.Documents.Open(paramSourceDocPath)
' Exportar al formato deseado
If Not wordDocument Is Nothing Then
wordDocument.ExportAsFixedFormat(paramExportFilePath, _
paramExportFormat, paramOpenAfterExport, _
paramExportOptimizeFor, paramExportRange, paramStartPage, _
paramEndPage, paramExportItem, paramIncludeDocProps, _
paramKeepIRM, paramCreateBookmarks, _
paramDocStructureTags, paramBitmapMissingFonts, _
paramUseISO19005_1)
End If
Catch ex As Exception
'Aqui una exepcion no controlada
Finally
'cerrar documento
If Not wordDocument Is Nothing Then
wordDocument.Close(False)
wordDocument = Nothing
End If
'Quit a la aplicacion WinWord
If Not wordApplication Is Nothing Then
wordApplication.Quit()
wordApplication = Nothing
End If
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()
End Try
' Fin de proceso -----------------------------------------------------------
Ahora solo ejecutamos nuestro proyecto, seleccionamos el archivo .doc ó .docx y presionamos el boton ConvertirArchivo!!! y se convertira el documento seleccionado y se almacenara en "C:\Test.pdf"
miércoles, 2 de junio de 2010
Embedir Imagen en e-mail [VB.Net]
Embedir Imagen en e-mail [VB.Net]
Buenoooooo, en esta ocacion mostrare como embedir un archivo de imagen en un correo electronico, no es simplemente atachar en el correo, si no que desplegar dicha imagen en el cuerpo del correo, como que se tratase de una edicion de OutLook.
Comencemos....
' Espacio de nombres a importar
Imports System.Net.Mail
Private Sub EnviandoMailAt()
'Funcion de envio de correo
Dim SMTP As New System.Net.Mail.SmtpClient 'Variable con la que se envia el correo
Dim CORREO As New System.Net.Mail.MailMessage
CORREO.From = New System.Net.Mail.MailAddress(Desdemail, "Correo Electronico", System.Text.Encoding.UTF8)
Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString("Cuerpo del correo", Nothing, "text/html")
'Path de la imagen
Dim logo As New LinkedResource("IMG\LOGOLSAL.png")
logo.ContentId = "companylogo"
'Adicionando logo
htmlView.LinkedResources.Add(logo)
CORREO.To.Add("cliente@mail.com")
'Adicionando copia oculta
CORREO.Bcc.Add("cliente@mail.com")
CORREO.IsBodyHtml = True
CORREO.AlternateViews.Add(htmlView)
CORREO.Subject = "Confirmación de recarga - AutoMailer -"
SMTP.Host = "ServidorSMTP"
SMTP.Port = "Puerto"
Try
SMTP.Credentials = New System.Net.NetworkCredential("UsuarioSMTP", "PassSMTP")
SMTP.Send(CORREO)
Catch ex As System.Net.Mail.SmtpException
MessageBox.Show("Fallo el envio: " & ex.Message)
End Try
Buenoooooo, en esta ocacion mostrare como embedir un archivo de imagen en un correo electronico, no es simplemente atachar en el correo, si no que desplegar dicha imagen en el cuerpo del correo, como que se tratase de una edicion de OutLook.
Comencemos....
' Espacio de nombres a importar
Imports System.Net.Mail
Private Sub EnviandoMailAt()
'Funcion de envio de correo
Dim SMTP As New System.Net.Mail.SmtpClient 'Variable con la que se envia el correo
Dim CORREO As New System.Net.Mail.MailMessage
CORREO.From = New System.Net.Mail.MailAddress(Desdemail, "Correo Electronico", System.Text.Encoding.UTF8)
Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString("Cuerpo del correo", Nothing, "text/html")
'Path de la imagen
Dim logo As New LinkedResource("IMG\LOGOLSAL.png")
logo.ContentId = "companylogo"
'Adicionando logo
htmlView.LinkedResources.Add(logo)
CORREO.To.Add("cliente@mail.com")
'Adicionando copia oculta
CORREO.Bcc.Add("cliente@mail.com")
CORREO.IsBodyHtml = True
CORREO.AlternateViews.Add(htmlView)
CORREO.Subject = "Confirmación de recarga - AutoMailer -"
SMTP.Host = "ServidorSMTP"
SMTP.Port = "Puerto"
Try
SMTP.Credentials = New System.Net.NetworkCredential("UsuarioSMTP", "PassSMTP")
SMTP.Send(CORREO)
Catch ex As System.Net.Mail.SmtpException
MessageBox.Show("Fallo el envio: " & ex.Message)
End Try
Obtener Fecha y Hora de un servidor MSSQL 2005
Obtener Fecha y Hora de un servidor MSSQL 2005
Muchas veces nos vemos en la obligacion de obtener la fecha de nuestro servidor, esto para efectos de auditoria de las transacciones realizadas por los usuarios.
Para eso aca pongo un ejemplo de como obtener dicho dato, ojala le sirva a alguien...
' Espacio de nombres a importar
Imports System.Data.SqlClient
' Funcion para realizar consulta
Public Function SetFechaHoraServer()
SetFechaHoraServer = ""
Try
Dim CmdSsql As New SqlCommand("SELECT YEAR(NOW()) AS AÑO, MONTH(NOW()) AS MES, DAY(NOW()) AS DIA, " & _
"HOUR(NOW('h')) AS HORA, MINUTE(NOW()) AS MINUTO, SECOND(NOW()) AS SEGUNDO", MyConex)
Dim Rd As SqlDataReader
MyConex.Open()
Rd = CmdSsql.ExecuteReader
Rd.Read()
If Rd.HasRows = False Then
MsgBox("No hay datos para formar hora actual del servidor")
MyConex.Close()
Exit Function
End If
FechaHoraServer = Rd(0) & "-" & Rd(1) & "-" & Rd(2) & " " & Rd(3) & ":" & Rd(4) & ":" & Rd(5)
MyConex.Close()
Catch oexcep As SqlException
MessageBox.Show("Error al conectar con BD o actualizar, Proceso: Consultando fecha del servidor" & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)
MyConex.Close()
End Try
End Function
Finalmente obtenemos la fecha en el formato deseado, segun el ejemplo el formato que obtendremos seria: "2010-06-02 04:10:35"
Dudas o comentarios a: cesarlopez1909@gmial.com
Muchas veces nos vemos en la obligacion de obtener la fecha de nuestro servidor, esto para efectos de auditoria de las transacciones realizadas por los usuarios.
Para eso aca pongo un ejemplo de como obtener dicho dato, ojala le sirva a alguien...
' Espacio de nombres a importar
Imports System.Data.SqlClient
' Funcion para realizar consulta
Public Function SetFechaHoraServer()
SetFechaHoraServer = ""
Try
Dim CmdSsql As New SqlCommand("SELECT YEAR(NOW()) AS AÑO, MONTH(NOW()) AS MES, DAY(NOW()) AS DIA, " & _
"HOUR(NOW('h')) AS HORA, MINUTE(NOW()) AS MINUTO, SECOND(NOW()) AS SEGUNDO", MyConex)
Dim Rd As SqlDataReader
MyConex.Open()
Rd = CmdSsql.ExecuteReader
Rd.Read()
If Rd.HasRows = False Then
MsgBox("No hay datos para formar hora actual del servidor")
MyConex.Close()
Exit Function
End If
FechaHoraServer = Rd(0) & "-" & Rd(1) & "-" & Rd(2) & " " & Rd(3) & ":" & Rd(4) & ":" & Rd(5)
MyConex.Close()
Catch oexcep As SqlException
MessageBox.Show("Error al conectar con BD o actualizar, Proceso: Consultando fecha del servidor" & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)
MyConex.Close()
End Try
End Function
Finalmente obtenemos la fecha en el formato deseado, segun el ejemplo el formato que obtendremos seria: "2010-06-02 04:10:35"
Dudas o comentarios a: cesarlopez1909@gmial.com
Aplicar MD5 a String [VB.Net]
El Proceso consta de obtener una cadena encriptada, partiendo de una cadena normal, este tipo de funciones son utiles normalmente para encriptar password´s en nuestros sistemas, pues con esto agregamos un poco mas de seguridad a los mismos.
espero a alguien le sirva....
' Hacer la llamada a la funcion y enviar el parametro solicitado
Call MD5EncryptPass(TxtPassword.Text)
' Espacio de nombres a importar
Imports System.Security.Cryptography
'Funcion de encriptado
Private Sub MD5EncryptPass(ByVal StrPass As String)
PasConMd5 = ""
Dim md5 As New MD5CryptoServiceProvider
Dim bytValue() As Byte
Dim bytHash() As Byte
Dim i As Integer
bytValue = System.Text.Encoding.UTF8.GetBytes(StrPass)
bytHash = md5.ComputeHash(bytValue)
md5.Clear()
For i = 0 To bytHash.Length - 1
PasConMd5 &= bytHash(i).ToString("x").PadLeft(2, "0")
Next
MsgBox(PasConMd5)
End Sub
'El resultado
Dudas o consultas a: cesarlopez1909@gmail.com
ComboBox Dependientes [VB.Net]
Añadir un dataset a un ComboBox [VB.Net]
Para el ejemplo se usaran datos extraidos desde una BD MySQL
La tematica del ejemplo es simple, siempre con la misma filosofia añadir dataset a un combo luego realizar indexacion para realizar una neva busqueda y alimentar un nuevo dataset el cual sera asignado a su vez a otro combo.
espacios de nombres a importar
Imports MySql.Data.MySqlClient
Declaraciones
Public AdapterCats As MySqlDataAdapter
Public AdapterSubCats As MySqlDataAdapter
Public CDatasetCats As DataSet
Public CDatasetSubCats As DataSet
' Primero en el evento load del formulario hacemos el llenado del Combo categorias
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
AdapterCats = New MySqlDataAdapter("SELECT CATEGORIA, NOMBRE FROM.CATEGORIA", MyConex)
CDatasetCats = New DataSet()
MyConex.Open()
AdapterCats.Fill(CDatasetCats, "CATS")
MyConex.Close()
CmbCategoria.DataSource = CDatasetCats.Tables("CATS")
CmbCategoria.DisplayMember = CDatasetCats.Tables("CATS").Columns("NOMBRE").ToString
CmbCategoria.ValueMember = CDatasetCats.Tables("CATS").Columns("CATEGORIA").ToString
Catch oexcep As MySqlException
MessageBox.Show("Error al conectar con BD o actualizar, Proceso: Consultando datos " & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)
MyConex.Close()
End Try
End Sub
Luego en el evento de cambio de indice del combo hacemos el llenado del la subcategorias, recordemos que una categoria puede tener 'n' subcategorias
Private Sub CmbCategoria_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbCategoria.SelectedIndexChanged
Dim CatBuscar As String
CatBuscar = CDatasetCats.Tables("CATS").Rows(CmbCategoria.SelectedIndex)("CATEGORIA")
Try
AdapterSubCats = New MySqlDataAdapter("SELECT SUBCAT, NOMBRE FROM " & BaseDatos & ".SUBCATEGORIA WHERE CATEGORIA = '" & CatBuscar & "'", MyConex)
CDatasetSubCats = New DataSet()
MyConex.Open()
AdapterSubCats.Fill(CDatasetSubCats, "SUBCATS")
MyConex.Close()
CmbSubcategoria.DataSource = CDatasetSubCats.Tables("SUBCATS")
CmbSubcategoria.DisplayMember = CDatasetSubCats.Tables("SUBCATS").Columns("NOMBRE").ToString
CmbSubcategoria.ValueMember = CDatasetSubCats.Tables("SUBCATS").Columns("SUBCAT").ToString
Catch oexcep As MySqlException
MessageBox.Show("Error al conectar con BD o actualizar, Proceso: Consultando datos " & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)
MyConex.Close()
End Try
End Sub
Esto ha sido todooooooo... dudas o comentarios a cesarlopez1909@gmail.com
Suscribirse a:
Entradas (Atom)