1.        dataAdapter对象
数据适配器对象是数据提供者OracleConnection对象和dataset对象之间的管道。它是一个非常复杂的数据读取器,也可以改变数据源。打开数据集以后,我们所有的操作都可以对数据集进行而不是对数据源进行了。
下面是使用代码新建一个OracleDataAdapter对象的例子:
Dim strConn As String = "user id=JBTTM;data source=SCUT;password=JBTTM"
Dim Conn As New OracleConnection(strConn)
Dim cmd As New OracleCommand("select * from student", Conn)
Dim oraAdapter As New OracleDataAdapter
oraAdapter.SelectCommand = cmd
 
oraAdapter.Fill(dst, "student")
DataGrid1.DataSource = dst.Tables("student")
 
我们需要注意数据适配器对象的几个属性和方法,如selectCommand等四个属性,是数据适配器对象能够使数据集完成数据查询更新等操作的关键。在使用设计工具设计适配器对象时,我们一般都可以自动设置它们。
在我们产生一个新的数据适配器的时候,SelectCommand属性会被自动设置,这是必须的。如果我们希望适配器可以完成更新类的行为,可以设置其它的Command参数,当然,后面三个insert、update和delete三个命令参数也会被设置。
下面是使用手工方法设置的例子:
cmd = New OracleCommand("INSERT INTO Dept (DeptNo, DName) " & "VALUES (:pDeptNo, :pDName)", conn)
cmd.Parameters.Add("pDeptNo", OracleType.Number, 2, "DeptNo")
cmd.Parameters.Add("pDName", OracleType.NVarChar, 14, "DName")
da.InsertCommand = cmd
 
OracleDataAdapter的两个方法,如Fill和Update都是重要的,前者可以将得到的数据装载到数据集的一张表中去,而后者可以用于更新一个数据集对象。Update方法的更新是基于一个Dataset的,如果我们将一个表数据绑定到一个datagrid控件,我们在修改、添加和删除数据后,只需要使用Update方法就可以将数据保存到数据库中去。
 
在数据的获取中,我们也可能需要使用不同的字段名,比如将英文改为中文等,这个过程尽管我们也可以修改datagrid控件的属性,但是我们也可以通过产生一个映射表的方式来完成,如下面的代码:
Dim myMap As New DataTableMapping("student", "stu")
With myMap.ColumnMappings
     .Add("SID", "编号")
     .Add("NAME", "姓名")
     .Add("AGE", "年龄")
     .Add("ADDR", "地址")
End With
 
OracleDataAdapter1.TableMappings.Add(myMap)
OracleDataAdapter1.Fill(DataSet11, "student")
DataGrid1.DataSource = DataSet11
DataGrid1.DataMember = "stu"
在下面所有的例子中,我们都是使用一个数据适配器对象来往数据集中填充一个表的。
 
2.        commandBuilder对象
它可以给dataAdapter对象自动生成删除,插入和更新的属性,用于处理数据更新等操作。在不使用工具配置一个适配器对象的时候,我们一般都仅仅设置dataAdapter对象的selectCommand属性,这个时候如果进行Update方法就会出现异常,因此必须使用commandBuilder对象来设置,其设置的方法非常简单:
Dim combuild As New OracleCommandBuilder(OracleDataAdapter)
 
3.        DataSet 对象
DataSet是数据在内存中的断开副本,它是在system.data空间中定义的,这意味着无论使用何种数据源,dataset都是一样的,它就是在内存中的一个数据库。什么时候需要使用DataSet呢?如果数据源有多个,如果在各个层之间交换数据,如果使用XML服务,如果对数据进行重复性操作和如果使用大量数据的话,建议使用Dataset对象。
这种方法取出数据需要dataAdapter作为媒介。下面是一个例子:
Dim pDs As DataSet
pDs = New DataSet
Dim pAdapter As OracleDataAdapter
pAdapter = New OracleDataAdapter("select * from sde.catalog", pConn)
pAdapter.Fill(pDs, "catalog") '将选出的数据放入一个表中
Dim i As Integer
For i = 0 To pDs.Tables(0).Rows.Count - 1
    '下面的语句可以将表的结构输出
    MessageBox.Show(pDs.Tables(0).Columns(i).ToString)
Next
 
