Crystal Report - Cambio de la ubicacion de la base de datos

He leido las notas a cerca del cambio de la base de datos cuando se trabaja en un ared local, se que si hago unos reportes desde otra ubicacion y tengo la misma coneccion para todas las maquinas no hay problema, pero quisiera saber desde codigo como puedo actualizar el origen de la base de datos del sistema cuando los reportes estan el la maquina del servidor
ojala y me ayuden

gracias

lo que tienes que hacer mediante codigo es cambiarle el set location de tu reporte o lo puedes hacer sin codigo en cristal en el menu de data base opcion set location espero te sirva

Gracias lo que no se es la instruccion por codigo del set location haber si tu me puedes dar un ejemplo de esto

gracias por tu ayuda

por ejemplo mi reporte esta en c:\\mop\\r_avance.rpt

desde el local si funciona

pero en otra maquina el path seria \\\\vicente lópez r\\mob\\

como le indico la nueva ubicacion

Hola.

Para cambiar la ubiación de la base de datos, yo utilizo este código, en donde:

Inf: es objeto Report
X: es un objeto Inf.Database.Table
BServidor: Es un string con el nombre del servidor
BDatos: Es el nombre de la base de datos

-------------------------------------------------
'apuntar a la base de datos real
For Each X In Inf.Database.Tables
X.SetLogOnInfo BServidor, UCase(BDatos), "sa", ""
X.SetTableLocation UCase(BDatos) & ".dbo." & X.Name, "", ""
If Not X.TestConnectivity Then
MsgBox "Fallo en la conexion a la nueva base de datos"
End If
Next X
Inf.Database.Verify
------------------------------------------------

Vicente, adopta la costumbre de elaborar tus reportes en donde se encuantra localizada la base de datos y la hora de hacer el "set Location" del reporte, seleccionas "Same as report" y siempre que muevas la base de datos, mueve los reportes, de esta manera en el codigo solo debes invocar el reporte y listo. yo utilizo CR 8.0 y VB 6.0. espero te sirva.

Yo utilizo este codigo despues de llamar el reporte:
Cr1.ReportFileName = App.Path & "\lista.rpt"
For i = 0 To Cr1.RetrieveDataFiles - 1
Cr1.DataFiles(i) = "\\Servidor\Archivos\BaseDatos.mdb"
Next i
Cr1.Action=1