VB课程设计论文.doc
课程设计 学 号 -班 级 -姓 名 指导教师 年 月 日课程设计任务书学院：xxxxxxxxxx 专业：xxxx 班级：xxxxxxx学号：xxxxxxxxxxxxx 题目：数据库数据的导入与导出一、课程设计时间2012年3月5日17日（第1、2周），共计2周。二、课程设计内容将一个文本文件（file01_数据的导入.txt）中的数据导入到Access的某个数据表中，并显示相应的内容；再将数据库的某一个表中的数据导出到一个文本文件中，并显示相应的内容。要求使用CommonDialog控件和DataGrid控件。导入提示： 依据文本文件内容，先在Access数据库中创建出相应的表。一方面，用ADO数据控件打开表；另一方面用文件访问技术读取给定的文本文件中的内容，并添加到数据库表中。三、课程设计要求程序质量：² 贯彻事件驱动的程序设计思想。² 用户界面友好，修饰适宜，功能明确，操作方便；适当增加12项其它功能。² 代码应规范(适当缩进、必要的注释)，以增强程序的可读性。课程设计说明书：² 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩目 录一、需求分析4二、设计分析5三、技术要点6四、总结10五、完整的源程序11六、参考文献12一、需求分析 将一个文本文件（file01_数据的导入.txt）中的数据导入到Access的数据表中，并显示相应的内容；再将数据库Access表中的数据导出到一个文本文件中，并显示相应的内容。要求：使用CommonDialog控件使用DataGrid控件。分析：导入：依据文本文件内容，先在Access数据库中创建出相应的表；一方面，用ADO数据控件打开表；另一方面用文件访问技术读取给定的文本文件中的内容，并添加到数据库表中。导出：用SQL语句，将数据库的每个字段的记录读取出来，依次写入文本文档中。二、设计分析基本原理：用SQL语句添加数据和读取数据。总体设计：导入：SQL语言处理数据库ADO技术连接导出：保存文件数据库SQL语言处理图1 总体设计详细设计： 开始读取数据写入数据保存导入表格读取文件建立数据表图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$, 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语句 LoopClose #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 - 1 conct = conct & cnn.Fields(n) & "," '通过循环将每条记录的不同字段连在一起 Next cnn.MoveNext '移动到下一条记录 Print #1, conct '写出每条记录的内容 Loop截图：Access表格：窗体设计：运行中的窗体：导入后的表格：导出：四、总结本次我的VB课程设计的题目是数据库数据的导入和导出。可以直接应用ADO控件建立与数据库的链接，使用SQL语句可以直接对数据库进行更改。刚开始时，一点头绪也没有。在查看了教材以及其他类书籍后，有了些头绪。在编辑数据的导入的过程中，在执行cnn.Execute(sqlstr)时，总是出错。将数据库的建立更改之后，程序可以运行。剩下的部分在同学的帮助下以及参考了谢书籍后，终于将程序编完了。在设计的过程中虽然遇到了诸多困难，但最终的成功很有成就感。此次课设让我体会到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, 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 = 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 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 - 1 conct = conct & cnn.Fields(n) & "," '通过循环将每条记录的不同字段连在一起 Next cnn.MoveNext '移动到下一条记录 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课程设计清华大学出版社第 13 页 共 13 页
