Crystal Report - muy urgente

   
Vista:

muy urgente

Publicado por luis (1 intervención) el 05/03/2008 16:14:44
Estoy intentando cambiar la ubicación de la Base de datos por código, pero tengo problemas.

el código que utilizo es el siguiente:
Option Explicit

Dim Report As New Crystal_GPCOAC

Private Sub Form_Load()
Dim Indice As Integer
Dim CProperty As CRAXDRT.ConnectionProperties
Dim CRXDatabase As CRAXDRT.DatabaseTable

NewCn.Open "Driver=Microsoft access Driver (*.mdb);DBQ=" & Frm_Principal.Txt_Origen.Text & ";User ID='';Password=''"

For Indice = 1 To Report.Database.Tables.Count
Report.Database.Tables(Indice).ConnectionProperties("Data Source") = Frm_Principal.Txt_Origen.Text
Next Indice

Screen.MousePointer = vbHourglass
CRViewer1.EnableGroupTree = False
CRViewer1.ReportSource = Report
'CRViewer1.EnableExportButton = True
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

El report está enlazado a una Base de Datos Access, pero yo por programa quiero cambiar a una nueva ubicación. (Hago una replica de la BD y quiero utilizar esta nueva).

Utilizo Report desde visual, no son Rpt independientes, pero me dá un problema dentro del for. Indice fuera de rango.

Es muy urgente, gracias de antemano.
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:muy urgente

Publicado por likolo (2 intervenciones) el 11/03/2008 00:26:44
Esto es lo que utilizo yo para cambiar la base de datos de los report.
un daludo.

Dim CPProp As CRAXDRT.ConnectionProperty
Dim DBTabl As CRAXDRT.DatabaseTable

Set DBTabl = crReport.Database.Tables(1) 'Obtiene la primera Tabla del reporte
BTabl.Location = RutaEmpresa <---- pon la ruta de la base de datos.
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