none
Ayuda con el dataset no me funciona RRS feed

  • Pregunta

  • Hola tengo un problema cuando intento cargar mis datos

      • cree un nuevo dataset en el cual cree la una datatable1 y le agregue las columnas que necesitaba que son 8 y le coloque los nombre igual que en la base se datos 
      • luego cree un nuevo Reporte y le coloque el nombre de Reporte.crt
      • luego cree un form que lo llame visualizar, en el coloque un datagrid para mostrar los datos un botón que sirve para imprimir el el crystalview pero mo me funciona prueba la conexión y me dice que esta bien 
      • el datagrid carga los datos almacenados en la tabla de actividaes
      • este es mi codigo si me pueden decir donde me Equivoco o como solucionarlo:

    Imports System.Data Imports System.Data.SqlClient Imports System.Data.OleDb Imports System.Text Public Class VisorReporte Dim sCadena As String = "Data Source=CHACON-PC\SQLEXPRESS;Initial Catalog= Sarahi;User Id=sa;Password=123" Dim datos As New DataSet Dim base As New SqlDataAdapter("Select * from tblActividades", sCadena) Dim com As String Private Sub Imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprimir.Click Dim oCnn As New OleDbConnection 'SqlConnection ' Objeto de conexion a la base de datos

    Dim daDatos As New OleDbDataAdapter 'SqlDataAdapter ' Objeto Adaptador para leer datos de la Base de datos Dim cmdExec As New OleDbCommand 'SqlCommand ' objeto comando para ejecutar sentencias sql,e provado de las dos maneras(sql, oledb) pero no se cual de los 2 realmente me funcionaria 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=sqloledb;Data Source=CHACON-PC\SQLEXPRESS;Initial Catalog= Sarahi;User Id=sa;Password=123;" 'Provider=SQLOLEBDB;Server=CHACON-PC\SQLEXPRESS;Database=Sarahi;Uid=sa; Pwd=123;" 'Data Source=CHACON-PC\SQLEXPRESS;Initial Catalog= Sarahi;User Id=sa;Password=123 oCnn.Open() cmdExec = oCnn.CreateCommand cmdExec.Connection = oCnn sbQuery.Append("SELECT Descripcion ") sbQuery.Append(" ,FechaInicio ") sbQuery.Append(" ,FechaFinal ") sbQuery.Append(" ,PorcentajeAvance ") sbQuery.Append(" ,NombreUsuario ") sbQuery.Append(" ,Observaciones ") sbQuery.Append(" ,FechaInicio1 ") sbQuery.Append(" ,FechaFinal1 ") sbQuery.Append(" FROM tblActividades ") cmdExec.CommandText = sbQuery.ToString daDatos = New OleDbDataAdapter(cmdExec) 'SqlDataAdapter daDatos.Fill(dtDatos) Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument Dim crReports As New CrystalDecisions.CrystalReports.Engine.ReportDocument ' Asigno el reporte CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument CrReport.Load(Application.StartupPath & "\Reporte.rpt") CrReport.SetDataSource(dtDatos) CrystalReportViewer1.ReportSource = CrReport Catch ex As Exception MessageBox.Show("excepcion: " & ex.Message, "Mostrando Reporte") End Try End Sub Private Sub VisorReporte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load base.Fill(datos) DataGridView1.DataSource = datos.Tables(0) End Sub End Class

    Ayuda por favor 

    siempre me aparece una pantalla que dice el informe no puede ser cargado 
    • Editado t3t0 jueves, 13 de septiembre de 2012 17:37
    jueves, 13 de septiembre de 2012 17:36

Respuestas