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.
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


0