vb里边怎样用dt

vb里边怎样用dt,第1张

Dim dt As new DataTable

dtColumnsAdd("列1") '添加列

dtColumnsAdd("列2") '添加列

Dim r As DataRow = dtNewRow '添加行

r("列1")=1

r("列2")=1

dtRowsadd(r)

使用DataSet类来完成这项任务。

DataSet对象在传输时,是以XML流的形式而不是以COM形式传输的。DataSet对象可以读取XML数据文件或者数据流,从而将树型结构的XML数据转换成关系型的数据,如表(DataTable)、列(DataColumn)、行(DataRow)等。

在这个实例中,我们将XML文件命名为“xmlfile.xml”,具体内容如下:

<xml version=\"1.0\"standalone=”yes”>

<Detail>

<Person>

<Name>Manish</Name>

<Age>22</Age>

</Person>

</Detail> \'用VB.NET读写XML文件

C1aSS WriteXML

Shared Sub main()

Dim obj DataSet As New System.Data.DataSet()

Dim strVirtualPath As String=”t.xml”

\'载入XML文件DataSet

objDataSet.ReadXml(”xmlfile.xml”)

\'通过控制器读取XML内容

Console.Write(objDataSet.GetXml)

\'从原XML文件中得到数据

ConSOle.Write(”Enter Name:”)

Dim fname,age As String

fname=ConS01e.ReadLine

\'写入你希望的代码

ConS01e.Write(”Enter Age:”)

age=Console.ReadLine

ConS0le.Write(fname&age)

Dim v(1)As String

v(0)=fname

V(1)=age

\'增加数据DataSet

objDataSet.Tables(0).Rows.Add(V)

\'更新XML文件

objDataSet.WriteXml(”xmlfile.xml”)

Console.Write(obj DataSet.GetXml)

End Sub

End C1ass

运行该程序有两种方式,一种是在Microso~VS.NET框架中编译完后运行;另一种则是在仿DOS的Command窗口中运行。在第一种方式中,必须加上System、System.Data、System.xML的引用。具体方法为:先创建一个空的项目,然后加入这个文件名字;在“解决方案资源管理器”中加入引用,此时需要选择相应的.dll文件;注意,xmlfile.xml文件应该放在工程的/bin目录下面。我们可以输出结果也可以用浏览器直接查看改变后的XML文件。在第二种方式中,选择桌面的“程序”一“Microso~Visual Studio.NET”一“VisualStudio.NET工具”一“Visual Studio.NET命令提示”命令,在DOS命令提示框敲入命令:[Page]

vbc/r:system.d11/r:system.data.d11/r:system.xml.d11 xml.vb其中,程序名为xml.vb,这里的3个.dll文件都是必须调用的库文件。应该在存放VB.NET文件的目录中运行上述命令,否则找不到相应的程序,当然设置PATH也可以做到。此外,Xml_vb文件应该和XML文件放在同一目录下面。每次运行此程序都会往文件中写进同样的内容,都是写入<Person/>,运行一次写一行。其实,我们只要稍微修改一下这个程序,就可以往XML中写入我们所需要的数据。

给你一段我曾经写的代码,主要是生成TreeView的节点!有什么不懂的地方你就提!

Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)

Dim treBaseNodeOne As TreeNode

Dim treBaseNodeTwo As TreeNode

Dim strDWDM As String

m_rsRecordTwo = g_clsSybaseSelectSC_PD_SBCSB1()

'查找供电局信息

g_clsSybaseSelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)

'添加根节点

Do While m_rsRecordOneRead

strDWDM = m_rsRecordOneGetString(0) '获取单位代码

treBaseNodeOne = New TreeNode

treBaseNodeOneText = m_rsRecordOneGetString(1)Trim() '获取单位名称

treBaseNodeOneName = m_rsRecordOneGetString(1)

treBaseNodeOneTag = ""

strvXLNodesAdd(treBaseNodeOne)

'添加树结构第二层

Dim drsTwo() As DataRow

drsTwo = m_rsRecordTwoTables(0)Select("SSDW='" & strDWDM & "' and SC__XLBM is null")

For Each dr As DataRow In drsTwo

treBaseNodeTwo = New TreeNode

treBaseNodeTwoText = drItem("XLMC")ToStringTrim

treBaseNodeTwoName = drItem("XLMC")

treBaseNodeTwoTag = drItem("XLBM")

treBaseNodeOneNodesAdd(treBaseNodeTwo)

Next

Loop

m_rsRecordOneClose()

End Sub

以上就是关于vb里边怎样用dt全部的内容,包括:vb里边怎样用dt、使用vb.net如何读取XML文件、vb.net从数据库读取信息填充treeview做成层次目录怎么做等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/10625806.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-10
下一篇 2023-05-10

发表评论

登录后才能评论

评论列表(0条)

保存