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

课程设计 学 号 __________ 班 级 __________ 姓 名 __________ 指导教师 __________ 年 月 日 课程设计任务书 一、课程设计时间 2008~09第2学期第15~16周，共计2周，40学时。 二、课程设计内容 将一个文本文件（file30_数据的导入.txt）中的数据导入到Access的某个数据表中。 提示： ①先在Access数据库中创建出相应的表。 ②一方面，用ADO数据控件打开表；另一方面用文件读取术读取给定的文本文件中的内容，并添加到数据库表中。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语  目 录 需求分析 4 设计分析 5 关键技术 6 总结 10 完整的源程序 11 参考文献 13 需求分析 数据的导入是将文本文件中的数据读取到数据库指定的表中。由于文本文件中的数据不方便统计、管理，通常要将其导入数据库中，所以设计一个程序直接实现数据的导入能节省大量的时间，提升工作效率。 要求：在Access中创建chanpin 表，用来储存文本文件中的数据。此表的结构应如下定义：id，name，price，store。 设计分析 基本原理：建立程序设计与数据库的连接，用input语句读取文本文件，用insert语句将数据添加到数据库中。 总体流程设计： 关键技术 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, 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表： 总结 这次课程设计我