martes, 17 de agosto de 2010
Leer Archivos de Excel 2007 con Asp.Net
Este resumen no está disponible. Haz
clic en este enlace para ver la entrada.
viernes, 6 de agosto de 2010
miércoles, 2 de julio de 2008
miércoles, 30 de abril de 2008
Enviar emails con Visual Basic
Este resumen no está disponible. Haz
clic en este enlace para ver la entrada.
viernes, 25 de abril de 2008
Generar codigos de Barras en Visual Basic .Net
Este resumen no está disponible. Haz
clic en este enlace para ver la entrada.
martes, 8 de abril de 2008
Crear un Chat con Java
Este resumen no está disponible. Haz
clic en este enlace para ver la entrada.
martes, 25 de marzo de 2008
Java/Swing
Swing es una tecnologia que utiliza Java para aplicaciones de Escritorio aqui les dejo un manual que he encontrado en la red, para los que desean aprender este facinante lenguaje:
Descargar Manual Java
Espero les sea de utilidad
Descargar Manual Java
Espero les sea de utilidad
lunes, 24 de marzo de 2008
Resultado de la Encuesta
Este resumen no está disponible. Haz
clic en este enlace para ver la entrada.
martes, 11 de marzo de 2008
viernes, 22 de febrero de 2008
Manual Visual Basic .Net
Este resumen no está disponible. Haz
clic en este enlace para ver la entrada.
lunes, 18 de febrero de 2008
Uso de Propiedades en los Formularios
Este resumen no está disponible. Haz
clic en este enlace para ver la entrada.
miércoles, 13 de febrero de 2008
CrystalReports
Hace un tiempo me preguntaba como mostrar un Reporte de CrystalReports pero que este se actualizara de acuerdo al Contenido de un DataSet, bien, pues aqui un sencillo ejemplo:
'Obviamente primero deben crear su Reporte en Crystal, ok
'Declaramos una variable local instanciada con el Nombte del Reporte Creado
Dim Report As New Reporte_Ventas
'oConn es un objeto de la Clase CReport, dicha Clase se conecta a la Base de Datos SQL_Server
'(la anexare mas abajo)
Dim oConn As New CReport
'Este DataSet estara vinculado al reporte, para muestre el resultado de la consulta
Dim dsConn As New DataSet
'Mi variable de error
Dim strError As String = ""
'Ahora mi DataSet local se llenara con el resultado de la consulta en la Base de Datos
'SP_Report es un procedimiento almacenado en la base de datos
'Obviamente tambien puediera ser una consulta SQL
dsConn = oConn.Reporte("SP_REPORT", strError)
If strError = "" Then
Report.Load(RutaReporte & "Reporte2.rpt") 'Aqui vinculamos la Ruta fisica del reporte
Report.SetDataSource(dsConn.Tables("TB_REPORTE")) 'Vinculamos los datos a mostrar
'con el resultado de la consulta en el DataSet, aqui algo importante, el nombre de la tabla
'en el DataSet, debe coincidir con la tabla utilizada en el reporte
Report.SetDatabaseLogon(User, Pwd, server, basedatos) 'Aqui se controla el acceso a la
'Base de Datos, usuario, password, servidor y nombre de la base de datos usada
Report.SetParameterValue(0, Nombre) 'En caso de que el reporte incluya parametros,
'asi les pasamos el valor a mostrar
'Nuestro Formulario debe incluir el CrystalReportViewer para visualizarlo
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.ReportSource = Report
'O si lo queremos imprimir directo, seria:
CrystalReportViewer1.PrintReport
Else
MsgBox(strError)
End If
Codigo de la Clase CReport
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Public Class CReport
Private strConx As String
Public Sub New()
strConx = Data Source=HCANOS\SQL_2005;Initial catalog=sistema;password=0000;persist security info=True;user id=sa;Max Pool Size=2000;packet size=4096
End Sub
Public Function Reporte(ByVal pStoreProcedure, ByRef pError) As Data.DataSet
Dim objConn As New SqlConnection
objConn.ConnectionString = strConx
Dim objCmd As New SqlCommand
objCmd.CommandType = Data.CommandType.StoredProcedure
objCmd.Connection = objConn
objCmd.CommandText = pStoreProcedure
Dim daAdapter As New SqlDataAdapter
daAdapter.SelectCommand = objCmd
Dim dsDatos As New Data.DataSet
Try
daAdapter.Fill(dsDatos, "TB_REPORTE")
Return dsDatos
Catch e As SqlException
pError = "Error:" & e.Message & " en " & e.Source
Catch e As Exception
pError = "Error:" & e.Message & " en " & e.Source
Finally
objCmd.Dispose()
objConn.Dispose()
End Try
End Function
End Class
Cualquier duda, dejen su comentario!!!
'Obviamente primero deben crear su Reporte en Crystal, ok
'Declaramos una variable local instanciada con el Nombte del Reporte Creado
Dim Report As New Reporte_Ventas
'oConn es un objeto de la Clase CReport, dicha Clase se conecta a la Base de Datos SQL_Server
'(la anexare mas abajo)
Dim oConn As New CReport
'Este DataSet estara vinculado al reporte, para muestre el resultado de la consulta
Dim dsConn As New DataSet
'Mi variable de error
Dim strError As String = ""
'Ahora mi DataSet local se llenara con el resultado de la consulta en la Base de Datos
'SP_Report es un procedimiento almacenado en la base de datos
'Obviamente tambien puediera ser una consulta SQL
dsConn = oConn.Reporte("SP_REPORT", strError)
If strError = "" Then
Report.Load(RutaReporte & "Reporte2.rpt") 'Aqui vinculamos la Ruta fisica del reporte
Report.SetDataSource(dsConn.Tables("TB_REPORTE")) 'Vinculamos los datos a mostrar
'con el resultado de la consulta en el DataSet, aqui algo importante, el nombre de la tabla
'en el DataSet, debe coincidir con la tabla utilizada en el reporte
Report.SetDatabaseLogon(User, Pwd, server, basedatos) 'Aqui se controla el acceso a la
'Base de Datos, usuario, password, servidor y nombre de la base de datos usada
Report.SetParameterValue(0, Nombre) 'En caso de que el reporte incluya parametros,
'asi les pasamos el valor a mostrar
'Nuestro Formulario debe incluir el CrystalReportViewer para visualizarlo
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.ReportSource = Report
'O si lo queremos imprimir directo, seria:
CrystalReportViewer1.PrintReport
Else
MsgBox(strError)
End If
Codigo de la Clase CReport
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Public Class CReport
Private strConx As String
Public Sub New()
strConx = Data Source=HCANOS\SQL_2005;Initial catalog=sistema;password=0000;persist security info=True;user id=sa;Max Pool Size=2000;packet size=4096
End Sub
Public Function Reporte(ByVal pStoreProcedure, ByRef pError) As Data.DataSet
Dim objConn As New SqlConnection
objConn.ConnectionString = strConx
Dim objCmd As New SqlCommand
objCmd.CommandType = Data.CommandType.StoredProcedure
objCmd.Connection = objConn
objCmd.CommandText = pStoreProcedure
Dim daAdapter As New SqlDataAdapter
daAdapter.SelectCommand = objCmd
Dim dsDatos As New Data.DataSet
Try
daAdapter.Fill(dsDatos, "TB_REPORTE")
Return dsDatos
Catch e As SqlException
pError = "Error:" & e.Message & " en " & e.Source
Catch e As Exception
pError = "Error:" & e.Message & " en " & e.Source
Finally
objCmd.Dispose()
objConn.Dispose()
End Try
End Function
End Class
Cualquier duda, dejen su comentario!!!
martes, 12 de febrero de 2008
Impresora de Tickets!!!
Este resumen no está disponible. Haz
clic en este enlace para ver la entrada.
Suscribirse a:
Entradas (Atom)
-
Hace un tiempo me preguntaba como mostrar un Reporte de CrystalReports pero que este se actualizara de acuerdo al Contenido de un DataSet, b...
-
Cuando se requiere conectar tu aplicación a un origen de datos, una página muy útil es: www.connectionstrings.com En ella encontrarás la ... -
Swing es una tecnologia que utiliza Java para aplicaciones de Escritorio aqui les dejo un manual que he encontrado en la red, para los que d...