首页 / MYSQL / 学生信息管理系统(四)模块分析
学生信息管理系统(四)模块分析
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了学生信息管理系统(四)模块分析,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含2269字,纯文字阅读大概需要4分钟。
内容图文
![学生信息管理系统(四)模块分析](/upload/InfoBanner/zyjiaocheng/563/d434269b46c54ff394f1ace804fc2591.jpg)
学生信息管理系统已经敲完了,也进行了第一次验收,结果不是太理想。之前的总结也没有及时发表。现在重新复习一遍,把它发表。 从今天开始,我们就进入了代码分析阶段。现在我们就来分析一下模块中的几个函数。 Public Function ExecuteSQL(ByVal SQL As Str
学生信息管理系统已经敲完了,也进行了第一次验收,结果不是太理想。之前的总结也没有及时发表。现在重新复习一遍,把它发表。
从今天开始,我们就进入了代码分析阶段。现在我们就来分析一下模块中的几个函数。Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset 'executes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String 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 '非Select语句 cnn.Execute SQL '数据量不大时,可以在连接上,直接执行SQL语句 MsgString = sTokens(0) & " query successful" '虽然MsgString不是返回值,但传递方式是ByRef,实参地址和这个地址相同 Else 'Select语句 Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic '得到临时表,游标指向第一条记录 '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 FunctionExecuteSQL函数:
含义:利用SQL语句查询字符串,返回ADO记录集。
1、split()函数英文解释:vt.分裂;分开
计算机语言解释: 返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
语法:Split(expression[, delimiter[, count[, compare]]])
个人理解:split(SQL)就是把整个SQL语句拆解为一个数组。
例如:
SQL="select * from user_Info"
split(SQL)sTokens(0)=select
sTokens(1)=*
sTokens(2)=from
sTokens(3)=user_Info
这样就把一个完整的SQL语句拆解成了一个数组。2、Instr()函数
含义:字符串处理函数,返回要截取的字符串在源字符串中的位置。
语法:Instr([start,]string1,string2[,compare])
从Start(若省略从第一位开始)位置开始,在string1中寻找string2,如果没有找到则返回0。
例如:
若SQL="select * from user_Info"
则InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0)))=0
内容总结
以上是互联网集市为您收集整理的学生信息管理系统(四)模块分析全部内容,希望文章能够帮你解决学生信息管理系统(四)模块分析所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。