使用 ADO 搭配 SQL Server Native Client
若要運用 SQL Server 2005 所導入的新功能 (例如 Multiple Active Result Set (MARS)、查詢通知、使用者定義型別 (UDT) 或新的 xml 資料類型)，使用 ActiveX Data Objects (ADO) 的現有應用程式應該使用 SQL Server Native Client OLE DB 提供者當做其資料存取提供者。
如果您不需要使用 SQL Server 2005 所導入的任何新功能，就不需要使用 SQL Server Native Client OLE DB 提供者。您可以繼續使用目前的資料存取提供者 (通常是 SQLOLEDB)。如果您要強化現有的應用程式，而且需要使用 SQL Server 2005 所導入的新功能，就應該使用 SQL Server Native Client OLE DB 提供者。
[!附註]
如果您正在開發新的應用程式，建議您考慮使用 ADO.NET 和 .NET Framework Data Provider for SQL Server 來取代 SQL Server Native Client，以便存取最新 SQL Server 版本的所有新功能。如需有關 .NET Framework Data Provider for SQL Server 的詳細資訊，請參閱 ADO.NET 的 .NET Framework SDK 文件集。
為了讓 ADO 使用最新 SQL Server 版本的新功能，我們已經對 SQL Server Native Client OLE DB 提供者新增了一些增強功能，以便擴充 OLE DB 的核心功能。這些增強功能可讓 ADO 應用程式使用較新的 SQL Server 功能，以及取用 SQL Server 2005 所導入的兩種資料類型：xml 和 udt。這些增強功能也會利用 varchar、nvarchar 和 varbinary 資料類型的增強功能。SQL Server Native Client 會將 SSPROP_INIT_DATATYPECOMPATIBILITY 初始化屬性加入至 ADO 應用程式所使用的 DBPROPSET_SQLSERVERDBINIT 屬性集，以便使用與 ADO 相容的方式來公開這些新的資料類型。此外，SQL Server Native Client OLE DB 提供者也會定義名為 DataTypeCompatibility 而且在連接字串中設定的新連接字串關鍵字。
[!附註]
現有的 ADO 應用程式可以使用 SQLOLEDB 提供者來存取並更新 XML、UDT 和大數值文字與二進位欄位值。新的較大 varchar(max)、nvarchar(max) 和 varbinary(max) 資料類型會分別傳回成 ADO 類型 adLongVarChar、adLongVarWChar 和 adLongVarBinary。XML 資料行會傳回成 adLongVarChar，而且 UDT 資料行會傳回成adVarBinary。不過，如果您使用 SQL Server Native Client OLE DB 提供者 (SQLNCLI10) 來取代 SQLOLEDB，請務必將 DataTypeCompatibility 關鍵字設定為 "80"，以便新的資料類型會正確對應至 ADO 資料類型。
從 ADO 啟用 SQL Server Native Client
若要能夠使用 SQL Server Native Client，ADO 應用程式必須在其連接字串中實作下列關鍵字：
Provider=SQLNCLI10
DataTypeCompatibility=80
如需有關 SQL Server Native Client 中支援之 ADO 連接字串關鍵字的詳細資訊，請參閱＜搭配 SQL Server Native Client 使用連接字串關鍵字＞。
下列範例會建立完全啟用成可使用 SQL Server Native Client 的 ADO 連接字串，包括啟用 MARS 功能：
Dim con As New ADODB.Connection
con.ConnectionString = "Provider=SQLNCLI10;" _
& "Server=(local);" _
& "Database=AdventureWorks2008R2;" _
& "Integrated Security=SSPI;" _
& "DataTypeCompatibility=80;" _
& "MARS Connection=True;"
con.Open
範例
下列各節會提供如何使用 ADO 搭配 SQL Server Native Client OLE DB 提供者的範例。
擷取 XML 資料行資料
在這個範例中，使用了資料錄集來擷取並顯示 AdventureWorks2008R2 範例資料庫中 XML 資料行的資料。
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sXMLResult As String
con.ConnectionString = "Provider=SQLNCLI10;" _
& "Server=(local);" _
& "Database=AdventureWorks2008R2;" _
& "Integrated Security=SSPI;" _
& "DataTypeCompatibility=80;"
con.Open
' Get the xml data as a recordset.
Set rst.ActiveConnection = con
rst.Source = "SELECT AdditionalContactInfo FROM Person.Person " _
& "WHERE AdditionalContactInfo IS NOT NULL"
rst.Open
' Display the data in the recordset.
While (Not rst.EOF)
sXMLResult = rst.Fields("AdditionalContactInfo").Value
Debug.Print (sXMLResult)
rst.MoveNext
End While
con.Close
Set con = Nothing
[!附註]
XML 資料行不支援資料錄集篩選。如果已使用，就會傳回錯誤。
擷取 UDT 資料行資料
在這個範例中，使用了 Command 物件來執行可傳回 UDT 的 SQL 查詢、更新 UDT 資料，然後將新的資料插回資料庫中。這個範例會假設已經在資料庫中註冊了 Point UDT。
Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim strOldUDT As String
Dim strNewUDT As String
Dim aryTempUDT() As String
Dim strTempID As String
Dim i As Integer
con.ConnectionString = "Provider=SQLNCLI10;" _
& "Server=(local);" _
& "Database=AdventureWorks2008R2;" _
& "Integrated Security=SSPI;" _
& "DataTypeCompatibility=80;"
con.Open
' Get the UDT value.
Set cmd.ActiveConnection = con
cmd.CommandText = "SELECT ID, Pnt FROM dbo.Points.ToString()"
Set rst = cmd.Execute
strTempID = rst.Fields(0).Value
strOldUDT = rst.Fields(1).Value
' Do something with the UDT by adding i to each point.
arytempUDT = Split(strOldUDT, ",")
i = 3
strNewUDT = LTrim(Str(Int(aryTempUDT(0)) + i)) + "," + _
LTrim(Str(Int(aryTempUDT(1)) + i))
' Insert the new value back into the database.
cmd.CommandText = "UPDATE dbo.Points SET Pnt = '" + strNewUDT + _
"' WHERE ID = '" + strTempID + "'"
cmd.Execute
con.Close
Set con = Nothing
啟用並使用 MARS
在這個範例中，建構了透過 SQL Server Native Client OLE DB 提供者啟用 MARS 的連接字串，然後建立兩個資料錄集物件，以便使用相同的連接執行。
Dim con As New ADODB.Connection
con.ConnectionString = "Provider=SQLNCLI10;" _
& "Server=(local);" _
& "Database=AdventureWorks2008R2;" _
& "Integrated Security=SSPI;" _
& "DataTypeCompatibility=80;" _
& "MARS Connection=True;"
con.Open
Dim recordset1 As New ADODB.Recordset
Dim recordset2 As New ADODB.Recordset
Dim recordsaffected As Integer
Set recordset1 = con.Execute("SELECT * FROM Table1", recordsaffected, adCmdText)
Set recordset2 = con.Execute("SELECT * FROM Table2", recordsaffected, adCmdText)
con.Close
Set con = Nothing
在舊版 OLE DB 提供者中，此程式碼會導致系統在第二次執行時建立隱含連接，因為每個單一連接只能開啟一個作用中結果集。由於隱含連接不會在 OLE DB 連接集區中共用，所以這會產生額外的負擔。使用 SQL Server Native Client OLE DB 提供者所公開的 MARS 功能時，您會在單一連接上收到多個作用中結果。