no muestra el reporte.
Publicado por rubén (1 intervención) el 10/03/2006 10:38:13
Estoy usando unos reportes que están hechos para una cierta aplicación y tengo que tratarlos desde una web realizada en asp, pero no me dejan mostrarlos, el error que obtengo es:
Error Occurred creating Report Object: Variable de objeto o de bloque With no establecida.
alguien me puede ayudar?.
El código es:
<%@ Page autoeventwireup="false" AspCompat="true" Language="VB" Debug="true" %>
<!-- #include file="AlwaysRequiredSteps.asp" -->
<%
reportname = "Cliente.rpt" 'El fihero se encuentra en el mismo directorio
%>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<img height="30" src="./images/cabecera.jpg" width="860" />
</p>
<p>
<%
Dim Conex
Dim SQL
Dim rst
Dim userid
Dim password
Dim mainReportTableCollection
'Creamos el objeto de conexion ahora...
Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open ("driver={SQL Server};server=SQLSERVER; database=PRUEBAS; uid=usuario;pwd="password")
SQl = " "
' es muy largo para ponerlo aquí, pero es el mismo SQL que requiere el Reporte
Response.Write (SQL)
rst = Conex.Execute(SQL)
If rst.BOF and rst.EOF Then
Response.Write("No hay Clientes activos")
Else
Response.Write("Hay Clientes activos")
userid = "usuario"
password = "password"
session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False
mainReportTableCollection = Session("oRpt").Database.Tables
mainReportTableCollection.Table.SetLogonInfo("10.1.1.1", "pruebas", CStr(Userid), CStr(Password))
Session("oRpt").ParameterFields.GetItemByName("sql").AddCurrentValue(SQL)
End If
Conex.Close
Conex = nothing
%>
<!-- #include file="MoreRequiredSteps.asp" -->
<!-- #include file="SmartViewerActiveX.asp" -->
</p>
</form>
</body>
</html>
Error Occurred creating Report Object: Variable de objeto o de bloque With no establecida.
alguien me puede ayudar?.
El código es:
<%@ Page autoeventwireup="false" AspCompat="true" Language="VB" Debug="true" %>
<!-- #include file="AlwaysRequiredSteps.asp" -->
<%
reportname = "Cliente.rpt" 'El fihero se encuentra en el mismo directorio
%>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<img height="30" src="./images/cabecera.jpg" width="860" />
</p>
<p>
<%
Dim Conex
Dim SQL
Dim rst
Dim userid
Dim password
Dim mainReportTableCollection
'Creamos el objeto de conexion ahora...
Conex = Server.CreateObject ("ADODB.Connection")
Conex.Open ("driver={SQL Server};server=SQLSERVER; database=PRUEBAS; uid=usuario;pwd="password")
SQl = " "
' es muy largo para ponerlo aquí, pero es el mismo SQL que requiere el Reporte
Response.Write (SQL)
rst = Conex.Execute(SQL)
If rst.BOF and rst.EOF Then
Response.Write("No hay Clientes activos")
Else
Response.Write("Hay Clientes activos")
userid = "usuario"
password = "password"
session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False
mainReportTableCollection = Session("oRpt").Database.Tables
mainReportTableCollection.Table.SetLogonInfo("10.1.1.1", "pruebas", CStr(Userid), CStr(Password))
Session("oRpt").ParameterFields.GetItemByName("sql").AddCurrentValue(SQL)
End If
Conex.Close
Conex = nothing
%>
<!-- #include file="MoreRequiredSteps.asp" -->
<!-- #include file="SmartViewerActiveX.asp" -->
</p>
</form>
</body>
</html>
Valora esta pregunta
0