发信人: maixr()
整理人: cobe(2000-02-29 09:16:38), 站内信件
|
说明：
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
--
多少次，迎着冷眼与嘲笑，从未放弃过心中的理想。
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.104.38.159]
|
|