VB6如何读取和写入修改XML文件，急需要！

[jsjkhanwei]

<?xml version="1.0" encoding="UTF-8" ?>
- <表单1>
<Name>张远东</Name>
<LIST>9</LIST>
<单选钮组>2</单选钮组>
<文本域1>hhjkhlkhk</文本域1>
</表单1>

文件格式如上，如何读取NAME中的“张远东”和单选钮组中的“2”呢？？

[东方之珠]

使用MSXML对象，事先在电脑安装上xml 4.0。下面是一个VB例子。
http://hi.baidu.com/longzhiyan/blog/item/a8834b6063ec7adc8db10d9d.html

[jyyq6]

用ADO的OPEN也行。

[xue123456144]

‘read
DataBaseDS.ReadXml(xmlPath)
If DataBaseDS.Tables(0).Rows.Count > 0 Then
myDB.ServerName = DataBaseDS.Tables(0).Rows(0).Item("ServerName").ToString
myDB.DataBaseName = DataBaseDS.Tables(0).Rows(0).Item("DataBaseName").ToString
myDB.DataBaseUserName = DataBaseDS.Tables(0).Rows(0).Item("DataBaseUserName").ToString
myDB.DataBasePassWord = DataBaseDS.Tables(0).Rows(0).Item("DataBasePassWord").ToString
end if

’write
Dim DsConnect As DataSet = New DataSet("Connect")
Dim DtConnect As DataTable = New DataTable("Connect")
DtConnect.Columns.Add("SqlServer", Type.GetType("System.String"))
DtConnect.Columns.Add("sqldb", Type.GetType("System.String"))
DtConnect.Columns.Add("User", Type.GetType("System.String"))
DtConnect.Columns.Add("Password", Type.GetType("System.String"))

Dim mydatarow As DataRow

mydatarow = DtConnect.NewRow()
mydatarow("sqlserver") = Me.txtServer.Text
mydatarow("sqldb") = Me.TextBox1.Text
mydatarow("user") = Me.TxtUser.Text
mydatarow("password") = Me.TxtPassword.Text

DtConnect.Rows.Add(mydatarow)
DtConnect.AcceptChanges()
DsConnect.Tables.Add(DtConnect)
DsConnect.WriteXml(Application.StartupPath + "\ConnectConfig.Xml")