NET程序设计案例教程——Visual Basic 2005 教学课件 作者 徐布克 第15章 备份和恢复学生成绩档案.pptVIP

Visual Basic.NET 程序设计 第15章 备份和恢复 学生成绩档案 学习和实践的目标 需求分析要求：“可以进行数据备份和恢复”。 本章将介绍采用二进制流文件的方法，将学生成绩通过导出操作存为文件或通过导入操作从导出的文件中恢复原有数据，达到数据备份和恢复的目的。 实现目标的知识点 流文件体系和使用 对话框分类和使用 Directory类和目录操作 15.1 实现目标的思路 15.1 实现目标的思路 1．导入和导出相配合，对同一个数据文件进行操作。 2．对导出而言，首先确定要存储的文件名，然后从数据库中获取要导出的数据，最后以数据流的形式存入文件。 3．对导入而言，首先确定要获取的文件名，然后以数据流的形式从文件中读取数据，最后存入数据库。 15.2 流文件体系 15.2 流文件体系 15.2 流文件体系 15.2 流文件体系 15.2 流文件体系 15.3 导出数据 实现该操作（ptrb文件_Click）的代码如下： Private Sub ptrb文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptrb文件.Click 确定备份文件名 If (saveFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then txt导出名称.Text = saveFileDialog.FileName Else txt导出名称.Text = End If End Sub 15.3.2 导出数据到二进制流文件 重写Modify()子过程，实现从数据库获取数据然后存入二进制流文件的功能。 Protected Overrides Sub Modify() If (txt导出名称.Text ) Then 准备导出文件和二进制写出流 Dim fsWrite As FileStream = New FileStream(txt导出名称.Text, FileMode. Create) Dim bw As BinaryWriter = New BinaryWriter(fsWrite) bw.BaseStream.Seek(0, SeekOrigin.Begin) 将文件指针设置到文件开始 定义并获取只读数据 oledb命令.CommandText = Select * From 成绩表 Dim oddr As Data.OleDb.OleDbDataReader = oledb命令.ExecuteReader() 15.3.2 导出数据到二进制流文件 While (oddr.Read()) 对每条读出的记录按字段写出 bw.Write(oddr(学生ID).ToString()) bw.Write(oddr(学年ID).ToString()) bw.Write(oddr(课程ID).ToString()) bw.Write(oddr(教师ID).ToString()) bw.Write(oddr(操作员ID).ToString()) bw.Write(oddr(平时成绩).ToString()) bw.Write(oddr(期中成绩).ToString()) bw.Write(oddr(期中考核日期).ToString()) bw.Write(oddr(期末成绩).ToString()) bw.Write(oddr(期末考核日期).ToString()) bw.Write(oddr(经办日期).ToString()) bw.Write(oddr(备注).ToString()) End While 14.3 典型的事件体系 15.3.2 导出数据到二进制流文件 oddr.Close() 关闭并清除只读数据 bw.Close() 关闭二进制流 fsWrite.Close() 关闭文件 Else MessageBox.Show(请先确定导出的文件名) End If End Sub 本例中创建了一个FileStream对象，用来对文件进行操作。创