数据库SQL课程设计 (34)(2)

On Error GoTo ExecuteSQL_Error

sTokens = Split(SQL)

Set cnn = New ADODB.Connection cnn.Open ConnectString

If InStr("INSERT,DELETE,UPDATE", _ UCase$(sTokens(0))) Then cnn.Execute SQL

MsgString = sTokens(0) & _ " query successful" Else

Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic

'rst.MoveLast 'get RecordCount Set ExecuteSQL = rst

MsgString = "查询到" & rst.RecordCount & _ " 条记录 " End If

ExecuteSQL_Exit:

Set rst = Nothing Set cnn = Nothing Exit Function

ExecuteSQL_Error:

MsgString = "查询错误: " & _ Err.Description

Resume ExecuteSQL_Exit End Function

SQL,管理信息系统,课程设计,毕业设计,access

第3章 设计总结

两周的SQL Server数据库课程设计结束了，对于数据库来说，首先需要在计算机中安装SQL数据库程序，然后再创建和管理数据库，在企业管理器中创建所需的表。其次就是各种对象的设计，其中包括创建、查看、重命名、及删除等各方面的设计。它们是依照某种数据结构组织起来并存放二级存储器中的数据集合，基本分为三个层次，物理数据层，概念数据层和逻辑数据层，不同层次间的联系是通过映射来转换的。

程序设计思想的精巧的重要性，是不管怎么说都不为过的，好的设计可以让大家很快的明白你的思想，而且很方便的来实现它。课程设计结束了，我不只学到了实际设计并操作数据库系统，重要的是有了多人合作的经验，这简直太重要了。做什么事情，都要认真，既然是该你做的事，肯定是你应该有这个能力，即使能力不够，也是应该借这个机会来培养一下自己。所以我们应该放心大胆地做，因为对自己有信心，这样才会有动力。有人说，世上的事就怕认真二字。确实，做什么，只是认真地去做，踏踏实实，戒骄戒躁，静静地思考，慢慢地进步，真的是天下无难事。这就是我这次课程设计中得到的最大的体会，我感到受益匪浅。

SQL,管理信息系统,课程设计,毕业设计,access

参考文献

1.《SQL Server2000数据库管理系统》 程有娥 华东师范大学出版社 2.《数据库系统概论》 萨师煊 高等教育出版社

3.《SQL Server 数据库管理与开发教程与实训》 杜兆将 刘占文 北京大学出版社 4.《SQL Server 2000 数据库应用系统开发技术实验指导》朱如龙 机械工业出版社 5.《管理信息系统》 黄梯云 高等教育出版社

6.《SQL Server 2000数据库管理》 王宏 人民邮电出版社 7. 《SQL Server 2000课程设计案例精编》 李昆 水利水电出版社

8. 《SQL Server 2005 数据库开发详解》胡百敬，姚巧玫著 电子工业出版社 9. 《数据库原理及应用（SQL Server版）》 武洪萍 主编 北京大学出版社 10.《SQL Server 2000 数据库应用系统开发技术》朱如龙编 机械工业出版社 11. 《Visual + SQL Server数据库开发从基础到实践》 张智益，温才燚著电子工业出版社

12.《Visual Basic数据库通用模块及典型系统开发实例导航》马桂婷 人民邮电出版社