翻新时间：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 '计
下载文档
网友最新关注
- Swine flu came
- How I Spent My Summer Vacation
- 禽流感
- Swine Flu（猪流感）
- “ice” between friends
- school life
- A-H1N1 and its Prevention
- village, my love
- 暑假计划How I Spent My Summer Vacation
- 抗击甲流
- Summer Harvest（暑假的收获）
- 禽流感
- 暑期日记
- 中英语作文四大常见症状分析
- 预防甲流的方法
- 班主任工作考核细则
- 举报电话制度
- 合同鉴定领导小组职责
- 药业公司关于加强劳动纪律的实施办法
- 党委领导班子重大决策责任追究制度
- 企业创建文明示范点实施办法
- 公司共青团工作竞赛评比办法
- 公司思想政治工作制度
- 班主任工作基本要求
- 关于对公司人员异动的管理规定
- 幼儿园财产管理制度
- 办公室主任工作责任制度
- 农村信用社干部职工八小时外行为管理规定
- 行政事务管理制度
- 经费开支管理办法
- 阀门的选择、设置部位及优缺点比较
- 雨污水管线施工方案
- 木龙骨隔断墙的施工工艺流程
- 涵管施工方案
- 浅谈北方地区建筑给排水设计
- 刚性防水套管和柔性防水套管的区别？
- 家庭装修水电施工实用口诀要牢记
- 阀门的优缺点及分别适用场合的综合概述
- 卫生设备同层排水系统技术问答
- 屋面排水的做法
- 建筑给排水工程节水措施探讨
- 给排水工程
- 浅谈排水系统中提升设备与局部处理
- 钢管阴极保护(牺牲阳极)防腐施工安全技术交底
- 管材基本常识
- 《称象》第二课时教学设计二
- 《称象》教学札记一
- 《称象》第二课时教学设计一
- 《称象》教学设计十三
- 《称象》教学札记二
- 《称象》大改写
- 《雪地里的小画家》教学设计
- 《称象》课堂教学简评
- 《称象》教学设计十五
- 《称象》相关资料
- 《称象》教学札记三
- 《称象》教学设计十四
- 《称象》教学设计十七
- 《称象》教学设计十六
- 《称象》称出新方法