SYBASE ASE 12.5.2 OLEDB连接

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

爱喝茶的大叔

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

阅读量1.4k

点赞数

分类专栏： .net 文章标签： sybase sqlserver string function path

本文链接：https://blog.csdn.net/dty11/article/details/4228406

版权

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

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

    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 =