Visual Basic - Urgente

Life is soft - evento anual de software empresarial
   
Vista:

Urgente

Publicado por luis (7 intervenciones) el 05/03/2008 15:51:57
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:Urgente

Publicado por romasa (43 intervenciones) el 05/03/2008 16:26:50
For Indice = 0 To Report.Database.Tables.Count -1
Report.Database.Tables(Indice).ConnectionProperties("Data Source") = Frm_Principal.Txt_Origen.Text
Next Indice

¿?
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

RE:Urgente

Publicado por luis (7 intervenciones) el 05/03/2008 16:32:19
no funciona ya lo había probado. El count es 2 que son las dos tablas que mi diseñador de Crystal hace referencia.

La cuestión es poder cambiar la ubicacion de la BD que yo le dí al definir el diseñador, pero por código visual.
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

RE:Urgente

Publicado por Pedro Luis (878 intervenciones) el 06/03/2008 10:33:59
No dices que Crystal usas, yo con el 9 hago lo siguiente

Dim Propiedad1 As CRAXDRT.ConnectionProperty
Dim Tablas1 As CRAXDRT.DatabaseTable
Set Tablas1 = Listado1.Database.Tables(1)
Set Propiedad1 = Tablas1.ConnectionProperties("Database Name")
Propiedad1.Value = App.Path + "" + nombre de la base
Set Propiedad1 = Tablas1.ConnectionProperties("Database Password")
Propiedad1.Value = "clave"
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