机房收费系统——经典代码总结

       机房收费系统完成之后，发现其中有很多经典的代码，这些代码在未来的开发中很可能会使用到。针对这么代码进行一个归纳总结，方便日后使用

数据库传递参数SQL传递查询语句，记录查询结果

'传递参数SQL传递查询语句，Msgstring传递查询信息
'自身以一个数据集对象的形式返回
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection     '定义连接
    Dim rst As ADODB.Recordset
    Dim sTokens() As String         ' 定义字符串
 
On Error GoTo ExecuteSQL_Error
'异常处理
 
    sTokens = Split(SQL)    '用Split函数产生一个包含各个子串的数组
 
    Set cnn = New ADODB.Connection    '创建连接
    cnn.Open ConnectString     '打开连接
 
    '判断字符串中是否含有指定内容
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
        '执行查询语句
        cnn.Execute SQL
        '返回查询信息
        MsgString = sTokens(0) & " query successsful"
    Else
        '创建数据集对象
        Set rst = New ADODB.Recordset
        '返回查询结果
        rst.Open Trim$(