Como cargo un reporte en ASP.NET

NET, no se si este es tu fuerte pero si me puedes ayudar te lo agradeceré, resulta que estoy iniciando con ASP.NET, ya tengo mi pequeña página y ahora en esa página quiero cargar un reporte que hice en crystall, el problema esta en que cuando llamo al reporte desde la página siempre me pide la autentificación a la BD, ahí te paso el código que uso, primero declaro mi conexión, declaro un dataadpter y su dataset, lleno el dataset y le paso ese dataset con sus datos al reporte, pero al cargar el reporte como te decía antes me pide que me autentifique, si lo hago luego me pmuestra los datos en el reporte (viewer)
Cuando diseñe el reporte cree una conexión ado a la BD (sql server 2005) para poder obtener las tablas y así formar dicho esquema del reporte, ahí te paso el código que uso. Me puedes ayudar.
Dim iCon As SqlConnection = New SqlConnection("Data Source=MyServer;Initial Catalog=BDPruebas;Persist Security Info=True;User ID=Usuario1;Password=abc")
Dim dt As SqlDataAdapter = New SqlDataAdapter("select * from mClientes", iCon)
Dim ds As New DataSet
dt.Fill(ds, "wE")
Try
Dim Reporte As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Reporte.Load(Server.MapPath("CrystalReport.rpt"))
Reporte.SetDataSource(ds)
CrystalReportViewer2.ReportSource = Reporte
Catch ex As Exception
MsgBox("error..." + ex.Message)
End Try

1 Respuesta

Respuesta
1
En que evento lo pones
Para que te funcione debe de ir en el init de la página
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método
'No la modifique con el editor de código.
InitializeComponent()
//con todo esto ago mi consulta
Dim sql As New EjecutadordeSQL("select Nombre + ' ' + ApellidoPaterno + ' ' + ApellidoMaterno, NoEnrolado from Enrolados where Noenrolado in ( " & Session("idenrolado") & ")")
Dim data As DataSet
Dim i As Integer
Dim dts As New Aseguradora
data = sql.datos
While i < data.Tables(0).Rows.Count
Dim dtr As DataRow
Dim j As Integer
Dim sql2 As New EjecutadordeSQL("select * from EN_Aseguradora where NoEnrolado=" & data.Tables(0).Rows(i).Item(1))
Dim tab As DataSet
Try
Dim sql3 As New EjecutadordeSQL("select * from fechaspoliza where idEnrolado= '" & data.Tables(0).Rows(i).Item(1) & "'")
Dim dtsFechas As DataSet
dtsFechas = sql3.datos
dtr = dts.Tables("DatosAseguradora").NewRow
If dtsFechas.Tables.Count > 0 Then
If dtsFechas.Tables(0).Rows.Count > 0 Then
dtr.Item("Nombre") = data.Tables(0).Rows(i).Item(0)
dtr.Item("fechaInicio") = dtsFechas.Tables(0).Rows(0).Item(1)
dtr.Item("FechaFin") = dtsFechas.Tables(0).Rows(0).Item(2)
Else
dtr.Item("Nombre") = data.Tables(0).Rows(i).Item(0)
dtr.Item("fechaInicio") = Today.Now.Year.ToString & "/" & Today.Now.Month.ToString & "/" & Today.Now.Day.ToString
dtr.Item("FechaFin") = Today.Now.AddYears(1).Year & "/" & Today.Now.Month.ToString & "/" & Today.Now.Day.ToString
sql = New EjecutadordeSQL("insert into Fechaspoliza values ('" & data.Tables(0).Rows(i).Item(1) & "','" & Today.Now.Year.ToString & "/" & Today.Now.Month.ToString & "/" & Today.Now.Day.ToString & "','" & Today.Now.AddYears(1).Year & "/" & Today.Now.Month.ToString & "/" & Today.Now.Day.ToString & "')")
sql.FuncionEjcutar()
End If
Else
dtr.Item("Nombre") = data.Tables(0).Rows(i).Item(0)
dtr.Item("fechaInicio") = Today.Now.Year.ToString & "/" & Today.Now.Month.ToString & "/" & Today.Now.Day.ToString
dtr.Item("FechaFin") = Today.Now.AddYears(1).Year & "/" & Today.Now.Month.ToString & "/" & Today.Now.Day.ToString
sql = New EjecutadordeSQL("insert into Fechaspoliza values ('" & data.Tables(0).Rows(i).Item(1) & "','" & Today.Now.Year.ToString & "/" & Today.Now.Month.ToString & "/" & Today.Now.Day.ToString & "','" & Today.Now.AddYears(1).Year & "/" & Today.Now.Month.ToString & "/" & Today.Now.Day.ToString & "')")
sql.FuncionEjcutar()
End If
tab = sql2.datos
Try
dtr.Item("Beneficiario1") = tab.Tables(0).Rows(0).Item(2)
Catch ex As Exception
End Try
Try
dtr.Item("Beneficiario2") = tab.Tables(0).Rows(1).Item(2)
Catch ex As Exception
End Try
Try
dtr.Item("Beneficiario3") = tab.Tables(0).Rows(2).Item(2)
Catch ex As Exception
End Try
Try
dtr.Item("Beneficiario4") = tab.Tables(0).Rows(3).Item(2)
Catch ex As Exception
End Try
Catch ex As Exception
End Try
i = i + 1
dts.Tables("DatosAseguradora").Rows.Add(dtr)
End While
//Termina la Consulta
ahora que ya tengo la tabla se la asigno al cristal
Dim cristal As New FormatoAseguradora  'Nombre del reporte
cristal.SetDataSource(dts)  ' asignas el dataset
Me.CrystalReportViewer1.ReportSource = cristal ' lo enlazas al cristalreportviewr
Me.CrystalReportViewer1.DataBind() ' enlazas la pagina
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Error al insertar datos VB

