以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动清除数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51300)
--  作者：shanmao
--  发布时间：2014/5/23 15:46:00
--  自动清除数据

假如系统里的有些数据已经很长时间了，没什么作用，需要让系统自动清理。也就是让系统里数据保持一段时间，超过了这个时间，就全部自动的清理掉。怎么设置？在哪里可以设置？
--  作者：Bin
--  发布时间：2014/5/23 15:48:00
--  
需要增加一个列,记录该条数据上次访问的时间,或者数据增加的时间.


这样就可以根据这个时间删除指定时间之前的老数据了
--  作者：shanmao
--  发布时间：2014/5/23 16:17:00
--  

Select Case e.DataCol.name
    Case "添加日期"
        If e.DataRow.IsNull("添加日期") Then
            e.DataRow("存储期限") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("添加日期"))
            e.DataRow("存储期限") = Math.Round(tp.TotalDays / 365.2422,2)
            If e.DataRow("存储期限") > 1 Then
                Syscmd.Row.Delete()
            End If
        End If
End Select

 

表中有添加日期和存储期限两列，你看一下这样写对吗？
--  作者：Bin
--  发布时间：2014/5/23 16:30:00
--  
用SQLCOMMAND执行

delete from {表A} where date()>= dateadd(\'d\',存储期限,增加日期)