Solved

Automating Database copy and rename procedure

Posted on 2007-03-23
5
428 Views
Last Modified: 2013-11-27
I have created an application that is currently being used, but I still make updates to on a regular basis.  I am using the FMS Start Up application, so I have a table in the application that is called tblVersion.  All of the other tables are linked to a back end SQL Server database.  When I make an update, I have to change the value in tblVersion, copy the database to the network location for office users, copy the db to another network location for my citrix users and finally rename the citrix version.  I also create a back up copy on the network.  I am trying to automate this process by creating a separate database that will connect to the target database, update the version number, copy the database to its new locations, and rename the database for the citrix users.  I'd like to keep it in a separate mdb so I can use it as a log to keep track of the dates and reasons for the updates.
0
Comment
Question by:AaronGreene1906
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
5 Comments
 
LVL 2

Expert Comment

by:CSBTech
ID: 18782716
Hi Aaron, I have a similar solution but I didn't it slightly differently.  I am not sure what exactly you are asking here, do you need help with the copying or the figuring out versions?  Anyway, I have a version table that I update withing the mdb when I make a change, then I put the new file on a server in a specific location.  When someone accesses their local mdb, it checks the version against the new version on the server by looking in that table.  If there version is less, it asks if they wish to upgrade.  If they say yes, it closes the mdb, and runs a small VB Executable that copies the new mdb to their location.  You can automate all this within another MDB, but should really be done in an EXE.  If you dont' have access (pardon the pun) to VB or another language, it can be done in Access but tell me which parts you are having problems with.  Or maybe you just need a general overview of how it should work?
0
 

Author Comment

by:AaronGreene1906
ID: 18784258
I guess I should have been more specific.  I'm getting stuck on the fact that the db that I'm using doesn't contain any of the objects that I'm going to be working with.  Here are the steps that I'm following.
1 Connect to the main database and update the version number
2 Create three mdb's in their network locations.
3 Create the links to the server database in each of the new db's
I'm having trouble figuring out how to create the links.  
0
 
LVL 13

Expert Comment

by:adraughn
ID: 18792768
Hi Aaron. As far as #2 goes, I have a similar issue. Our performance between regions is bad so I have to keep db copies on each server. I use a batch file. If you are not familiar with batch files, just go into notepad. Copy this into the file and change to meet your needs:

::Update Chicago
Copy \\YourServer\Folder\DB_Tables.mdb \\TheirServer\Folder\Folder/Y
Copy \\\YourServer\Folder\FrontEnd.mde \\TheirServer\Folder\Folder/Y
::

Note that any line that starts with a colon will be skipped. I use these for spacers and comments and that the /Y states that you want to replace the file if there is already one on the server.

You can put as many lines as you need to on the batch file. When you are finished writing it, save it as a .bat file.

If you want it to run automatically, go into the control panel, then to scheduled tasks. From there you can schedule it to run at a certain time every day/week/month.

As far as #3 goes, you are copying over the front end to the new servers, but what are you trying to link the enw front ends to? Your SQL tables?

-a
0
 
LVL 2

Expert Comment

by:CSBTech
ID: 18792979
Aaron,

1 - I don't think you have a problem with this right?  You just link to the mdb so you can update the version number.  If you need help here, let me know.

2 - Copying the files.

            homeDir = "C:\homeDir\"
            MoveToNetDir1 = "F:\myDBNet1\"
            MoveToNetDir2 = "G:\myDBNet2\"
            MoveToNetDir3 = "H:\myDBNet3\"
         
            myfile = Dir(homeDir & "filename.mde")
       
            Do While myfile <> ""

'This will import ALL the files (one at a time, but automatically) in this folder, you can use *.mdb or whatever you wish to do..

                FileCopy homeDir & myfile, MoveToNetDir1 & myfile
                FileCopy homeDir & myfile, MoveToNetDir1 & myfile
                FileCopy homeDir & myfile, MoveToNetDir1 & myfile

                myfile = Dir
                FileCount = FileCount + 1   'if you wish to keep track of number of files
            Loop

'to rename any of the files
                        origFileName = myDB.mdb
                        newName1 = userDB_1.mdb
                        newName2 = userDB_2.mdb

                        newName = "G:\NetDir1\" & newName1
                        FileCopy origFileName, newName
                        newName = "G:\NetDir2\" & newName2
                        FileCopy origFileName, newName
                       
'to delete the original file

                       Kill origFileName

Number 3, why would you need to recreate the links to the database server?

JV
0
 
LVL 2

Accepted Solution

by:
CSBTech earned 500 total points
ID: 18793006
Aaron,

Sorry, the code is messed up, I changed some variables in some places, here is the new code.

            homeDir = "C:\homeDir\"
            NetDir1 = "F:\myDBNet1\"
            NetDir2 = "G:\myDBNet2\"
            NetDir3 = "H:\myDBNet3\"
         
            myfile = Dir(homeDir & "filename.mde")
       
            Do While myfile <> ""

'This will import ALL the files (one at a time, but automatically) in this folder, you can use *.mdb or whatever you wish to do..

                FileCopy homeDir & myfile, NetDir1 & myfile
                FileCopy homeDir & myfile, NetDir2 & myfile
                FileCopy homeDir & myfile, NetDir3 & myfile

                myfile = Dir
                FileCount = FileCount + 1   'if you wish to keep track of number of files
            Loop

'to rename any of the files
                        origFileName = myDB.mdb
                        newName1 = userDB_1.mdb
                        newName2 = userDB_2.mdb

                        newName = "G:\NetDir1\" & newName1
                        FileCopy origFileName, newName
                        newName = "G:\NetDir2\" & newName2
                        FileCopy origFileName, newName
                       
'to delete the original file

                       Kill origFileName
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Phishing attempts can come in all forms, shapes and sizes. No matter how familiar you think you are with them, always remember to take extra precaution when opening an email with attachments or links.
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

733 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question