Referencia a la Base de Datos

Hola !!!

Yo lo resuelvi de esta manera, en el DataEnviroment del formulario en
el BeforeOpentTables

*= *gRutaData es la Nueva Ruta donde esta la Base de Datos
Try
If !Empty(gRutaData)
* Make a list of all the cursors in the Data Environment
=Amembers(A_Cursors,Thisform.DataEnvironment,1)
=Asort(A_Cursors, 2)
nStartpos=Asubscript(A_Cursors, Ascan(A_Cursors, "Object"),1)
For I = nStartpos To Alen(A_Cursors,1)
If A_Cursors(I,2) = "Object"
cObjClass = "THISFORM.DATAENVIRONMENT."+A_Cursors(I,1)+".class"
If Eval(cObjClass)="Cursor"
cObjName="THISFORM.DATAENVIRONMENT."+ A_Cursors(I,1)+".DATABASE"
* Wait Window cObjName
Data_Name=Eval(cObjName)

*MESSAGEBOX("This is Data_Name : "+ Data_Name)
* Modify the path to the database
NewDataPath= Alltrim(gRutaData)&&+ Alltrim(Substr(Data_Name, Rat
("\",Data_Name)+1))
* MESSAGEBOX("This is New Ubicacion : "+ gRutaData)
* Wait Window NewDataPath
* Evaluate the cursor object
oRef = Eval( "THISFORM.DATAENVIRONMENT."+A_Cursors(I,1) )
*Modify the Database property with the new path
oRef.Database = NewDataPath

Endif
Else
Exit
Endif
Endfor
Endif
Catch To oEr
=Messagebox("No Error : " + Transform(oEr.ErrorNo) + Chr(13) + ;
"No Línea : " + Transform(oEr.Lineno) + Chr(13) + ;
"Línea : " + oEr.LineContents + Chr(13) + ;
"Procedi..: " + oEr.Procedure + Chr(13) + ;
"Mensaje : " + oEr.Message + Chr(13))
Finally
* Wait Window "Siempre paso por aquí"
Endtry

*=Este codigo me lo dieron del Foro o de PortalFox.




On 24 nov 2008, 10:08, Mario wrote:

Estimados amigos:
Quisisera saber si es posible quitar la referencia a la base de datos
que cada tabla tiene en el entorno de datos.
Saludos y gracias de antemano.