Error de conexion DSN con Crystal Report
Publicado por Morrison (90 intervenciones) el 24/11/2003 17:33:46
Hola amigos, tengo el sgte problema:
Llamo a un reporte de CR con conexión ODBC y me dá el sgte. error "No se puede buscar DSN en la cadena de conexión".
Vi en la página lawabcrystal.com.
- cree un tabla temporal con mis datos
- cree un reporte con conexion xBase
y me resulta bien
pero cuando me conecto a una Base de Datos ODBC y preparo el reporte.
Lo ejecuto desde un formulario y me sale ese mensaje
¿Que estoy haciendo mal?
El sgte es mi codigo:
loCR=CREATEOBJECT("crystalruntime.application")
loRpt=loCR.OpenReport(".\Informes\"+m.dbfName+".rpt")
* Cree el objeto Database
loDB = loRpt.Database()
* Obtenga una referencia a la colección DatabaseTables
locDBT = loDB.Tables()
* Obtenga una referencia al objeto DatabaseTable para la tabla 1
loDBT = locDBT.Item(1)
* Asigne la ubicación
* Ésta funciona para un DSN
loDBT.SetLogOnInfo("Sistema Despacho")
IF loRPt.HasSavedData
loRPT.DiscardSavedData()
ENDIF
loRpt.Database.Tables(1).location=lcTabla
This.oleCRViewer.ReportSource= loRpt
This.oleCRViewer.ViewReport() ***áquí me muestra el mensaje de error
Agradezco la atención
Llamo a un reporte de CR con conexión ODBC y me dá el sgte. error "No se puede buscar DSN en la cadena de conexión".
Vi en la página lawabcrystal.com.
- cree un tabla temporal con mis datos
- cree un reporte con conexion xBase
y me resulta bien
pero cuando me conecto a una Base de Datos ODBC y preparo el reporte.
Lo ejecuto desde un formulario y me sale ese mensaje
¿Que estoy haciendo mal?
El sgte es mi codigo:
loCR=CREATEOBJECT("crystalruntime.application")
loRpt=loCR.OpenReport(".\Informes\"+m.dbfName+".rpt")
* Cree el objeto Database
loDB = loRpt.Database()
* Obtenga una referencia a la colección DatabaseTables
locDBT = loDB.Tables()
* Obtenga una referencia al objeto DatabaseTable para la tabla 1
loDBT = locDBT.Item(1)
* Asigne la ubicación
* Ésta funciona para un DSN
loDBT.SetLogOnInfo("Sistema Despacho")
IF loRPt.HasSavedData
loRPT.DiscardSavedData()
ENDIF
loRpt.Database.Tables(1).location=lcTabla
This.oleCRViewer.ReportSource= loRpt
This.oleCRViewer.ViewReport() ***áquí me muestra el mensaje de error
Agradezco la atención
Valora esta pregunta


0