VBS连接数据库操作

最新推荐文章于 2023-04-01 00:10:28 发布

chenshuixian2

最新推荐文章于 2023-04-01 00:10:28 发布

阅读量8.9k

点赞数 1

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/chenshuixian2/article/details/5874370

这段VBS代码提供了一组数据库连接和操作的公用函数，包括连接Oracle、DB2、SQL Server和Access数据库，执行查询、更新和关闭连接。通过创建ADODB对象并根据不同的数据库类型设置连接字符串，实现数据库的增删查改操作。此外，还提到了通过ODBC数据源建立DSN以连接MySQL数据库的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DATABASE公用函数
'
'###########################################################################################################
'###########################################################################################################

Dim objConnection                          'CONNECTION对象实例
Dim objRecordSet                                   'RECORDSET对象实例
Dim objCommand                                '命令对象实例
Dim strConnectionString                        '连接字符串

' ********************************************************************
' 函数说明：连接数据库;
' 参数说明：(1)strDBType（数据库类型：如ORACEL；DB2；SQL；ACCESS）
'           (2)strDBAlias（数据库别名）
'           (3)strUID（用户名）
'           (4)strPWD（密码）
'           (5)strIP（数据库IP地址：仅SQL SERVER 使用）
'           (6)strLocalHostName（本地主机名：仅SQL SERVER 使用）
'           (7)strDataSource（数据源：仅ACCESS使用；如d:/yysc.mdb）
' 返回结果：无
' 调用方法: ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)
' ********************************************************************
Sub ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)
    Set objConnection = CreateObject("ADODB.CONNECTION"                '1 - 建立CONNECTION对象的实例

    Select Case UCase(Trim(strDBType))
        Case "ORACLE"
            strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=" & strDBAlias & ";Uid="_
                & strUID & ";Pwd=" & strPWD & ";"                                '2 - 建立连接字符串
            objConnection.Open strConnectionString                                '3 - 用Open 方法建立与数据库连接
        Case "DB2"
            strConnectionString = "Driver={IBM DB2 ODBC DRIVER};DBALIAS=" & strDBAlias & ";Uid="_
                & strUID & ";Pwd=" & strPWD & ";"