《VB课程设计论文.doc》由会员分享，可在线阅读，更多相关《VB课程设计论文.doc（13页珍藏版）》请在三一办公上搜索。
1、 课程设计 学 号 -班 级 -姓 名 指导教师 年 月 日课程设计任务书学院：xxxxxxxxxx 专业：xxxx 班级：xxxxxxx学号：xxxxxxxxxxxxx 题目：数据库数据的导入与导出一、课程设计时间2012年3月5日17日（第1、2周），共计2周。二、课程设计内容将一个文本文件（file01_数据的导入.txt）中的数据导入到Access的某个数据表中，并显示相应的内容；再将数据库的某一个表中的数据导出到一个文本文件中，并显示相应的内容。要求使用CommonDialog控件和DataGrid控件。导入提示： 依据文本文件内容，先在Access数据库中创建出相应的表。一方面，用
2、ADO数据控件打开表；另一方面用文件访问技术读取给定的文本文件中的内容，并添加到数据库表中。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，修饰适宜，功能明确，操作方便；适当增加12项其它功能。 代码应规范(适当缩进、必要的注释)，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩目 录一、需求分析4二、设计分析5三、技术要点6四、总结10五、完整的源程序11六、参考文献12一、需求分析 将一个文本文件（file01_数据的导入.txt）中的数据导入到
3、Access的数据表中，并显示相应的内容；再将数据库Access表中的数据导出到一个文本文件中，并显示相应的内容。要求：使用CommonDialog控件使用DataGrid控件。分析：导入：依据文本文件内容，先在Access数据库中创建出相应的表；一方面，用ADO数据控件打开表；另一方面用文件访问技术读取给定的文本文件中的内容，并添加到数据库表中。导出：用SQL语句，将数据库的每个字段的记录读取出来，依次写入文本文档中。二、设计分析基本原理：用SQL语句添加数据和读取数据。总体设计：导入：SQL语言处理数据库ADO技术连接导出：保存文件数据库SQL语言处理图1 总体设计详细设计： 开始读取数据
4、写入数据保存导入表格读取文件建立数据表图2 详细设计三、技术要点建立与数据库的连接代码：Dim cn As ADODB.Connection 定义数据库的连接 Private Sub Form_Load()Set cn = New ADODB.Connection 建立新的数据库连接cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biao.mdb;Persist Security Info=False 设置连接对象的“连接字符串”属性cn.Open 打开文件End Sub读取文本文档：Dim number$,
5、 name$, price$, store$Dim sqlstr$ Open file01_数据的导入.txt For Input As #1 打开文件读取数据 Do While Not EOF(1) Input #1, number, name, price, store 将文件内容赋予变量 sqlstr = insert into 库存 values( & Trim(number) & , & Trim(name) & , & Trim(price) & , & Trim(store) & ) 用SQL语句将数据插入到数据库 cn.Execute (sqlstr) 执行SQL语句 Loop
6、Close #1用SQL语句读取数据库并导出：Open CommonDialog1.FileName & .txt For Output As #1 打开文件写入数据 For n = 0 To cnn.Fields.Count - 1 conct = conct & cnn.Fields(n).name & 通过循环将每个字段的名字串联起来 Next Print #1, conct 写出每个字段名 cnn.MoveFirst 移动到第一条记录 Do While Not cnn.EOF 循环读取记录 conct = 清空连接字符的变量 For n = 0 To cnn.Fields.Count
7、- 1 conct = conct & cnn.Fields(n) & , 通过循环将每条记录的不同字段连在一起 Next cnn.MoveNext 移动到下一条记录 Print #1, conct 写出每条记录的内容 Loop截图：Access表格：窗体设计：运行中的窗体：导入后的表格：导出：四、总结本次我的VB课程设计的题目是数据库数据的导入和导出。可以直接应用ADO控件建立与数据库的链接，使用SQL语句可以直接对数据库进行更改。刚开始时，一点头绪也没有。在查看了教材以及其他类书籍后，有了些头绪。在编辑数据的导入的过程中，在执行cnn.Execute(sqlstr)时，总是出错。将数据库的
8、建立更改之后，程序可以运行。剩下的部分在同学的帮助下以及参考了谢书籍后，终于将程序编完了。在设计的过程中虽然遇到了诸多困难，但最终的成功很有成就感。此次课设让我体会到VB的重要性以及它存在的意义。 五、完整的源程序Dim cn As ADODB.Connection 定义数据库的连接Private Sub Command1_Click()Dim number$, name$, price$, store$Dim sqlstr$ Open file01_数据的导入.txt For Input As #1 打开文件读取数据 Do While Not EOF(1) Input #1, number,
9、 name, price, store 将文件内容赋予变量 sqlstr = insert into 库存 values( & Trim(number) & , & Trim(name) & , & Trim(price) & , & Trim(store) & ) 用SQL语句将数据插入到数据库 cn.Execute (sqlstr) 执行SQL语句 Loop Close #1MsgBox 导入完毕!Set DataGrid1.DataSource = Adodc1 显示数据库内容Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Set cnn
10、 = New ADODB.Recordset 定义记录集Dim sqlstr$, conct$ 定义连接字符串和连接字符的变量 sqlstr = select * from 库存 查询数据库的所有内容 cnn.Open sqlstr, cn, 1, 3 执行SQL语句 If cnn.EOF Then MsgBox 数据库没有记录,请先进行导入: Exit Sub CommonDialog1.ShowSave 打开另存对话框 If CommonDialog1.FileName = Then Exit Sub Open CommonDialog1.FileName & .txt For Outpu
11、t As #1 打开文件写入数据 For n = 0 To cnn.Fields.Count - 1 conct = conct & cnn.Fields(n).name & 通过循环将每个字段的名字串联起来 Next Print #1, conct 写出每个字段名 cnn.MoveFirst 移动到第一条记录 Do While Not cnn.EOF 循环读取记录 conct = 清空连接字符的变量 For n = 0 To cnn.Fields.Count - 1 conct = conct & cnn.Fields(n) & , 通过循环将每条记录的不同字段连在一起 Next cnn.M
12、oveNext 移动到下一条记录 Print #1, conct 写出每条记录的内容 Loop cnn.Close 关闭记录集 MsgBox (导出完毕!)End SubPrivate Sub Command3_Click()cn.Execute (delete from 库存)MsgBox 已清空End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()Set cn = New ADODB.Connection 建立新的数据库连接cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biao.mdb;Persist Security Info=False 设置连接对象的“连接字符串”属性cn.Open 打开文件End Sub六、参考文献龚沛曾 杨志强 陆慰民Visual Basic程序设计教程高等教育出版社李长林 张丽华 王红.Visual Basic数据库应用系统开发.电子工业出版社钱永强等 VB6.0入门与实例大连理工大学出版社白小勇 余健VB课程设计清华大学出版社
