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

jsjkhanwei 江苏卓顿信息科技有限公司 技术总监/研发总监  2008-01-13 02:59:39
<?xml version="1.0" encoding="UTF-8" ?>
- <表单1>
<Name>张远东</Name>
<LIST>9</LIST>
<单选钮组>2</单选钮组>
<文本域1>hhjkhlkhk</文本域1>
</表单1>

文件格式如上,如何读取NAME中的“张远东”和单选钮组中的“2”呢??
...全文
194 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xue123456144 2008-01-21
‘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")
回复
jyyq6 2008-01-21
用ADO的OPEN也行。
回复
东方之珠 2008-01-13
使用MSXML对象,事先在电脑安装上xml 4.0。下面是一个VB例子。
http://hi.baidu.com/longzhiyan/blog/item/a8834b6063ec7adc8db10d9d.html
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告