Lo que pasa e es que tengo las siguientes funciones, pero al tratar de insertar los datos me aparece el error que relsalto en negro y no se como corregirlo, ya he mirado las tablas SQL todo y no veo por ningún lado el error... Mil gracias... Function...
2 respuestas

VB.net error en Rows(Fila).Delete()

Estoy pasando de VB6 a VB Express 2008 y el cambio en el tratamiento de las Bases de Datos es muy distinto y me está costando mucho trabajo. Estoy tratando de actualizar, insertar y eliminar una fila, y en todos los casos me da el mismo error, me...
1 respuesta

Informe con origen en tablas variables

Estoy haciendo un software para una organización sin ánimo de lucro (ONG) y me he encontrado con un problema. Es una aplicación en vb.net que conecta con una base de datos MS SQL. En principio parce funcionar todo de maravilla, y el único problema...
2 respuestas

Error de formato tablas en visual basic

Tengo el siguiente error y no se como corregirlo. Ya he mirado las declaraciones, las tablas y mucho más pero no lo encuentro.. Mil garcías. System. Data. OleDb. OleDbException: La tabla externa no tiene el formato esperado. En System. Data. OleDb....
2 respuestas

DataGridView y CrystalReportView

De nuevo experto aquí tratando de recurrir a usted para ver si me puede ayudar con este código que he hecho y quiero que haga lo siguiente: Cuando el usuario presione el botón imprimir dentro del mismo formulario salga el crystalreportview y muestre...
2 respuestas

Exportar .sdf a .txt en visual basic .net

Disculpa desarrollo en visual studio 2005 en el lenguaje visual basic, con una aplicación para windows ce 5.0 tengo el dispositivo y ya logro conectar y hacer un programa creando base de datos conectado a sql server compact edition, el problema aquí...
4 respuestas

Seleccionar item de un combo y rellenar un textbox

Estoy iniciando con esto de VB. Net... Tengo una base de datos que migre desde access... Descargue Sql Server Express 2008 y Visual Studio 2008 para crear la interfaz... Ya estoy dando mis primeros pasos creando la conexión a la base que tengo en Sql...
1 respuesta

Validar al grabar cebeceza y detalle

Mi nombre es marco guttierrez y quisiera que me ayuden al ingresar los datos de la cabecera y el detalle de un documento quiero validarlo me explico por ejemplo si intento grabar un documento (Cabecera y detalle) ... Y tengo un error en el detalle va...
1 respuesta

Visual basic.net

Estoy trabajando un proyecto con vb.net y mysql ... El problema me surgió cuando utilice en 2 procedimientos unos dataadapter..., el primero lo uso para limpiar ciertos txtbox según los que en la base de datos estén habilitados para ser borrados cada...
1 respuesta

Reportes dinámicos en visual basic

Antes que nada mencionar que estoy trabajando en visual basic con el Visual Studio 2010, como gestor de base de datos el SQL 2008 y para los reportes la herramienta que trae por defecto el visual (ReportViewer). Mi problema no es la creación de los...
1 respuesta