在一个数据集中需要使用两个或以上的表的时候,我们就必须配置多个dataAdapter对象,下面的代码是有两个数据表的一个数据集对象,使用TreeView控件来控制。下面是在Load事件中:
Dim rootnode As New TreeNode("表")
TreeView1.Nodes.Add(rootnode)
Dim i As Integer
Dim j As Integer
For i = 0 To DataSet11.Tables.Count - 1
    Dim tablename As New TreeNode(DataSet11.Tables(i).TableName)
    rootnode.Nodes.Add(tablename)
    For j = 0 To DataSet11.Tables(i).Columns.Count - 1
        Dim fieldname As New TreeNode(DataSet11.Tables(i).Columns(j).ColumnName)
        tablename.Nodes.Add(fieldname)
    Next
Next
下面的代码在TreeView的AfterSelect事件中:
If TreeView1.SelectedNode.Text = "表" Then Exit Sub
 If TreeView1.SelectedNode.Parent.Text = "表" Then
       DataSet11.Clear()
       OracleDataAdapter1.Fill(DataSet11)
       OracleDataAdapter2.Fill(DataSet11)
       DataGrid1.DataSource = DataSet11
       DataGrid1.DataMember = TreeView1.SelectedNode.Text
End If
这样,当我们点击表名称节点的时候,在一边的DataGrid控件中就会出现这个表的数据。
 
4.        dataTable对象
dataTable是dataset对象中所包含的对象,一个dataset对象可以有多个dataTable,在ADO中recordset的概念与dataTable最为接近。我们知道,在ADO中,查看数据有moveNext等语句,可以让数据游标移动,但是在ADO.NET中,却不支持游标。
我们可以在一个dataSet中新建一个dataTable,下面是代码,生成一个有两个字段的表:
ds.Tables.Add("BigTable")
ds.Tables(0).Columns.Add("ID", Type.GetType("System.Int32"))
ds.Tables(0).Columns("ID").Unique = True
ds.Tables(0).Columns.Add("Value", Type.GetType("System.Int32"))
 
在数据表对象中没有直接提供查找、排序和筛选的方法,但是我们可以使用它的defaultview属性来实现这个功能,后面这个属性(其实是一个视图对象),拥有Find、Sort和RowFilter方法。下面是一个使用代码,数据表已经被Fill进入了数据集对象:
Dim str As String = "SID>1003"
DataSet11.Tables(1).DefaultView.RowFilter = str
DataGrid1.DataSource = DataSet11.Tables(1)
 
dataTable对象本身提供了一个select方法用于选择数据,下面是一个例子:
Dim dtRow() As DataRow
Dim dr As DataRow
dtRow = DataSet11.Tables(1).Select("SID>1003", "SID DESC")
For Each dr In dtRow
      ComboBox1.Items.Add(dr("name"))
Next
 
5.        dataRow
dataRow对象是数据表中的一行记录,我们可以通过多种方式得到,新建一个数据行的代码是:
Dim drow As DataRow
drow = DataSet11.Tables(0).NewRow
然后,我们可以给这个数据行对象填入数据,最后写上下面的语句将它添加到数据表中:
DataSet11.Tables(0).Rows.Add drow
 
将一个数据行删除的方法有两种,一是使用remove方法,另一种是使用delete方法,当时后一种方法仅仅是将数据做上删除的标记,需要使用AcceptChange方法真正删除。
方法一:
Mytable.Rows.Remove(mytable.row(1))
方法二:
Mytable.rows(1).delete
Mytable.AcceptChange
 
6.        dataColumn
数据列是我们使用代码新建数据表时需要产生的对象。
 
7.        数据关系dataRelation对象
Dataset作为一个可以容纳数据表的内存容器对象,不可避免地,这些数据中将存在关系,而关系也是dataset的一个重要属性对象。
下面是一个产生数据关系对象的代码:
Dim par As DataColumn
Dim chi As DataColumn
par = DataSet11.Tables("press").Columns("pressid")
chi = DataSet11.Tables("booklist").Columns("pressid")
 
Dim rel As New DataRelation("bookpress", par, chi)
DataSet11.Relations.Add(rel)
当我们使用可视化工具往一个dataset中装载进两个表的时候(每个表都需要使用一个自己的适配器,并且表拥有一些限制规则,如唯一性,主键,外键等),我们可以在数据集的架构中为两个表设置关系属性,在关系属性设置后,当我们往数据集中Fill数据的时候,需要先保证数据的限制规则不起作用,否则会出现限制问题,代码如下:
DataSet11.EnforceConstraints = False
OracleDataAdapter1.Fill(DataSet11)
OracleDataAdapter2.Fill(DataSet11)
DataGrid1.DataSource = DataSet11.PRESS
在数据装载后,我们需要使限制规则有效,再加上下面的代码:
DataSet11.EnforceConstraints = True
 
