翻新时间：2013-12-14
用VB实现对库文件的分割备份
用VB实现对库文件的分割备份
殷鹏
在设计信息管理程序时，数据库的软盘备份与恢复是我们经常遇到的一个问题。如果仅仅使用文件复制指令，那么在文件大小超过软盘容量时，就会出现错误。下面我来介绍一种用VB实现的对文件进行分割备份的方法。假设在E:CLASS目录下有一个名为CLASSES.MDB的文件，3.8M，我们现在要按照每个1.4M，把它分割成3个文件进行备份，然后，再恢复成CLASSES1.MDB文件。启动VB,新建一个工程，添加一个模块，将下列代码填入模块的声明中：
Type FileSection
Bytes() As Byte
FileLen As Long
End Type
Type SectionedFile
Files() As FileSection
NumberOfFiles As Long
End Type
Type FileInfo
OrigProjSize As Long
OrigFileName As String
FileCount As Integer
FileStartNum As Long
End Type
然后，在Form1中添加两个按钮，分别命名为cmdBackup,Caption:"备份"；cmdRestore，Caption:"恢复"。
分别双击按钮，填入以下代码：
Private Sub cmdBackup_Click()
Dim SplitFileName As String '待备份的文件名
Dim Split As Long '备份文件的大小
Dim SaveName As String '备份文件名
Dim fNum As Integer '可用的文件号
Dim NumFil As Long '备份文件的数目
Dim FilesLen As Long '待备份文件的大小
Dim CurrentFile As SectionedFile '参数结构
SplitFileName = "e:classclasses.mdb"
Split = 1400000
FilesLen = FileLen(SplitFileName)
fNum = FreeFile
Open SplitFileName For Binary As fNum '计
下载文档
网友最新关注
- Today is Children's Day
- 我的六一节终于来啦！
- How to make our world more beautiful（如何让世界更漂亮）
- Staying at Home Alone（独自在家）
- 年级英语期末测试试卷
- Spring Festival（春节）
- My Dream（我的梦想）
- 于亚运的英语作文
- 儿童节书信作文 六一儿童节英语作文
- To Experience the Life
- Visiting the Great Wall on Badaling（参观长城）
- Play Football
- Fathers Day（父亲节）
- An Accident
- Lucky Numbers（幸运数字）
- 桥梁工程现浇梁施工安全技术交底
- 浅析小型病险水库除险加固工程措施
- 小东江现状水质污染沿程变化分析及
- 遵循监理工作准则 为长江堤防加固建设服务
- 水利工程中水泥粉喷桩基础施工质量控制的探讨
- 深层搅拌法在泵站蓄水池软弱地基加固中的应用
- 有闸溢洪道逐步泄流图解法
- 房地产开发项目的成本控制
- 工程勘察项目的数理统计与指标取值
- 水电站工程建设征地移民安置实施阶段变更处理初探
- 粘土心墙坝填筑监理实施细则
- 最速下降法和共轭梯度法
- 脚手架工程技术交底
- 小区5#住宅楼工程A轴线偏移事故调查处理报告
- 水垫塘结构形式问题探讨
- 《我最好的老师》考点练兵（一）积累篇
- 《我最好的老师》范文习作
- 《我最好的老师》重点字词意思
- 《我最好的老师》写作指导
- 《我最好的老师》重点字词梳理
- 《我最好的老师》教学目标
- 《我最好的老师》考点练兵（二）阅读篇
- 《我最好的老师》随堂练习 巩固篇
- 《我最好的老师》作家作品及写作背景
- 《跨越百年的美丽》考点练兵（二）阅读篇
- 《我最好的老师》训练素材
- 《我最好的老师》老师语录
- 《我最好的老师》随堂练习 提高篇
- 《我最好的老师》整体阅读感知
- 《我最好的老师》重点问题探究