翻新时间：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 '计
下载文档
网友最新关注
- 春天的色彩
- 足球把鸡蛋砸烂了
- 搓“猫耳朵”
- 坐车
- 给台湾小朋友的一封信
- 西瓜
- 街灯
- 这学期的总结
- 下雨了
- 假如
- 海狮表演
- 我的一家
- 夜晚的江滨公园
- 奇了怪了
- 开心的一天
- 酒店中秋节营销活动方案
- 教师节联欢会活动方案
- 家庭中秋节活动方案
- 5个教师节庆祝活动方案
- 教师节庆祝活动方案：爱生尊师
- 2010企业中秋节活动方案2则
- 2012年中秋节活动方案策划
- 2012年中学庆祝教师节活动方案
- 2012年酒店国庆节促销方案
- 第26个教师节主题活动方案
- 中秋月饼节活动方案
- 2012年小学教师节庆祝活动方案
- 小学中秋节展示活动方案
- 学校中秋节活动方案
- 学校“教师节”、“中秋节”系列活动策划方案
- 公安系统内部审计实践研究(1)
- 上市公司会计信息披露制度形成的需求导向(1)
- 我国金融会计体系将如何迎接WTO的挑战(1)
- 家族企业内部审计问题探讨(1)
- 基于和谐观的会计信息的相关性和可靠性(1)
- 会计环境中经济因素对会计准则的影响(1)
- 对企业会计集中核算的研究(1)
- 建立企业会计内部控制制度的措施(1)
- 如何改进我国研发支出会计处理(1)
- 现代管理会计在我国中小企业中的运用(1)
- 资产负债表债务法下时间性差异探讨(1)
- 企业合并的会计处理方法选择(1)
- MRPII实施过程中若干问题的研究(1)
- 合法性会计真实：基于方法论的视角(1)
- 浅谈战略管理会计在我国的应用(1)
- 《假如》 第一课时教学设计
- 《窗前的气球》 教学设计五
- 《我是什么》 教学设计二
- 《清澈的湖水》 教学设计一
- 《窗前的气球》 教学设计六
- 《假如》 教学设计一
- 《假如》 教学设计二
- 《我是什么》 教学设计一
- 《窗前的气球》 教学设计四
- 《清澈的湖水》 第一课时教学实
- 《“红领巾”真好》 教学设计二
- 《“红领巾”真好》 教学设计一
- 《从现在开始》 第二课时教学设计二
- 《纸船和风筝》 教学设计一
- 《从现在开始》第二课时教学实录