教育资源为主的文档平台

当前位置: 查字典文档网> 所有文档分类> 论文> 其他论文> 用VB实现对库文件的分割备份

用VB实现对库文件的分割备份

上传者:网友
|
翻新时间: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 '计

下载文档

版权声明:此文档由查字典文档网用户提供,如用于商业用途请与作者联系,查字典文档网保持最终解释权!

网友最新关注

那些遗忘的忧伤
邂逅文科
窒息的文明
无法抵御的伤痛
寻找
永远
心灵的距离
下辈子一定做个“好学生”
相逢是一生的幸福
沉沉的幸福感
高三
成长的痕迹
高中前行中
深爱这土地
做个懂得用钱的美容院老板
单克隆抗体在黑素瘤诊断中的作用
一次性根管治疗对老年人磨牙感染根管的疗效分析
蕊莉娅,从女人到女神的完美蜕变
吉鹤村酒业杯2局
四肢恶性黑色素瘤28例的治疗回顾分析
王天一蝉联茅山杯3局
团队建设是企业永久发展之道
3―D定点及定量自体脂肪移植在面部塑形中的应用
口腔正畸科青年医师规范化专科培训初探
快速应对美容院公关危机
彩超引导下聚桂醇泡沫硬化治疗静脉畸形临床疗效观察
被互联网埋葬的美容盈利模式
分裂式桩核冠在老年人后牙残根残冠修复中的临床应用
腋下切口全程内窥镜隆乳术的临床体会
教师教学技能的要求
肖川:教育的意向性
60个中国孤儿的守护神
个性化的语文课与语文教师的个性
苏轼《江城子 忆梦》研究性学习教学设计
科学教育和创新型工程技术人才的培养(下)
在语文教学中发展学生个性
语文新课标的阅读教学新概念
国外高中母语课程标准和理念(下)
中学文学教育采撷
许锡良:谈谈教师怎样成长
关于议论性散文
映潮评课之《庄周买水》
做一名反思型的教师
朱佩玲:为高中课程改革鼓与呼