最近评论
正在载入评论列表...
在前端应用程序访问上，由于 SQL Server 2005 新增了用户自定义数据类型与 XML 数据类型，我们必须要通过 ADO.NET 2.0 来支持前端应用程序访问这两种类型，否则就都只能通过 T-SQL 来操作这些数据了。
12.7.1 用户自定义数据类型
当我们将 .NET 编写的用户自定义数据类型存在数据库字段中，默认可以通过 ADO.NET 传递 T-SQL 语法到 SQL Server 2005，以操控用户自定义数据类型，而不必将该数据类型的实例序列化后（serialize）传递到前端应用程序，以及在前端应用程序创建或修改数据类型的实例后再返回 SQL Server。
一般来说，我们会以 T-SQL 搭配存储过程或用户自定义函数来维护这些记录。就以本书第十一章所用的程序范例为例，在添加记录时可以使用下述的语法：
DECLARE @s Seat,@s2 desk
SET @s.Size=10
SET @s.Type=N'香蕉椅'
SET @s2.Size=20
SET @s2.Type=N'餐桌'
INSERT BikeSeats VALUES（@s,@s2）
除了添加记录外，可以通过 T-SQL 所提供的字符串转换，或是调用自行编写的 mutator 函数来修改已经存在的记录。
我们可以专门为自定义数据类型类编写mutator 函数，结合 T-SQL 语法可更新自定义数据类型的记录内容。以先前的类为例，在其中加入如程序代码列表12-11的 mutator 函数定义：
程序代码列表12-11 在类中加入 mutator 函数
'Mutator 让 T-SQL 可以执行如下的语法
' Update tbl Set <UDT 字段>.<Mutator 函数（）> WHERE...
<SqlMethod（ismutator:=True, onnullcall:=True）> _
Public Sub SetDesk（ByVal sSize As SqlTypes.SqlInt16, _
ByVal strType As SqlTypes.SqlString）
'避免用户在 Update 时输入 NULL，所以通过 SqlTypes
'来定义数据类型，并检查 NULL
If sSize.IsNull Or strType.IsNull Then
m_size = -1
m_type = "类型不明"
is_Null = True
Else
Me.Size = sSize.Value
Me.Type = strType.Value
End If
End Sub
我们以一般的函数编写方式提供类的属性设置，但通过 SqlMethod 属性（Attribute）设置 IsMutator 选项为真（True）来告知 SQL Server 该函数是所属自定义数据类型类的 Mutator 函数。若自定义数据类型定义了mutator 函数，则更新记录时可以如下的语法完成，而不必以多句的 T-SQL Update 语法来更新自定义数据类型中的多个属性：
--通过mutator 函数更新
UPDATE BikeSeats SET deskInfo.SetDesk（40,N'餐桌'） WHERE SeatID=2
通过存储过程、用户自定义函数来访问用户自定义数据类型是一个不错的方式，让这些用户自定义数据类型的实例不必通过网络传递到前端应用程序。但若该对象的操作复杂，我们又想要直接在前端应用程序操作这些用户自定义数据类型的实例，则需要在编写程序时完成如下的步骤：
以先连接的（early binding）的方式引用这些类定义的程序集（assembly）。
或是通过 .NET Framework 提供的 reflection 机制，以后期连接（late binding）的方式在执行时动态装载类。
同时，在机器上安装前端应用程序时，要附带该用户自定义类的组件。另外，该类的版本要与 SQL Server 用来制定自定义数据类型的组件版本相同。而前端应用程序在执行时，该组件要不就是与应用程序执行文件在同一个目录下，要不就是安装在 GAC（Global Assembly Cache）内，否则将无法反序列化 SQL Server 传来的自定义数据类型对象个体。
SQL Server 2005 会通过由 TDS协议将自定义数据类型的实例以数据流（stream）的方式传给前端应用程序。在项目中我们先加入对用户自定义数据类型类的程序集引用，而后就可以将取回的记录字段强制转换（casting）成自定义数据类型的类实例，或是调用自行编写的反序列化函数来还原数据流为对象实例。
我们现在就来编写一个访问用户自定义数据类型的前端应用程序，搭配第十一章的范例所设计的简单应用程序范例操作界面如图12-12所示：
图12-12 通过 ADO.NET 2.0 维护数据表内用户自定义数据类型字段的记录
在添加记录时，通过 SqlCommand 对象实例搭配 SqlParameter 变量，一样可以直接赋予自定义数据类型类的实例。执行 SqlCommand 的 ExecuteNonQuery 方法，就可以将对象实例序列化后的内容传回到 SQL Server 服务器端，从而更新数据，范例程序代码如列表12-12所示：
程序代码列表12-12 以一般的 T-SQL 函数搭配 SqlCommand 对象添加记录
Using cnn As New SqlConnection（ _
ConfigurationSettings.ConnectionStrings（"AWConnectionString"）.ConnectionString）
Using cmd As New SqlCommand（ _
"INSERT BikeSeats VALUES（@SeatInfo,@DeskInfo）", cnn）
cnn.Open（）
Dim mySeat As New YukonCLR.Seat
mySeat.Type = cbSeat.Text
mySeat.Size = txtSeatSize.Text
Dim myDesk As New YukonCLR.Desk
myDesk.Type = cbDesk.Text
myDesk.Size = txtDeskSize.Text
With cmd
‘指定参数类型为SqlDbType.Udt
.Parameters.Add（New SqlParameter（"@SeatInfo", SqlDbType.Udt））
'必须要告知 UdtType 的名称
.Parameters（0）.UdtTypeName = "AdventureWorks.dbo.Seat"
.Parameters（0）.Value = mySeat
…
.ExecuteNonQuery（）
…
在上述程序代码中值得一提的是：与一般的 SQL Server 数据类型不同的是，不仅仅要指定参数类型为SqlDbType.Udt，还要通过 SqlCommand 对象实例的 UdtTypeName 属性告知 SQL Server 2005 该自定义数据类型的名称，让 SQL Server 正确地存放进数据库。
若要取回含自定义数据类型的记录的内容，也与一般的记录无异，一样可以通过 SqlDataReader 对象实例逐条读取记录，并将通过网络传来的自定义数据类型实例反序列化后，强制指定转换成该自定义数据类型的实例，之后便以对象实例的方式操作，例如读取属性或调用函数等等，简单的范例程序如列表12-13：
程序代码列表12-13 读取数据记录后直接转换成用户自定义类型类的实例
单笔记录读取用户自定义数据类型的内容
Using cnn As New SqlConnection（ _
ConfigurationSettings.ConnectionStrings（"AWConnectionString"）.ConnectionString）
Using cmd As New SqlCommand（ _
"SELECT SeatID 编号,SeatInfo 椅子,DeskInfo 桌子 FROM BikeSeats WHERE SeatID=" & _
txtID.Text, cnn）
cnn.Open（）
Dim dr As SqlDataReader = cmd.ExecuteReader（）
Dim myDesk As YukonCLR.Desk
While dr.Read（）
If RadioButton1.Checked Then
'可直接转换换成自定义类型的对象实例
myDesk = CType（dr（2）, YukonCLR.Desk）
Else
'因为我们先前编写 Desk 类时，有实现二进制序列化的界面
'IBinarySerialize，因此在此也可以 Binary 读取数据内容后
'再反序列化回 Desk 实例，此种方式的性能会稍稍好些
Dim aryByte（1000） As Byte
Dim iBytes As Integer = dr.GetBytes（2, 0, aryByte, 0, 1000）
Dim memStream As New MemoryStream（aryByte）
myDesk = New YukonCLR.Desk
myDesk.read（New BinaryReader（memStream））
End If
strRes += "大小： " & myDesk.Size & vbCrLf
strRes += "类型： " & myDesk.Type & vbCrLf
strRes += "价格： " & myDesk.GetPrice（）.ToString（） & vbCrLf
End While
If strRes = "" Then MessageBox.Show（"没有符合查询的记录"） Else _
MessageBox.Show（strRes, "题注 " & txtID.Text & " 的桌子字段实例"）
…
在上述范例中，我们可以直接将 DataReader 内的记录字段通过 VB.NET 提供的 CType 函数转换成用户自定义类型类 YukonCLR.Desk 的实例。或通过由我们在该类实现IBinarySerialize接口的 Read 方法，读取SQL Server 传来的序列化数据，并还原回实例。不管是采用哪一种方式，随后都可以一般操作对象实例的方式访问类的属性、方法。
但若仅想直接将读回的记录赋予到 DataGridView 控制项，以数据绑定（DataBinding）的方式显示，并不需要操作对象的属性或方法，则程序代码与一般其它的数据类型访问一样直观，其范例如程序代码列表12-14所示：
程序代码列表12-14 通过 DataGridView 控制项直接显示包含用户自定义数据类型的查询结果
Using cmd As New SqlCommand（ _
"SELECT SeatID 编号,SeatInfo 椅子,DeskInfo 桌子 FROM BikeSeats", cnn）
cnn.Open（）
Dim dr As SqlDataReader = cmd.ExecuteReader（）
Dim dt As New DataTable
'装载数据
dt.Load（dr）
'替数据表定义主键（Primary Key）约束
dt.Constraints.Add（New System.Data.UniqueConstraint（"Pk", _
New System.Data.DataColumn（） {dt.Columns（0）}, True））
'DataGridView 直接调用 UDT 自己的 ToString 来显示内容，但
'修改后不会自动转成 UDT 的 Object 实例，若直接修改会有错误
DataGridView1.ReadOnly = True
DataGridView1.DataSource = dt
…
将程序代码列表12-14 的内容与上图12-12 中间显示现的 DataGridView 结果对比，你可以发现若仅是通过 DataGridView 控制项来显示含有用户自定义数据类型的记录与一般的记录，它们并无不同。
而更新数据的方式与先前程序代码列表12-12 所编写的添加记录类似，不过在这里我们直接调用先前在类中自行编写的 Parse 方法，直接将字符串转换成 Seat 或 Desk 类实例返回，赋予到 SqlParameter 对象实例的 Value 后更新纪录内容，如程序代码列表12-15而不像程序代码列表12-12 中先创建 Seat 或 Desk 类实例后，分别赋予各属性值再将实例设置到 SqlParameter：
程序代码列表12-15 以一般的 T-SQL 函数搭配 SqlCommand 对象更新纪录
Using cmd As New SqlCommand（ _
"UPDATE BikeSeats SET SeatInfo= @SeatInfo,DeskInfo=@DeskInfo WHERE SeatID=@ID", cnn）
cnn.Open（）
With cmd
.Parameters.Add（New SqlParameter（"@SeatInfo", SqlDbType.Udt））
'必须要告知 UdtType 的名称
.Parameters（0）.UdtTypeName = "AdventureWorks.dbo.Seat"
If txtUpdateSeat.Text = "" Then
.Parameters（0）.Value = DBNull.Value
Else
'通过我们在 Seat 所实做的 shared Parse 方法直接将文字转成
'Seat 类的实例
.Parameters（0）.Value = YukonCLR.Seat.Parse（txtUpdateSeat.Text）
End If
…
intRows = .ExecuteNonQuery（）
…
若你是通过以往的程序界面访问 SQL Server 2005，则 ODBC 仅能以组 T-SQL 字符串的方式来操作用户自定义数据类型，而 OLE DB/ADO 则可以将 .NET 编写的用户自定义数据类型输出一份 COM 世界的 Type Library 后，在程序内引用（如在 VB6 的编辑环境设置引用），之后程序编写的方式与上述 ADO.NET 类似。
12.7.2 通过ADO.NET 2.0访问XML数据类型
如同本节前述通过 ADO.NET 2.0 访问用户自定义数据类型，你可以利用组织 T-SQL 的方式来维护数据表内的 XML 数据，也可以用存储过程或用户自定义函数在 SQL Server 服务器端完成 XML 数据访问，但也可以用 ADO.NET 2.0 相关的类来维护其内容。
ADO.NET 2.0 的 System.Data.SqlTypes.SqlTypes 新增 了SqlXML 类，其实例所提供的 CreateReader 方法可以将字段内容直接转换成 System.Xml.XmlReader 类的实例来读取 XML 数据内容。我们编写简单的 XML 数据访问范例画面如图12-13 所示：
图12-13 通过 ADO.NET 2.0 直接维护数据表内 XML 数据内容
通过一般的 SqlDataReader 类实例取回相关的程序代码范例如列表12-16：
程序代码列表12-16 通过 SqlDataReader 实例提供的 GetSqlXml 方法将字段内容以 SqlXml 类实例返回，而后再以该类的 CreateReader 方法建立 XmlReader 对象实例
Using cmd As New SqlCommand（"SELECT c1,c2 FROM tblXML", cnn）
Dim r As SqlDataReader = cmd.ExecuteReader（）
While r.Read
TextBox1.Text &= "编号 " & r（0）.ToString（） & " 的值： " & r.GetString（1） & vbCrLf
Dim doc As SqlXml = r.GetSqlXml（1）
Dim xmlr As XmlReader = doc.CreateReader
While （xmlr.Read）
TextBox1.Text &= "类型/名称/值：" & xmlr.NodeType.ToString & "/" & _
xmlr.Name & "/" & xmlr.Value & vbCrLf
End While
在上述程序代码中可以看到通过 SqlDataReader 实例的 GetSqlXml 方法可以将单条记录内的 XML 字段数据直接转换成 SqlXml 类实例，而后再通过 SqlXml 实例的 CreateReader 方法将 XML 数据再赋予成 XmlReader 来逐节点读取。你可以将图12-13 最上方通过 DataGridView 控制项显示的每条记录内 的XML 数据内容与中间文本框的内容稍做对比，就能看出程序代码列表12-16 如何解析 XML 记录内容成为图中文本框的结果。
至于通过 DataGridView 显示 XML 字段内容，与程序代码列表12-14 用来显示用户自定义数据类型的方式相同，在此也就不重复列出程序代码内容。而新增 XML类型数据到数据表字段的方式与一般的其他类型无异，你可以约略比照字符串处理的方式设置，范例程序代码如下：
程序代码列表12-17 直接赋予参数内容 XML 字符串数据或是 SqlXml 对象实例来设置Xml数据字段内容
Using cnn As New SqlConnection（"Data Source=.;Initial Catalog=AdventureWorks;Integrated Security=SSPI"）
cnn.Open（）
Using cmd As New SqlCommand（"INSERT tblXML VALUES（@c2）", cnn）
With cmd
.Parameters.Add（New SqlParameter（"@c2", SqlDbType.Xml））
If RadioButton1.Checked Then
.Parameters（0）.Value = txtInsertXML.Text
Else
'从文件直接读取 XML 的内容后存放到数据表的 XML 记录字段中
If Not File.Exists（txtInsertXML.Text） Then
MessageBox.Show（txtInsertXML.Text & " 文件不存在", "无法从文件读取 XML"）
Return
End If
Dim xtr As New XmlTextReader（txtInsertXML.Text）
.Parameters（0）.Value = New SqlXml（xtr）
End If
.ExecuteNonQuery（）
在上述程序代码范例中比较有趣的地方是通过 XmlTextReader 类直接读取存放在文件系统上的 XML 数据文件，然后赋予到 SqlXml 对象实例的构造函数，便可以新增到数据库内。这或许可以让你将存放在文件系统上的 XML 数据方便地放入数据表内。当然，还有另一个选择是通过 T-SQL OpenRowset 函数新增的 Bulk Provider 来存放 XML，相关内容请参阅本书第五章。
图书导读
