SYBASE ASE 12.5.2 OLEDB连接

最新推荐文章于 2011-10-03 18:13:00 发布

原创最新推荐文章于 2011-10-03 18:13:00 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sybase #sqlserver #string #function #path

.net 专栏收录该内容

4 篇文章

订阅专栏

这篇博客介绍了如何通过XML配置文件获取连接SYBASE ASE 12.5.2所需的服务器、数据库、用户名和密码，并使用这些信息建立OLEDB连接。提供了四个公共函数，用于读取XML文件并返回相应的连接参数。

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

    Public Function GetServer(ByVal path As String) As String
        Dim strserver As String
        Dim sqlconnxml As XmlDataDocument = New XmlDataDocument
        sqlconnxml.Load(path & "sybasecfg.xml")
        Dim sqlconn As XmlElement
        sqlconn = sqlconnxml.SelectSingleNode("sqlserver")
        Dim xmlserver As XmlElement = sqlconn.SelectSingleNode("server")
        If (Not sqlconn Is Nothing) Then
            strserver = xmlserver.InnerText
            Return strserver
        Else
            Return ""
        End If

End Function

    Public Function GetDB(ByVal path As String) As String
        Dim strdatabase As String
        Dim sqlconnxml As XmlDataDocument = New XmlDataDocument
        sqlconnxml.Load(path & "sybasecfg.xml")
        Dim sqlconn As XmlElement
        sqlconn = sqlconnxml.SelectSingleNode("sqlserver")
        Dim xmldatabase As XmlElement = sqlconn.SelectSingleNode("database")
        If (Not sqlconn Is Nothing) Then
            strdatabase = xmldatabase.InnerText
            Return strdatabase
        Else
            Return ""
        End If
    End Function

    Public Function GetUserID(ByVal path As String) As String
        Dim struser As String
        Dim sqlconnxml As XmlDataDocument = New XmlDataDocument
        sqlconnxml.Load(path & "sybasecfg.xml")
        Dim sqlconn As XmlElement
        sqlconn = sqlconnxml.SelectSingleNode("sqlserver")
        Dim xmluser As XmlElement = sqlconn.SelectSingleNode("user")
        If (Not sqlconn Is Nothing) Then
            Return struser
        Else
            Return ""
        End If
    End Function

    Public Function GetPWD(ByVal path As String) As String
        Dim strpassword As String
        Dim sqlconnxml As XmlDataDocument = New XmlDataDocument
        sqlconnxml.Load(path & "sybasecfg.xml")
        Dim sqlconn As XmlElement
        sqlconn = sqlconnxml.SelectSingleNode("sqlserver")
        Dim xmlpassword As XmlElement = sqlconn.SelectSingleNode("pwd")
        If (Not sqlconn Is Nothing) Then
            strpassword = xmlpassword.InnerText
            If (Not strpassword Is Nothing) Then
                strpassword = mylibfun.Relievepassword(strpassword)
            End If
            Return strpassword
        Else
            Return ""
        End If
    End Function

    Public Function GetSybaseconn(ByVal path As String) As OleDb.OleDbConnection
        Dim sybconnstr As String = "Provider=Sybase.ASEOLEDBProvider.2;Data Source='" & GetServer(path) & "';Database='" & GetDB(path) & "';User ID='" & GetUserID(path) & "';password='" & GetPWD(path) & "'"
        Dim sybconn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sybconnstr)
        Return sybconn
    End Function