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

课程设计任务书
一、课程设计时间
2008~09第2学期第15~16周，共计2周，40学时。

二、课程设计内容
将一个文本文件（file30_数据的导入.txt）中的数据导入到Access的某个数据表中。

提示：
①先在Access数据库中创建出相应的表。

②一方面，用ADO数据控件打开表；另一方面用文件读取术读取给定的文本文件中的内容，并添加到数据库表中。

三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。

课程设计说明书的内容参见提
供的模板。

四、指导教师和学生签字
指导教师：________ 学生签名：________
五、成绩
六、教师评语
目录
需求分析 (4)
设计分析 (5)
关键技术 (6)
总结 (10)
完整的源程序 (11)
参考文献 (11)
需求分析
数据的导入是将文本文件中的数据读取到数据库指定的表中。

由于文本文件中的数据不方便统计、管理，通常要将其导入数据库中，所以设计一个程序直接实现数据的导入能节省大量的时间，提升工作效率。

要求：在Access中创建chanpin 表，用来储存文本文件中的数据。

此表的结构应如下定义：id，name，price，store。

设计分析
（1）基本原理：建立程序设计与数据库的连接，用input语句读取文本文件，用insert语句将数据
添加到数据库中。

（2）总体流程设计：
关键技术
1建立与数据库的连接代码如下
Option Explicit
Option Base 1
Dim 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.Open
End Sub
2读取数据是用input语句将文本文件的数据读取出来在窗体中显示出来
Select<字段名表>From<表名>Where<条件>
程序段如下：
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导入数据库是将文本文件的数据导入数据库中指定的表中
Update<表名>Set<字段>=<表达式>[,<字段>=<表达式>]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, stor e‘将数据读入到四个变量中
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 Explicit
Option Base 1
Dim 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 Sub
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 ('" & T rim(id) & "','" & Trim(name) & "','" & T rim(price) & "','" & T rim(store) & "')"
cnn.Execute (szsql)
Loop
Close #1
mitT rans
MsgBox "完成"
End Sub
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.Open
cnn.BeginT rans
End Sub
参考文献
[1] 刘瑞新．《Visual Basic程序设计教程》．北京：机械工业出版社，2003
[2] 冯博琴刘路放．《精讲多练C语言》．西安：西安交通大学出版社，1997。