Run-Time error '-2147192184(80047288)'; Server has not yet been opened

mvazquez · #1 (**permalink**) 27/10/2004, 11:42

Hola estoy tratando de Exportar un documento de Crystal 8.5 des de VB 6 pero me marca este error Run-Tome error '-2147192184(80047288)'; Server has not yet been opened......... ya baje el MDAC 2.8 y sigue la cosa igual, utilizo esta rutina:

Dim Export As CRAXDRT.ExportOptions
Dim Report As CRAXDRT.Report
Dim appl As New CRAXDRT.Application

appl.LogOnServer "PDSODBC.DLL", "ExxSysTech", "", "", ""

Set Report = appl.OpenReport(pathREPORTES & "EXCO1010.rpt", 1)

Report.ExportOptions.DestinationType = crEDTDiskFile
Report.ExportOptions.FormatType = crEFTPortableDocFormat
Report.ExportOptions.DiskFileName = pathINTERNET & 10 & ".pdf"
Report.Export False

ExxSysTech = Es el ODBC que creo en la maquina
EXCO1010 = Es el nombre del reporte que quiero exportar
Utilizo la Referencia.......... Crystal Report 8.5 ActiveX Designer Run Time Library

Si alguien sabe o ha experimentado el mismo problema y lo soluciono por favor paseme el tip. Gracias.

[email protected]
Monterrey, Mexico.

GeoAvila · #2 (**permalink**) 27/10/2004, 12:50

lo mas probable es que no este bien el direccionamiento a la base de datos o bien no esta abierta la conexion

mvazquez · #3 (**permalink**) 27/10/2004, 14:18

Hola, si de hecho es eso, lo que estoy tratando de encontrar es una solucion ya se que es porque el servidor no ha sido abierto.......... alguien tiene alguna idea de como lo puedo solucionar?

Gracias!!