Usuario
ayuda al modificar código para imprimir un datagriedvie

Pregunta
-
he seguido este ejemplo [Crystal Reports] - Exportar DataGridView a Crystal pero llego hasta poner el codigo en el boton, y no logro traducir el codigo a como es mi conexion. este es el codigo del ejemplo. Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click Dim oCnn As New OleDbConnection ‘ Objeto de conexion a la base de datos Dim daDatos As New OleDbDataAdapter ‘ Objeto Adaptador para leer datos de la Base de datos Dim cmdExec As New OleDbCommand ‘ objeto comando para ejecutar sentencias sql Dim dtDatos As New DataTable ‘ datatable para recibir los datos de la base de datos Dim sbQuery As New StringBuilder ‘ StringBuilder para armar cadenas Try oCnn.ConnectionString = "Provider=SQLNCLI10;Server=ralvarado;Database=MiBD;Uid=sa; Pwd=XXX;" oCnn.Open() cmdExec = oCnn.CreateCommand cmdExec.Connection = oCnn sbQuery.Append("SELECT Consecutivo ") sbQuery.Append(" ,IdentificacionPersona ") sbQuery.Append(" ,TipoPersona ") sbQuery.Append(" ,Grupo ") sbQuery.Append(" ,PrimerNombre ") sbQuery.Append(" ,PrimerApellido ") sbQuery.Append(" ,SegundoApellido ") sbQuery.Append(" ,Sexo ") sbQuery.Append(" ,Profesion ") sbQuery.Append(" ,Direccion1 ") sbQuery.Append(" ,Direccion2 ") sbQuery.Append(" ,TelFijo1 ") sbQuery.Append(" ,TelFijo2 ") sbQuery.Append(" ,TelMovil ") sbQuery.Append(" ,PaginaWeb ") sbQuery.Append(" ,ZonaPostal ") sbQuery.Append(" ,Fax ") sbQuery.Append(" ,Email1 ") sbQuery.Append(" ,Email2 ") sbQuery.Append(" ,FechaNacimiento ") sbQuery.Append(" FROM Persona ") cmdExec.CommandText = sbQuery.ToString daDatos = New OleDbDataAdapter(cmdExec) daDatos.Fill(dtDatos) Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument ' Asigno el reporte CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument() CrReport.Load(Application.StartupPath & "\crPersonas.rpt") CrReport.SetDataSource(dtDatos) CrystalReportViewer1.ReportSource = CrReport Catch ex As Exception MessageBox.Show("excepcion: " & ex.Message, "Mostrando Reporte") End Try End Sub Y este es mi codigo para llenar el data Dim query As String = "SELECT Codigo, Nombre, Direccion, Telefono, Cargo" & _ "FROM empleados " Using cn As New SqlConnection(cs) cn.Open() Dim cmd As New SqlCommand(query, cn) Dim da As New SqlDataAdapter(cmd) Dim dt As New DataTable da.Fill(dt) Data.DataSource = dt End Using por favor si pueden ayudarme.
epicentro_azul@hotmail.com ...- Cambiado Enrique M. Montejo miércoles, 29 de junio de 2011 6:39 crystal reports (De:Lenguaje VB.NET)
Todas las respuestas
-
Si el problema es que no sabes como conectar la cadena de conexión, puedes echar un vistazo a esta página:
http://msdn.microsoft.com/es-es/library/ms171886(v=vs.80).aspx
Si nos das mas datos acerca de la base de datos, quizás podremos darte ayuda mas especifica.
Un saludo
P.D: Ayudanos a ayudarte, es bastante complicado leer tu post sin saltos de linea.
-
no se que problema tengo en este foro que cada ves que quiero escribir, me sale todo junto, ademas no tengo las opciones, de darle formato a los textos ni insertar codigo ni nada...
Dim cs As String = "Data Source=192.168.0.1\SQLEXPRESS;Initial Catalog=SanIsidro;User ID=Carlos; Password=4560"
Dim cs As String = "Data Source=192.168.0.1\SQLEXPRESS;Initial Catalog=SanIsidro;User ID=Carlos; Password=4560"
Dim query As String = "SELECT Codigo, Nombre, Direccion, Telefono, Cargo" & _
"FROM empleados "
Using cn As New SqlConnection(cs)
cn.Open()
Dim cmd As New SqlCommand(query, cn)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
Data.DataSource = dt
End Using
End Sub
me conecta todo normal y bien, perosegui el ejemplo anterior para hacer un reporte de un datgriedviw, pero nologro modificar el codigo
epicentro_azul@hotmail.com ...