本篇內容來自http://blog.sina.com.cn/s/blog_49d619a301009144.html

XML配置檔案代替INI(VB.NET)

Imports System.Data
Public Class CLSReadXML
    Private servername As String '伺服器名
    Private Dbname As String '資料庫名稱
    Private Uid As String '資料庫使用者名稱
    Private pwd As String '資料庫密碼
    Private DSXml As New DataSet
    
 
Private Xpath As String 'Xml檔案路徑
    Sub New(ByVal str As String)
       Xpath = str '獲得xml檔案儲存路徑
    End Sub
#Region "屬性用於寫入 和得到xml檔案內容的屬性"
    Public Property Getserver()
       Get
           Return servername
       End Get
       Set(ByVal Value)
           servername = Value
       End Set
    End Property
 

    Public Property Getdbname()
       Get
           Return Dbname
       End Get
       Set(ByVal Value)
           Dbname = Value
       End Set
    End Property
    Public Property Getpwd()
       Get
           Return pwd
       End Get
       Set(ByVal Value)
           pwd = Value
       End
 
 Set
    End Property
    Public Property GetdUid()
       Get
           Return Uid
       End Get
       Set(ByVal Value)
           Uid = Value
       End Set
    End Property
#End Region
#Region "方法讀寫xml檔案的方法當xml檔案不存在時自動建立一xml檔案"
   '讀取xml檔案內容
    Public Function ReadXml() As Boolean
       Try
           DSXml.ReadXml(Xpath)
           servername = DSXml.Tables(0).Rows(0)("server")
           Dbname = DSXml.Tables(0).Rows(0).Item("Dbname")
           Uid = DSXml.Tables(0).Rows(0).Item("uid")
           pwd = DSXml.Tables(0).Rows(0).Item("pwd")
           Return True
       Catch ex As Exception
           Throw ex
           Return False
       End Try
    End Function
   '如果xml檔案不存在的時候建立一xml檔案
    Public Function WriteXml() As Boolean
       Dim DT As New DataTable
       Try
           DSXml.Tables.Clear()
           DSXml.Clear()
           '給定table列框架
           DT.Columns.Add("server", GetType(String))
           Dt.Columns.Add("DBname", GetType(String))
           Dt.Columns.Add("uid", GetType(String))
           Dt.Columns.Add("pwd", GetType(String))
           Dim DR As DataRow
           DR = Dt.NewRow
           DR.Item("server") = servername
           DR.Item("DBname") = Dbname
           DR.Item("uid") = Uid
           DR.Item("pwd") = pwd
           Dt.Rows.Add(DR)
           DSXml.Tables.Add(Dt)
           DSXml.AcceptChanges()
           DSXml.WriteXml(Xpath)
           Return True
       Catch ex As Exception
           Throw ex
           Return False
       End Try
    End Function
#End Region
End Class