专题：   SaaS时代  危机下的企业  JAVA语言  百度竞价排名  Windows 7  刀片式服务器  危机    移动嵌入串串烧 
更多精彩专题

VB.NET与XML的实例操作

2008-08-18 11:14:57.0     推荐:0    收藏:0    评论:0     来源:中国IT实验室
''　再建立项目的文件夹的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)首先在机子上要有.NetFrameWork

　　打开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 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页]   [第2页]   [第3页]   [下一页]
您可以针对本文进行：[评论]  [收藏]  [推荐]  
  • 共有0条评论  点击查看更多评论
  • 网友评论仅供网友表达个人看法，并不表明e800同意其观点或证实其描述
我想发表评论：
用户名密码
  • 匿名发表
    验证码：
    • 资讯热点文章
      • 专题
        • 文章排行