Make sure to Disconnect Set multi off Connect dbname
If you cannot connect then someone has the db and you cannot do your routine. Dennis McGrath ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of mike epstein sony viao office Sent: Thursday, October 16, 2008 5:33 AM To: RBASE-L Mailing List Subject: [RBASE-L] - renaming a database using a variable Good Morning I have found it useful to reload my database each day . this can present some problems especially if there are work stations that are connected . I have tried to create a cmd file to disconnect and then rename the existing database so that when a reload is done the reloaded database is not the back up. Below is the code I have tried but the line 'rename database.rb? .newdbname doesn't seem to work . I'm sure it's something simple. DISCONNECT PLUMBER SET VAR VD DATE = .#DATE SET VAR VD TEXT SET VAR SVD TEXT = (SSTRIP(.VD ,'/')) SET VAR SVD2 TEXT = (SGET(.SVD,4,1)) SET VAR NDBNM TEXT = ('ZPL'+.SVD2) RENAME PLUMBER.RB? .NDBNM.RB? LABEL ONE CONNECT SET VAR VMSG3 TEXT = ('PLEASE CONNECT TO '& .NDBNM) IF (CVAL('DATABASE')) <> .NDBNM THEN PAUSE 3 USING .VMSG3 GOTO LABEL ONE ENDIF SET MULTI OFF SET VAR vmsg TEXT SET VAR vmsg = ('Line 1:'+(CHAR(009))+(CHAR(009))&'ARE YOU READY TO RELOAD PLUMBER FROM' &(CTXT(.ndbnm))+(CHAR(013))) DIALOG .vmsg vyesno vendkey yes + CAPTION ' RELOADS THE DATABASE' + ICON APP + OPTION TITLE_FONT_COLOR BLACK + |TITLE_BACK_COLOR WHITE + |TRANSPARENCY 255 + |WINDOW_BACK_COLOR WHITE + |BUTTON_YES_CAPTION &YES + |BUTTON_NO_CAPTION &NO + |BUTTON_YES_COLOR GREEN + |BUTTON_NO_COLOR RED + |BUTTON_YES_FONT_COLOR WHITE + |BUTTON_NO_FONT_COLOR WHITE IF vyesno = 'NO' THEN GOTO end3 ENDIF SET ERROR MESSAGES ON;SET MESSAGES ON;SET ECHO ON RELOAD PLUMBER CONNECT PLUMBER SET MULTI ON SET ERROR MESSAGES OFF;SET MESSAGES OFF;SET ECHO OFF IF VYESNO = 'YES' THEN GOTO END4 LABEL END3 PAUSE 3 USING 'THE DATABASE HAS NOT BEEN RELOADED' LABEL END4 RETURN
