VB.NET 与 XML 的实例操作_Asp.net教程_.Net教程_Vb.net教程_Vc.net_C#编程

　　'　再建立项目的文件夹的bin文件夹下

　　'创建两个文件

　　'一个是"myxml.xml"

　　'一个是"myxml.mdb"

　　'这里面有一个表"users"三个字段名"nameid","age","faverity"

　　'再转到图形界面

　　'单击"工具箱"的"数据"把"OleDbConnection"," OleDbComman","DataSet","OleDbDataAdapter"

　　'拉入窗体界面

　　'依次对这几个控件进行操作

　　'我的文件夹是D:vbprojectApplication1

　　'D:vbprojectApplication1/bin/myxml.xml

　　'D:vbprojectWindowsApplication1/bin/myxml.mdb

　　//======================准备结束==============

　　(1)首先在机子上要有FrameWork

　　打开VS.NET依次展开:文件-新建-项目;

　　再选择VISUAL-BASIC-项目-Windows应用程序

这就是所需要一个小界面

　　现在一步步的来写代码，完成它的功能

　　首先来完成添加功能:

　　我们目标是：通过这三个文本框(姓名，年龄，爱好)来添加到数据库中。然后再把这个数据库的表保存成XML格式

　　双击"添加"按钮

　　在里面写下以下这些代:(VB写的语言，不是)

　　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 reader.Read() Then

　　'通过DataReader来读取，如果读得到，表明数据在有这个姓名存在，不添加;

　　ListBox1.Items.Add("已经有该记录!")

　　Else

　　reader.Close()

　　'要对数据库进行操作，首先把DataReader关掉;

　　Dim insert As String

　　insert = "insert into users(nameid,age,faverity) values('" &TextBox1.Text &"','" &TextBox2.Text &"','" &TextBox3.Text &"')"

　　'建立一个插入字符串

　　OleDbCommand1 = New OleDbCommand

　　Me.OleDbCommand1.CommandText = insert

　　Me.OleDbCommand1.Connection = Me.OleDbConnection1

　　Me.OleDbCommand1.ExecuteNonQuery()

　　ListBox1.Items.Add("添加成功!!")

　　'以下是把数据库的数据保存为XML格式

　　DataSet1 = New DataSet

　　OleDbDataAdapter1 = New OleDbDataAdapter("select * from users", OleDbConnection1)

　　OleDbDataAdapter1.Fill(DataSet1, "users")

　　DataSet1.WriteXml("myxml.xml")

　　End If

　　Catch ex As Exception

　　ListBox1.Items.Add("Errors!")

　　End Try

　　OleDbConnection1.Close()

　　Else

　　MessageBox.Show("请输入完整!!")

　　End If

　　//==================接下来是对数据库进行查询===================

　　'双击"查找"按钮

　　'写入以下代码

　　If TextBox4.Text <> "" Then

　　'还是和上面一样如果文本框为空，就不执行，如果不为空，就执行下面的操作

　　ListBox1.Items.Clear()

　　'首先把listBox清空

　　Dim searchtext As String

　　searchtext = TextBox4.Text

　　OleDbConnection1.Open()

　　Dim selstring As String

　　selstring = "select * from users where nameid like '%" &searchtext &"%'"

　

[1]   

【责编:Luzi】

--------------------next---------------------