用VB将一个文本中的数据导入到Access的某个数据表中.doc

课程设计学 号 _班 级 _ 姓 名 _指导教师 _年 月 日课程设计任务书一、课程设计时间200809第2学期第1516周，共计2周，40学时。二、课程设计内容将一个文本文件（file30_数据的导入.txt）中的数据导入到Access的某个数据表中。提示： 先在Access数据库中创建出相应的表。一方面，用ADO数据控件打开表；另一方面用文件读取术读取给定的文本文件中的内容，并添加到数据库表中。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语 目 录需求分析4设计分析5关键技术6总结10完整的源程序11参考文献13需求分析数据的导入是将文本文件中的数据读取到数据库指定的表中。由于文本文件中的数据不方便统计、管理，通常要将其导入数据库中，所以设计一个程序直接实现数据的导入能节省大量的时间，提升工作效率。要求：在Access中创建chanpin 表，用来储存文本文件中的数据。此表的结构应如下定义：id，name，price，store。 设计分析（1） 基本原理：建立程序设计与数据库的连接，用input语句读取文本文件，用insert语句将数据添加到数据库中。（2） 总体流程设计：Input语句读取数据文本文件Insert语句 导入数据数据库ADO技术连接关键技术1建立与数据库的连接代码如下Option ExplicitOption Base 1Dim cnn As ADODB.Connection声明变量作为连接对象Private Sub Form_Load() Set cnn = New ADODB.Connection cnn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; & _ Data Source=sjddr.mdb连接数据源 cnn.ConnectionTimeout = 30 cnn.OpenEnd Sub 2读取数据是用input语句将文本文件的数据读取出来在窗体中显示出来SelectFromWhere程序段如下： Private Sub Command1_Click() Dim id$, name$, price$, store$ 声明变量属性 Open file30_数据的导入.txt For Input As #1打开要输入的文件 Do While Not EOF(1) 循环之文件尾 Input #1, id, name, price, store 将数据读入到四个变量中 Print id, name, price, store 输出数据 Loop Close #1 关闭文件 MsgBox 完成End Sub窗体-读取数据：3导入数据库是将文本文件的数据导入数据库中指定的表中UpdateSet=,=Where程序段如下：Private Sub Command2_Click() Dim szsql$ Dim id$, name$, price$, store$ 声明变量属性 Open file30_数据的导入.txt For Input As #1打开要输入的文件 Do While Not EOF(1) 循环之文件尾 Input #1, id, name, price, store将数据读入到四个变量中 szsql = insert into chanpin(id, name, price, store) values ( & Trim(id) & , & Trim(name) & , & Trim(price) & , & Trim(store) & ) 数据可作相应的转化 cnn.Execute (szsql) 如果是,就执行相应操作 Loop Close #1 关闭文件 MsgBox 完成End Sub数据库-chanpin表：总结这次课程设计我的题目是“数据的导入”，目的是设计一个程序将文本文件直接读取到指定数据库的表中。 通过本次课程设计让我了解了VB与数据库之间的联系。学会了引用ADO技术，不需要控件，直接编写程序代码就可以连接到Access数据库。ADO是对当前微软所支持的数据库进行操作的最有效和最简单直接的方法，它是一种功能强大的数据访问编程模式，从而使得大部分数据源可编程的属性得以直接扩展到你的Active Server 页面上，大大提升了对数据库的访问的效率。 在这次课程设计的过程中，我也遇到了许多困难，但是在解决这些难题的同时我又学到了许多新的知识。例如：VB与数据库的连接技术，用VB读取文本文件等。在刘成老师的耐心指点下，我通过到图书馆和互联上查阅相关资料，最终克服了困难，顺利的完成了课程设计任务。 同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。完整的源程序Option ExplicitOption Base 1Dim cnn As ADODB.Connection Private Sub Command1_Click() Dim id$, name$, price$, store$ Open file30_数据的导入.txt For Input As #1 Do While Not EOF(1) Input #1, id, name, price, store Print id, name, price, store Loop Close #1 MsgBox 完成End SubPrivate Sub Command2_Click() Dim szsql$ Dim id$, name$, price$, store$ Open file30_数据的导入.txt For Input As #1 Do While Not EOF(1) Input #1, id, name, price, store szsql = insert into chanpin(id, name, price, store) values ( & Trim(id) & , & Trim(name) & , & Trim(price) & , & Trim(store) & ) cnn.Execute (szsql) Loop Close #1 cnn.CommitTrans MsgBox 完成End SubPrivate Sub Form_Load() Set cnn = New ADODB.Connection cnn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; & _Data Source