使用SQL语句对Access数据库进行备份

说明:
1.要备份的数据库(Medicine.mdb)有下列几个表单:Enter表、Exit表、Store表
.........
2.备份的数据库(BuMedicine.mdb)放在当前路经的dbbackup子目录中。
3.使用SQL中的SELECT.....INTO.....IN语句,对Medicine.mdb进行追加查询,生
成与Medicine.mdb一样的数据库
表单并存放在外部数据库BuMedicine.mdb中。
4.详细程序代码如下:

Private Sub CmdBackup_Click()
Dim dbBu As Database
Dim strSQL As String
Dim dbBuName As String

dbBuName = App.Path & "/dbbackup/BuMedicine.mdb"
If Dir(dbBuName) <> "" Then Kill dbBuName
Set dbBu = Workspaces(0).CreateDatabase(App.Path & "/dbbackup/BuMedici
ne.mdb", dbLangGeneral)
Set dbBu = OpenDatabase(App.Path & "/medicine.mdb", False, False)
strSQL = "SELECT Enter.* INTO Enter IN '" & dbBuName & "' FROM Enter;"

dbBu.Execute strSQL
strSQL = "SELECT Exit.* INTO Exit IN '" & dbBuName & "' FROM Exit;"
dbBu.Execute strSQL
strSQL = "SELECT Store.* INTO Store IN '" & dbBuName & "' FROM Store;"

dbBu.Execute strSQL
................
dbBu.Close
Set dbBu = Nothing

展开阅读全文

没有更多推荐了,返回首页