none
ayuda al modificar código para imprimir un datagriedvie RRS feed

  • 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)
    miércoles, 22 de junio de 2011 14:12

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.

     

     

    miércoles, 22 de junio de 2011 14:42
  • 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 ...
    miércoles, 22 de junio de 2011 15:17