Felix
03 de Mayo del 2005

Tengo el siguiente codigo y me da problemas, que "No es posible conectar"... de antemano agradezco a quien pueda ayudar....


'******************************************

Private Sub cmdexport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdexport.Click

Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim Fname As String

''Crea el Informe
'crReportDocument = New ReportDocument
''//********************************************

''// Carga el Reporte
' crReportDocument.Load(Ruta)
crReportDocument.SetParameterValue("hasta", CInt(pcfinal))
crReportDocument.SetParameterValue("desde", CInt(pcinicial))
''//********************************************

''// Asocia el conjunto de datos con el reporte
crReportDocument.SetDataSource(Dsorigen)
''//********************************************

''// Configura la Informacion de Conexion del Reporte preparado para exportar
crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.ServerName = Servidor
crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.UserID = Login
crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.Password = Password
crReportDocument.Database.Tables.Item(cNomb_tabla).LogOnInfo.ConnectionInfo.DatabaseName = NomBD '"bdemp20"
''//********************************************

''// Directorio a donde va a exportar
Fname = Server.MapPath("exports" & cNomb_Report & ".pdf")
''//********************************************

''// Configura la opcion de Exportar: PDF,EXEL etc.
crDiskFileDestinationOptions = New DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = Fname
crExportOptions = crReportDocument.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
''//********************************************

''// Exporta el Reporte
crReportDocument.Export()
crReportDocument.Close()
''//********************************************

''// Redirecciona
'Response.Clear()
Response.ContentType = "application/pdf"
Response.Redirect(Fname)

'Response.WriteFile(Server.MapPath("exportsrptCuentas_contables.pdf"))
'Response.WriteFile(Server.MapPath("exportsrptCuentas_contables.pdf"), IO.FileMode.Open, IO.FileAccess.ReadWrite)





' to the Client's browser.
'Response.ClearContent()
'Response.ClearHeaders()
'Response.ContentType = "application/pdf"
'Response.WriteFile(Fname)
'Response.Flush()
'Response.Close()

' delete the exported file from disk
'System.IO.File.Delete(Fname)


'Response.Redirect(ExportPath + ExportedFileName)


End Sub
'*****************************

Hay tambien unas lineas de comentarios, que son tambien las formas que he intentado...


Quien me pueda ayudar se lo agradezco...

Felix
03 de Mayo del 2005

Se me olvidaba... estoy trabajando con Crystal Report y SQLServer2000....

Alex
03 de Mayo del 2005

Hola, puedes ver un ejemplo en http://www.buayacorp.com/archivos/exportar-reportes-crystal-reports-en-aspnet/

:o
03 de Mayo del 2005

que experto

felix
03 de Mayo del 2005

pues si funciona pero con dataset\'s fisiscos estoy haciendo la conexion del reporte por medio del siguiente codigo....

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

asignar_nombre_reporte()

\'crreportdocument.Load(ruta, OpenReportMethod.OpenReportByTempCopy)
crreportdocument.Load(rutarpt)

asignar_parametro()

crreportdocument.Database.Tables.Item(0).LogOnInfo.ConnectionInfo.ServerName = servidor
crreportdocument.Database.Tables.Item(0).LogOnInfo.ConnectionInfo.Password = password
crreportdocument.Database.Tables.Item(0).LogOnInfo.ConnectionInfo.UserID = login
crreportdocument.Database.Tables.Item(0).LogOnInfo.ConnectionInfo.DatabaseName = nombd

CrystalReportViewer1.ReportSource = crreportdocument
CrystalReportViewer1.LogOnInfo.Item(0).ConnectionInfo.ServerName = servidor
CrystalReportViewer1.LogOnInfo.Item(0).ConnectionInfo.UserID = login
CrystalReportViewer1.LogOnInfo.Item(0).ConnectionInfo.Password = password
CrystalReportViewer1.LogOnInfo.Item(0).ConnectionInfo.DatabaseName = nombd
CrystalReportViewer1.DataBind()

\'connectionchange()
aplicarmargen()

Felipe Henr?ez
03 de Mayo del 2005

En el siguiente enlace te explican paso a paso para lograr exportar una grilla con adornos a excel:

http://www.panoramabox.com/GoPub.aspx?IdObj=3053