.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
ADO.NET对象的构造(3)_DataTable(续)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

n          Overloads Public Overridable Function Add() As DataTable

n          Overloads Public Overridable Sub Add(ByVal table As DataTable)

n          Overloads Public Overridable Function Add(ByVal name As String) As DataTable

n          Public Sub AddRange(ByVal tables() As DataTable)

参数

1.         table 要添加的 DataTable 对象。

2.         name 要赋予已创建的 DataTable 的名称。

3.         tables 要添加到集合中的 DataTable 对象的数组。

 

DataTableCollection 包含特定 DataSet 的所有 DataTable 对象。若要访问 DataSet DataTableCollection,请使用 Tables 属性。

DataTableCollection 使用诸如 AddClear Remove 之类的方法管理集合中的项目。

使用 Contains 方法确定集合中是否有特定表(由索引或名称指定)。

若要从一个表浏览到另一个表,请使用 DataTable ChildRelations ParentRelations 属性来访问它的 DataRelation 对象的集合。还可使用 Relations 属性浏览给定的 DataSet 集合中 DataTables 的父/子关系。

 

示例

Private Sub AddTable()

   Dim dSet As DataSet= CType(DataGrid1.DataSource, DataSet)

   Dim dt As DataTable

  

   dt = dSet.Tables.Add("myNewTable")

   MessageBox.Show(dt.TableName)

   MessageBox.Show(dSet.Tables.Count.ToString() & " tables")

 

   Dim i As Integer

   For i = 0 to 2

      dSet.Tables.Add()

   Next i

   MessageBox.Show(dSet.Tables.Count.ToString() & " tables")

 

   Dim tables As DataTableCollection = CType(DataGrid1.DataSource, DataSet).Tables

   tables.Add(New DataTable)

   MessageBox.Show(dSet.Tables.Count.ToString() & " tables")

 

   Dim t As DataTable

   Dim r As DataRow

   Dim c As DataColumn

   For Each t In dSet.Tables

      Console.WriteLine(t.TableName)

      For Each r In t.Rows

         For Each c in t.Columns

            If Not (r(c) Is Nothing) Then

               Console.WriteLine(r(c))

            End If

         Next

      Next

   Next

 

   Dim t1 As DataTable = New DataTable("Customers" )

   t1.Columns.Add("customerId", Type.GetType("System.Int32")).AutoIncrement = True

   t1.Columns.Add("name", Type.GetType("System.String"))

   t1.PrimaryKey = New DataColumn() { t1.Columns("customerId") }

 

   Dim t2 As DataTable = New DataTable("Orders" )

   t2.Columns.Add("orderId", Type.GetType("System.Int32")).AutoIncrement = True

   t2.Columns.Add("customerId", Type.GetType("System.Int32"))

   t2.Columns.Add("amount", Type.GetType("System.Double"))

   t2.PrimaryKey = New DataColumn() { t2.Columns("orderId") }

 

   dSet.Tables.AddRange( New DataTable() {t1, t2} )

 

   For Each t In dSet.Tables

        Console.WriteLine(t.TableName )

        For Each c In t.Columns

            Console.Write("{0}" & vbTab, c.ColumnName)

        Next

        Console.WriteLine()

   Next

   MessageBox.Show(dSet.Tables.Count.ToString() & " tables")

End Sub




相关文章

相关软件