RDO连接

最新推荐文章于 2024-02-07 22:09:49 发布

yanjun_xiaoli

最新推荐文章于 2024-02-07 22:09:49 发布

阅读量274

点赞数

分类专栏： RDO 文章标签： integer database string

本文链接：https://blog.youkuaiyun.com/yanjun_xiaoli/article/details/4037926

版权

RDO 专栏收录该内容

1 篇文章

订阅专栏

本文提供了一个使用RDO (Remote Data Objects) 进行数据库连接和断开连接的VBScript示例代码。该示例展示了如何创建RDO引擎、连接对象和环境，并通过指定的连接字符串打开数据库连接。

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

    Public Eng As RDO.rdoEngine
    Public Cng As RDO.rdoConnection
    Public Env As RDO.rdoEnvironment

    '#############################################################
    '连接
    '#############################################################
    Public Sub DBconnect()
        Dim i As Integer
        Dim Conn As String

        On Error GoTo ERR
        Eng = New RDO.rdoEngine
        Cng = New RDO.rdoConnection
        Env = Eng.rdoCreateEnvironment("MC5", "MC5", "MC5")
        Conn = "Uid = MC5; Pwd = MC5; Database = MC5; DSN = MC5 "

        Cng = Env.OpenConnection("MC5", RDO.PromptConstants.rdDriverNoPrompt, False, Conn)
        Exit Sub
ERR:
        For i = 0 To Eng.rdoErrors.Count - 1
            errlog = errlog & Now & Eng.rdoErrors.Item(i).Description & vbCrLf
        Next
        Eng = Nothing
        Cng = Nothing
        Env = Nothing
    End Sub

    '#############################################################
    '断开
    '#############################################################
    Public Sub DBdisconnect()

        On Error GoTo ERR
        Env.Close()
        Eng = Nothing
        Cng = Nothing
        Env = Nothing
        Exit Sub
ERR:
        Eng = Nothing
        Cng = Nothing
        Env = Nothing
    End Sub