如何备份储入的数据并清空上个月的数据.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 16 行

1、 删 除 记 录 ： 
    Dim dbs As Database, rst As Recordset 
    Dim I As Integer 
     Set dbs = OpenDatabase("数 据 库 路 径 +名 称 ") 
     rst = dbs.OpenRecordset("表 名 ") 
     For I = 0 To rst.RecordCount 
     rst.Delete 
     rst.MoveNext 
     Next 
     dbs.Close 
2、 备 份 数 据 库 ： 
    '存 于 Backup文 件 夹 ， 以 年 月 命 名 （ 假 设 是 ACCESS数 据 库 ?copy; 
    FileCopy "源 数 据 库 路 径 +名 称 ", "Backup\" & year(date() & month(date()) & ".mdb" 
    关 于 这 个 问 题 在 VB60帮 助 中 有 详 细 的 说 明 ， 你 应 当 好 好 看 看 帮 助 内 容 ， 那 是 一 本 很 好 的 教 材 。 
<END>