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

最新推荐文章于 2022-03-17 21:36:16 发布

齐天佑

最新推荐文章于 2022-03-17 21:36:16 发布

阅读量1.2k

点赞数 3

分类专栏： vb

本文链接：https://blog.csdn.net/xyzyhs/article/details/100729968

版权

本文是对机房收费系统开发中的一些经典代码进行的归纳总结，包括数据库参数化查询、连接建立、数据集判断、查询关键字组合以及数据导出为Excel的功能，旨在方便未来开发时复用。

摘要由CSDN通过智能技术生成

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

数据库传递参数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$(