oledbconnection1.close()
catch ex as exception
listbox1.items.add("errors")
end try
else
end if
//================再把来ＸＭＬ文档，以ＸＭＬ形式显示在listbox里面
双击"ＸＭＬ文档" 写进下面这些代码:
listbox1.items.clear()
' 清空listbox
dim xtr as xmltextreader = new xmltextreader("myxml.xml")
'创建成一个xmltextreader读取"myxml.xml"文档
while xtr.read
select case (xtr.nodetype)
' 咱们用select case 形式来选择xml节点类型
case xmlnodetype.xmldeclaration
'先从listbox里写进xml声明=====xmldeclaration
listbox1.items.add("<?xml version='1.0' encoding='gb2312'?>")
'再依次显示节点的名称，值
'包括根节点
case xmlnodetype.element
listbox1.items.add("<" & xtr.name & ">")
case xmlnodetype.text
listbox1.items.add(xtr.value)
case xmlnodetype.endelement
listbox1.items.add("</" & xtr.name & ">")
end select
end while
xtr.close()
'关闭xmltextreader
//========再把数据库中所有数据显示在listbox中========
'双击"查看全部"按钮
'写入下面的一些代码:
listbox1.items.clear()
'这些代码大家应该可以看得懂了
oledbconnection1.open()
dim selall as string
selall = "select * from users"
oledbcommand1 = new oledbcommand
me.oledbcommand1.commandtext = selall
me.oledbcommand1.connection = oledbconnection1
try
dim creader as oledbdatareader = oledbcommand1.executereader()
while creader.read
listbox1.items.add("name: " & creader("nameid").tostring() & "; age :" & creader("age").tostring() & "; faverity :" & creader("faverity").tostring())
end while
creader.close()
catch ex as exception
listbox1.items.add("errors")
end try
oledbconnection1.close()
//==========================再来进完成删除按钮=================
'双击"删除"按钮
'写入以下的代码
if textbox4.text <> "" then
'如果不为空，进行以下操作
listbox1.items.clear()
'先清空listbox
oledbconnection1.open()
