Below is a function to backup a database from a source folder to a target folder, including all triggers, stored procedures, default field values etc. I do not think there was anything wrong with the original "table" copying code that Mike had, but I did not have that email handy when I did this. So just be advised if there was something special in that original code, my code below may not handle it, etc. This code should work even if the source database is open as well as tables in that database being open by another application. Of course, the DB and tables are expected to be open in SHARED mode (aka, non-EXCLUSIVE). Also note that if this code is placed directly in an application, it will close all databases/tables. So if the application needs to have this function, some "environmental saving/restore" code would need to be added (pretty simple to do with the AUSED() function, etc).
This uses my "Option 3" method from the earlier email. Essentially, after all the base data is copied, a direct "file copy" on the DBC data is performed. Technically, COPY FILE ... could probably be used for all files of the DB, but by using the table "COPY" (not COPY FILE) it drastically reduces any potential for 'corruption' due to multi-user actions, etc. And, using COPY FILE only on the "database container" files is quite reasonably safe since DATABASE LEVEL modifications are generally not a "user" operation and so could be avoided during the backup process.
It goes without saying, before using in production, this code should be thoroughly tested, customized, etc.
HTH, -Charlie
PS. Please don't make fun of my variable names - I was in a hurry when I gen'd this up (hahahaha)
*---------------------------------- FUNCTION db_backup *-- purpose: create a backup copy of a VFP database, including all *-- stored procedures, triggers, etc *-- Parameters: *-- from_db: full path qualified (x:\sample\one\dbname) *-- to_db: full path qualified *-- *-- Assupmtions: *-- - this code is mainly 'proof of concept' code, so several *-- sections should be checked before production use *-- - the target db (to_db) is not OPEN by any application
PARAMETERS from_db, to_db LOCAL target_dir, ntbls, ctbl, cdbname, from_dir *-- should "harden" this code before production - e.g. ensure source *-- db exists, decide and code what should be done if destination db *-- already exists (only want one db in the backup folder, etc)
*-- Warning! Exclusive being off is pretty much required for this *-- code. If your other code needs Exclusive ON, change code to *-- turn it back on in the end of this function. SET EXCLUSIVE OFF
*-- Warning! the following block deletes any VFP database files in *-- the target folder. So this needs to be changed if that folder *-- is being used to backup other DBs, free tables, etc.
target_dir = ADDBS(JUSTPATH(to_db)) DELETE FILE (target_dir + "*.db?") DELETE FILE (target_dir + "*.dct") DELETE FILE (target_dir + "*.dcx") DELETE FILE (target_dir + "*.cdx") DELETE FILE (target_dir + "*.fpt")
*-- Create the target database and copy all the base table data CREATE DATABASE (to_db) OPEN DATABASE (from_db) ntbls = ADBOBJECTS(_atbls, 'TABLE') FOR ni = 1 TO ntbls ctbl = ALLTRIM(_atbls[ni]) *-- if the table being copied is opened elsewhere in the app *-- need to use it 'again' IF USED(ctbl) USE (ctbl) AGAIN IN 0 ALIAS TMPCOPY ELSE USE (ctbl) IN 0 ALIAS TMPCOPY ENDIF SELECT TMPCOPY COPY TO (target_dir + ctbl) DATABASE (to_db) WITH cdx USE IN ("TMPCOPY") ENDFOR
*-- now, to get all stored procs, etc, need to copy the dbc. Test *-- this code thoroughly CLOSE DATABASES all
*-- this assumes the backup db should have the same name as the *-- source db. If there is a desire to rename the backup db, *-- this code should be changed to grab the target name from *-- the to_db parameter cdbname = JUSTSTEM(from_db) from_dir = ADDBS(JUSTPATH(from_db))
*-- NOTE: turning SAFETY off to avoid pop-up warning SET SAFETY OFF COPY FILE (from_dir + cdbname + ".dbc") to ; (target_dir + cdbname + ".dbc") COPY FILE (from_dir + cdbname + ".dcx") to ; (target_dir + cdbname + ".dcx") COPY FILE (from_dir + cdbname + ".dct") to ; (target_dir + cdbname + ".dct") SET SAFETY ON
*-- this might not be necessary, but including it for *-- conceptual consideration COMPILE DATABASE (to_db) OPEN DATABASE (to_db) EXCLUSIVE VALIDATE DATABASE CLOSE DATABASE
RETURN