VB.NET 与 XML 的实例操作

 再建立项目的文件夹的bin文件夹下
　　
　　'创建两个文件
　　
　　'一个是"myxml.xml"
　　
　　'一个是"myxml.mdb"
　　
　　'这里面有一个表"users"三个字段名"nameid","age","faverity"
　　
　　
　　'再转到图形界面
　　
　　'单击"工具箱"的"数据"把"OleDbConnection"," OleDbComman","DataSet","OleDbDataAdapter"
　　
　　'拉入窗体界面
　　
　　'依次对这几个控件进行操作
　　
　　'我的文件夹是D:vbprojectWindowsApplication1
　　
　　'D:vbprojectWindowsApplication1/bin/myxml.xml
　　
　　'D:vbprojectWindowsApplication1/bin/myxml.mdb
　　
　　//======================准备结束==============
　　
　　(1)首先在机子上要有.Net FrameWork
　　
　　打开VS.NET依次展开:文件-新建-项目;
　　
　　再选择VISUAL-BASIC-项目-Windows应用程序

　　这就是所需要一个小界面
　　
　　现在一步步的来写代码，完成它的功能
　　
　　首先来完成添加功能:
　　
　　我们目标是：通过这三个文本框(姓名，年龄，爱好)来添加到数据库中。然后再把这个数据库的表保存成XML格式
　　
　　双击"添加"按钮
　　
　　在里面写下以下这些代:(VB写的语言，不是C#)
　　
　　If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
　　
　　'在三个文本框都不为空时，执行以下操作,
　　
　　'否则出错
　　Dim strsel As String
　　strsel = "select * from users where nameid='" & TextBox1.Text & "'"
　　
　　'建立一个查询字符串，看要要添加的姓名，是否已在数据中存在，如果不存在就可以添加
　　OleDbCommand1 = New OleDbCommand
　　Me.OleDbCommand1.CommandText = strsel
　　Me.OleDbCommand1.Connection = OleDbConnection1
　　OleDbConnection1.Open()
　　Try
　　
　　'进行异常处理
　　
　　Dim reader As OleDbDataReader = OleDbCommand1.ExecuteReader()
　　If re