ACCESS程序設(shè)計(jì)---教你實(shí)現(xiàn)數(shù)據(jù)備份與還原！

paul16

備份功能幫你做好了！還原的你仔細(xì)看一下就知道了！
我改的地方：
1、命令按鈕的命名跟VBA中的不一樣！
2、文件我放到  D:\教師情況    目錄下！

cxhwhj

感謝斑竹，牢記古訓(xùn)“受恩勿忘”，定為本站搖旗吶喊�。。∮袉�(wèn)題再向您請(qǐng)教。

paul16

以下是引用cxhwhj在2004-4-12 12:01:15的發(fā)言：
感謝斑竹，牢記古訓(xùn)“受恩勿忘”，定為本站搖旗吶喊�。�！有問(wèn)題再向您請(qǐng)教。

社區(qū)就是為大家服務(wù)的！

laiguiyou

請(qǐng)問(wèn)版主，如果文件放在D:\database\data下，路徑應(yīng)怎么寫(xiě)？

cxhwhj

又要請(qǐng)教斑主，備份窗口我已做好，在窗口備份中直接啟動(dòng)一切正常。但在主切換面板中啟動(dòng)備份項(xiàng)目，卻提示如下：錯(cuò)誤號(hào)70，發(fā)生錯(cuò)誤的原因可能是1、數(shù)據(jù)窗口未關(guān)閉　2、磁盤(pán)寫(xiě)保護(hù)。不知何故，怎樣解決？
另：按照提示做還原功能。下面代碼：
If MsgBox("還原將覆蓋原數(shù)據(jù)且不能恢復(fù)，" & Chr(10) & "請(qǐng)確認(rèn)所選的文件是否正確。" & Chr(10) & Chr(10) & "如果選擇的文件正確，請(qǐng)按"確定"。" & Chr(10) & "否則，請(qǐng)按"取消"。", vbExclamation + vbOKCancel, "嚴(yán)重警告") = vbOK Then為紅色，提示編譯錯(cuò)誤，語(yǔ)法錯(cuò)誤。
請(qǐng)解決。謝謝。如能
把前些天的上傳文件直接做好還原功能，那更好了。

[此貼子已經(jīng)被作者于2004-4-16 22:10:22編輯過(guò)]

paul16

以下是引用cxhwhj在2004-4-16 21:55:14的發(fā)言：
又要請(qǐng)教斑主，備份窗口我已做好，在窗口備份中直接啟動(dòng)一切正常。但在主切換面板中啟動(dòng)備份項(xiàng)目，卻提示如下：錯(cuò)誤號(hào)70，發(fā)生錯(cuò)誤的原因可能是1、數(shù)據(jù)窗口未關(guān)閉　2、磁盤(pán)寫(xiě)保護(hù)。不知何故，怎樣解決？
另：按照提示做還原功能。下面代碼：
If MsgBox("還原將覆蓋原數(shù)據(jù)且不能恢復(fù)，" & Chr(10) & "請(qǐng)確認(rèn)所選的文件是否正確。" & Chr(10) & Chr(10) & "如果選擇的文件正確，請(qǐng)按"確定"。" & Chr(10) & "否則，請(qǐng)按"取消"。", vbExclamation + vbOKCancel, "嚴(yán)重警告") = vbOK Then為紅色，提示編譯錯(cuò)誤，語(yǔ)法錯(cuò)誤。
請(qǐng)解決。謝謝。如能
把前些天的上傳文件直接做好還原功能，那更好了。

[此貼子已經(jīng)被作者于2004-4-16 22:10:22編輯過(guò)]

這些天都沒(méi)來(lái)了，象以上這些情況你查看一下還原窗體的是否有存在數(shù)據(jù)源？如果有的話將其去除就可以解決了�。�-）

hi-wzj

提供一種利用rar壓縮數(shù)據(jù)庫(kù)的例子，支持共享備份（別人照樣操作后端數(shù)據(jù)庫(kù)），可利用win的計(jì)劃任務(wù)完成定時(shí)備份功能。
http://www.accessoft.com/Article_Show.asp?ArticleID=27

大熊

為什么你們都不用DOS命令��？納悶中。。。。

paul16

以下是引用大熊在2004-4-28 19:51:51的發(fā)言：
為什么你們都不用DOS命令啊？納悶中。。。。

這個(gè)可能主要是為了讓軟件看起來(lái)專業(yè)一點(diǎn)吧�。�-）

一根筋

感謝Paul16
提問(wèn)：
1、代碼中AddhowDolog "數(shù)據(jù)備份"是何作用？我好像只有刪了這句。當(dāng)然未影響備份。
2、如果只是數(shù)據(jù)備份，文章前部分中提到的建立模塊復(fù)制代碼部分是否可以省略？（夠懶，實(shí)際上我可以試，但為廣大同學(xué)節(jié)約時(shí)間出發(fā)，仍提此問(wèn)）
還有一點(diǎn)問(wèn)題，我想還是先試再問(wèn)，當(dāng)然我還會(huì)考慮具有普遍提醒的意義才問(wèn)。