作者:fx_blog(CSDN) 日期:2005-4-27 内容:.net与xml的小软件(100多行左右) 注意:如果转贴,请一定注明出处,以及作者 //=================================开始=============== //======================准备工作=========================== '''' 再建立项目的文件夹的bin文件夹下 ''''创建两个文件 ''''一个是"myxml.xml" ''''一个是"myxml.mdb" ''''这里面有一个表"users"三个字段名"nameid","age","faverity" ''''再转到图形界面 ''''单击"工具箱"的"数据"把"OleDbConnection"," OleDbComman","DataSet","OleDbDataAdapter" ''''拉入窗体界面 ''''依次对这几个控件进行操作 ''''我的文件夹是D:\vbproject\WindowsApplication1 ''''D:\vbproject\WindowsApplication1/bin/myxml.xml ''''D:\vbproject\WindowsApplication1/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 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 & "%''''" '''' 建立查询字符串,可以支持模糊查询 OleDbCommand1 = New OleDbCommand Me.OleDbCommand1.CommandText = selstring Me.OleDbCommand1.Connection = OleDbConnection1 ''''以下几句是显示匹配的条数 DataSet1 = New DataSet OleDbDataAdapter1 = New OleDbDataAdapter(selstring, OleDbConnection1) OleDbDataAdapter1.Fill(DataSet1, "users") ListBox1.Items.Add("共有" & DataSet1.Tables("users").Rows.Count & "条匹配的记录") ListBox1.Items.Add("-------------------------------------------------------------") Try ''''进行异常处理 Dim cmdreader As OleDbDataReader = OleDbCommand1.ExecuteReader() While cmdreader.Read ''''注意这里要用while ''''不然就无法进行循环,就只能进行一次查询 ListBox1.Items.Add(cmdreader("nameid").ToString()) ListBox1.Items.Add(cmdreader("age").ToString()) ListBox1.Items.Add(cmdreader("faverity").ToString()) ListBox1.Items.Add("----------------------------------") End While cmdreader.Close() OleDbConnection1.Close() &nb [1] [2] 下一页 [Web开发]XML与HTML在语法上的主要区别详解 [办公软件]RIGHT函数和逻辑与&和Value函数在Excel中的应用举… [聊天工具]Pointers 与 References(一) [聊天工具]Pointers 与 References(二) [聊天工具]用POPO股海实时通功能 与POPO股神侃股票__天极Yes… [系统软件]如何让Expat支持中文XML [常用软件]Expression3 与intuos2应用实例 [常用软件]在C/S体系中设置工作站与服务器的时钟同步 [VB.NET程序]定制VB.NET控件编程之拦截击键动作 [VB.NET程序]VB.NET VS C#.
|