FoxPro/Visual FoxPro - comprobar si existe DBC

   
Vista:

comprobar si existe DBC

Publicado por Ramon (81 intervenciones) el 02/09/2009 16:57:00
Hola buenos dias... quisiera me ayudaran en lo siguiente:

Quiero agregar una rutina a mi sistema para que compruebe la existencia de la Base de Datos en el SERVIDOR... si este esta desconectado o apagado que me muestre un mensaje en la terminal para que se conecte o encienda dicho equipo....

***** ESTO ESTA EN EL MAIN.****
public cRutaData
USE datosempresa IN 1 exclusive &&hay un campo donde esta la ruta de datos...
GO TOP
crutadata=ALLTRIM(rutadatos) = &&\SERVIDORSABICWDATOS
IF!Empty("&cRutaData.BDSABICW.DBC")
MESSAGEBOX('Lo siento.. no se ha encontrado a la Base de Datos en la Red local..'+CHR(13);
+'Verifique que el Equipo SERVIDOR o donde se encuentre la Base de Datos este'+CHR(13);
+'encendido o que el cable de red este conectado al equipo...',0+64,'Fuera de la Red')
QUIT
ELSE
OPEN DATABASE &cRutaData.BDSABICW.DBC SHARED
ENDIF

ya probe con
IF!db("&cRutaData.BDSABICW.DBC") y no funciona.
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:comprobar si existe DBC

Publicado por Guillermo Arias (297 intervenciones) el 03/09/2009 09:12:18
Prueba con el comando FILE para verificar si existen los archivos 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