下面我们再来讨论一个问题:如何在一个datagrid显示主表,而在另一个datagrid中显示关联表:
'tempDt是一个临时的数据集对象
Dim tempDt As New DataSet
 
tempDt.EnforceConstraints = False
OracleDataAdapter1.Fill(tempDt)
OracleDataAdapter2.Fill(tempDt)
tempDt.EnforceConstraints = True
'将临时数据集合并到dataset11中去,dataset11中保存了两个表的关系pressbook
DataSet11.Merge(tempDt)
'绑定数据
DataGrid1.SetDataBinding(DataSet11, "press")
DataGrid2.SetDataBinding(DataSet11, "press.pressbook")
 
数据导航:
在数据显示中,我们通常都需要使用按钮来获得诸如“第一条数据”“下一条数据”等内容,其代码如下:
Dim ps As CurrencyManager
ps = Me.BindingContext(DataSet11, "press")
上面的ps可以将数据集中的press表绑定状态,而显示表的datagrid也会制动绑定ps。
第一条数据:
ps.Position = 0
最后一条数据:
ps.Position = ps.Count – 1
往后一条:
ps.Position += 1
往前一条:
ps.Position -= 1
 
TextBox控件的数据绑定代码:
TextBox1.DataBindings.Add("text", DataSet11, "press.name")
它绑定了数据集中一个表的某个字段。
 
8.        dataView
数据视图对象其实是一个虚表,它可以在一个实际存在的表的基础上创建,从而生成一个新的视图供用户使用,如:
Dim pDataView As DataView
pDataView = New DataView(pDs.Tables("cate"), "d<4", "objectid", DataViewRowState.CurrentRows)
GridControl2.DataSource = pDataView
 
9.        往表中存入一条数据(下面的方法更简单)
Dim pDs As DataSet
pDs = New DataSet
Dim pAdapter As OracleDataAdapter
pAdapter = New OracleDataAdapter("select * from sde.catalog", pConn)
pAdapter.Fill(pDs, "catalog")  '在数据集中产生一个表,
dim pTable As DataTable
Dim pRow As DataRow
pTable=pDs.Tables("catalog")
pRow = pTable.NewRow
pRow(0) = 7
pRow(1) = "aa"
pRow(2) = 1
pRow(3) = "aa"
pRow(4) = 20
pTable.Rows.Add(pRow)
pAdapter.Update(pDs, "catalog")
 
10.    更新一条数据(7的方法更简单)
如果我们要更新objectid=10的数据,其方法为:
Dim pRowColl As DataRow()
Dim dataRow As DataRow
Dim pTable As DataTable
pTable = pDs.Tables("catalog")
pRowColl = pTable.Select("objectid=10")
dataRow = pRowColl(0)
dataRow(1) = "bbb"
pAdapter.UpdateCommand = pCmdBui.GetUpdateCommand
pAdapter.Update(pDs, "catalog")
 
11.    删除一条数据
如何删除一条记录我还摸索了好半天,最好终于发现了一个简单无比的方法:
Dim pCommand As OracleCommand
pCommand = New OracleCommand
pCommand.CommandText = "delete  from sde.catalog where objectid=10"
pCommand.Connection = pConn   '数据库的连接
pCommand.ExecuteOracleNonQuery()
其实数据的插入也完全可以这样做的这样简单。
pCommand.CommandText = "insert into sde.catalog values(10,'aa',10,'aa',10)"
比上面的插入一条记录的方法简单多了。
 
12.    更新数据:
pCommand.CommandText = "update sde.catalog set name='bbc',cate_intro='bbc' where objectid=10"
 
13.    ADO.NET中的XML
由于ADO.NET模型传递数据是使用XML结构,所以要得到我们获取的表的结构就更容易不过了
dim pXml as string
pXml=pDs.getXml
可以看看pXml的内容,是符合XML结构的数据。如果是一个dataset获取一个XML文件,也非常简单
Dim pDa as new Dataset
Dim pStreamReader as new StreamReader(“test.xml”)
pDa.readxml(pStreamReader)
dataset还有一个方法可以将xml文件直接写到文件上writeXml()。