学生信息管理系统（四）——模块分析

标签：des   style   blog   color   strong   数据   io   2014   

       学生信息管理系统已经敲完了，也进行了第一次验收，结果不是太理想。之前的总结也没有及时发表。现在重新复习一遍，把它发表。

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 Function

      含义：利用SQL语句查询字符串，返回ADO记录集。

英文解释：vt.分裂;分开

计算机语言解释： 返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 

语法：Split(expression[, delimiter[, count[, compare]]])  

个人理解：split(SQL)就是把整个SQL语句拆解为一个数组。

例如：

          SQL="select * from user_Info"

          sTokens(3)=user_Info

例如：

        若SQL="select * from user_Info"

        则InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0)))=0

学生信息管理系统（四）——模块分析,布布扣,bubuko.com

学生信息管理系统（四）——模块分析

标签：des   style   blog   color   strong   数据   io   2014   

原文地址：http://blog.csdn.net/luckystar689/article/details/37094321