Visual Basic - String Connection Crystal Report

Life is soft - evento anual de software empresarial
   
Vista:

String Connection Crystal Report

Publicado por Carlos (2 intervenciones) el 06/11/2007 22:31:42
Hoal amigos,

Pueden ayudarme quisiera ver como puedo realizar una coneccion a una base de datos pero a través de un string connection, para desplegar un crystal report, hasta ahora lo hago con un ODBC, como en l siguiente ejemplo:

Dim crRept
Dim crApp
Dim Tipo, Sin, x, aux

stop

set crApp = CreateObject("CrystalRuntime.Application")
set crRept = CreateObject("CrystalRuntime.Report")
set crRept = crApp.OpenReport(application.GlobalInfo.LibraryPath &"\siniestralidad.rpt")
Tipo = 4
CRept.Database.LogOnServer "p2sodbc.dll", "PROD", "real", "crmdfff", "1sdfasdf"
crRept.RecordSelectionFormula = "{tmp_siniestralidad.id_tmp}=27380"
crRept.FormulaFields.Item(4).Text = "'01/12/2005'"
crRept.FormulaFields.Item(5).Text = "'10/30/2007'"
crRept.FormulaFields.Item(10).Text = "'1'"
crRept.FormulaFields.Item(9).Text = "''"
crRept.FormulaFields.Item(8).Text = "'DOLARES'"
crRept.FormulaFields.Item(30).Text = "'Asegurado:'"
crRept.FormulaFields.Item(31).Text = "'NESTLE ECUADOR S.A'"
CRRept.DiscardSavedData
CRViewer1.ReportSource = crRept
crRept.VerifyOnEveryPrint = True
CRViewer1.DisplayGroupTree = False
CRViewer1.EnableExportButton = True
CRViewer1.ViewReport
CRViewer1.Zoom 100

Espero puedan ayudarme por que no se como conectarme con un string connection
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:String Connection Crystal Report

Publicado por El conejo (124 intervenciones) el 06/11/2007 22:48:08
Hola,
has probado con utilizar una base de datos de paso con tablas auxiliares que alojen los campos que quieras mostrar en tu reporte y luego cargar el reporte de una forma un poco mas simple?.
ej:
Dim BaseImp As ADODB.Connection
Set BaseImp = New ADODB.Connection
BaseImp.ConnectionString = ConexionImpresion
BaseImp.CursorLocation = adUseClient
BaseImp.Open
BaseImp.Execute ("Delete from tabla where campo='" & campo & "'")
BaseImp.Execute ("Insert Into tabla..........")

y luego ...

Dim Cr As CrystalReport
Set Cr = me.CrystalReport1 'control
Cr.WindowHeight = 0
Cr.WindowWidth = 0
Cr.WindowTop = 0
Cr.WindowLeft = 0
Cr.ReportFileName = "reporte.rpt"
Cr.SelectionFormula = "{tabla.campo}='" & campo & "'" '
Cr.DataFiles(0) = RutaBaseImpresion ' rutabasededatos

no sé si te sirva de algo pero ahí va.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar