Usar ADO con SQL Server Native Client
Para aprovechar las características nuevas introducida en SQL Server 2005, como los conjuntos de resultados activos múltiples (MARS), las notificaciones de consulta, los tipos definidos por el usuario (UDT) o el nuevo tipo de datos xml, las aplicaciones existentes que usan Objetos de datos ActiveX (ADO) deberían usar el proveedor OLE DB de SQL Server Native Client como su proveedor de acceso a datos.
Si no necesita usar ninguna de las características nuevas introducidas en SQL Server 2005, no tiene necesidad de usar el proveedor OLE DB de SQL Server Native Client; puede seguir usando su proveedor de acceso a datos actual, que suele ser SQLOLEDB. Si está mejorando una aplicación existente y necesita usar las características nuevas introducidas en SQL Server 2005, debería utilizar el proveedor OLE DB de SQL Server Native Client.
[!NOTA]
Si está desarrollando una nueva aplicación, es recomendable que considere la posibilidad de usar ADO.NET y el proveedor de datos de .NET Framework para SQL Server en lugar de SQL Server Native Client a fin de obtener acceso a todas las características nuevas de las versiones más recientes de SQL Server. Para obtener más información acerca del proveedor de datos de .NET Framework para SQL Server, vea la documentación de .NET Framework SDK para ADO.NET.
Para permitir que ADO utilice las características nuevas de las versiones más recientes de SQL Server, se han realizado algunas mejoras en el proveedor OLE DB de SQL Server Native Client que extiende las características principales de OLE DB. Estas mejoras permiten a las aplicaciones ADO usar las características más novedosas de SQL Server y usar dos tipos de datos introducidos en SQL Server 2005: xml y udt. Estas mejoras también aprovechan las mejoras realizadas en los tipos de datos varchar, nvarchar y varbinary. SQL Server Native Client agrega la propiedad de inicialización SSPROP_INIT_DATATYPECOMPATIBILITY al conjunto de propiedades DBPROPSET_SQLSERVERDBINIT para que las aplicaciones ADO la utilicen de modo que los nuevos tipos de datos se expongan de un modo compatible con ADO. Además, el proveedor OLE DB de SQL Server Native Client también define una nueva palabra clave de cadena de conexión denominada DataTypeCompatibility que se establece en la cadena de conexión.
[!NOTA]
Las aplicaciones ADO existentes pueden obtener acceso y actualizar XML, UDT, texto de valores grandes y valores de campo binarios mediante el proveedor SQLOLEDB. Los nuevos tipos de datos de mayor tamaño varchar(max), nvarchar(max) y varbinary(max) se devuelven como los tipos ADO adLongVarChar, adLongVarWChar y adLongVarBinary respectivamente. Las columnas XML se devuelven como adLongVarChar y las columnas UDT se devuelven como adVarBinary. Sin embargo, si utiliza el proveedor OLE DB de SQL Server Native Client (SQLNCLI10) en lugar de SQLOLEDB, debe asegurarse de establecer la palabra clave DataTypeCompatibility en "80" para que los nuevos tipos de datos se asignen correctamente a los tipos de datos de ADO.
Habilitar SQL Server Native Client desde ADO
Para habilitar el uso de SQL Server Native Client, las aplicaciones ADO necesitarán implementar las siguientes palabras clave en sus cadenas de conexión:
Provider=SQLNCLI10
DataTypeCompatibility=80
Para obtener más información sobre las palabras clave de cadenas de conexión de ADO que se admiten en SQL Server Native Client, vea Usar palabras clave de cadena de conexión con SQL Server Native Client.
A continuación se muestra un ejemplo sobre la forma de establecer una cadena de conexión de ADO totalmente habilitada para funcionar con SQL Server Native Client, así como la forma de habilitar la característica MARS:
Dim con As New ADODB.Connection
con.ConnectionString = "Provider=SQLNCLI10;" _
& "Server=(local);" _
& "Database=AdventureWorks;" _
& "Integrated Security=SSPI;" _
& "DataTypeCompatibility=80;" _
& "MARS Connection=True;"
con.Open
Ejemplos
En las siguientes secciones se proporcionan ejemplos sobre la forma de usar ADO con el proveedor OLE DB de SQL Server Native Client.
Recuperar datos de columna XML
En este ejemplo, se utiliza un conjunto de registros para recuperar y mostrar los datos de una columna XML en la base de datos de ejemplo AdventureWorksSQL Server.
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sXMLResult As String
con.ConnectionString = "Provider=SQLNCLI10;" _
& "Server=(local);" _
& "Database=AdventureWorks;" _
& "Integrated Security=SSPI;" _
& "DataTypeCompatibility=80;"
con.Open
' Get the xml data as a recordset.
Set rst.ActiveConnection = con
rst.Source = "SELECT AdditionalContactInfo FROM Person.Contact " _
& "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
[!NOTA]
No se admite el filtrado de conjuntos de registros con columnas XML. Si se utiliza, se devolverá un error.
Recuperar datos de columna UDT
En este ejemplo, se utiliza un objeto Command para ejecutar una consulta SQL que devuelve un UDT, los datos UDT se actualizan y, a continuación, los nuevos datos vuelven a insertarse en la base de datos. En este ejemplo se asume que el UDT Point ya se ha registrado en la base de datos.
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=AdventureWorks;" _
& "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
Habilitar y utilizar MARS
En este ejemplo, se crea una cadena de conexión para habilitar MARS a través del proveedor OLE DB de SQL Server Native Client y, a continuación, se crean dos objetos de conjunto de registros para ejecutarlos utilizando la misma conexión.
Dim con As New ADODB.Connection
con.ConnectionString = "Provider=SQLNCLI10;" _
& "Server=(local);" _
& "Database=AdventureWorks;" _
& "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
En versiones anteriores del proveedor OLE DB, este código hacía que se crease una conexión implícita en la segunda ejecución porque sólo podía abrirse un conjunto de resultados activo por cada conexión única. Dado que la conexión implícita no estaba agrupada en el grupo de conexiones OLE DB, esto produciría una sobrecarga adicional. Con la característica MARS expuesta por el proveedor OLE DB de SQL Server Native Client, se obtienen varios resultados activos en la conexión única.