Usando o ADO com SQL Server Native Client

Aplica-se a: simSQL Server (todas as versões compatíveis) SimBanco de Dados SQL do Azure SimInstância Gerenciada do Azure SQL simAzure Synapse Analytics simParallel Data Warehouse

Para aproveitar os novos recursos introduzidos SQL Server 2005 (9.x) como Mars (vários conjuntos de resultados ativos), as notificações de consulta, os UDTs (tipos definidos pelo usuário) ou o novo tipo de dados XML , os aplicativos existentes que usam o ActiveX Data Objects (ADO) devem usar o SQL Server provedor de OLE DB de cliente nativo como seu provedor de acesso a dados.

Caso você não precise usar nenhum dos novos recursos introduzidos no SQL Server 2005 (9.x), não há necessidade de usar o provedor de dados OLE DB do SQL Server Native Client. É possível continuar usando o provedor de acesso a dados atual, normalmente SQLOLEDB. Caso esteja aperfeiçoando um aplicativo existente e precise usar os novos recursos introduzidos no SQL Server 2005 (9.x), você deve usar o provedor de dados OLE DB do SQL Server Native Client.

Observação

Caso você esteja desenvolvendo um novo aplicativo, é recomendável considerar o uso do ADO.NET e do provedor de dados .NET Framework do SQL Server, e não o SQL Server Native Client, para acessar todos os novos recursos de versões recentes do SQL Server. Para obter mais informações sobre o provedor de dados .NET Framework do SQL Server, consulte a documentação do SDK do .NET Framework referente ao ADO.NET.

Para permitir que o ADO use os novos recursos de versões recentes do SQL Server, foram feitas algumas melhorias no provedor de dados OLE DB do SQL Server Native Client, que estende os principais recursos do OLE DB. Essas melhorias permitem que os aplicativos ADO usem recursos mais novos do SQL Server e consumam dois tipos de dados introduzidos no SQL Server 2005 (9.x): xml e udt. Essas melhorias também exploram as melhorias feitas nos tipos de dados varchar, nvarchar e varbinary. SQL Server O Native Client adiciona a propriedade de inicialização SSPROP_INIT_DATATYPECOMPATIBILITY ao conjunto de propriedades DBPROPSET_SQLSERVERDBINIT para uso por aplicativos ADO para que os novos tipos de dados sejam expostos de forma compatível com o ADO. Além disso, o SQL Server provedor de OLE DB de cliente nativo também define uma nova palavra-chave de cadeia de conexão chamada DataTypeCompatibility que é definida na cadeia de conexão.

Observação

Os aplicativos do ADO existentes podem acessar e atualizar valores de XML, UDT, de campo binário e de texto grandes usando o provedor SQLOLEDB. Os novos tipos de dados varchar(max) , nvarchar(max) e varbinary(max) maiores são retornados como tipos do ADO adLongVarChar, adLongVarWChar e adLongVarBinary, respectivamente. As colunas XML são retornadas como adLongVarChar, e as colunas UDT, como adVarBinary. No entanto, se você usar o SQL Server provedor de OLE DB de cliente nativo (SQLNCLI11) em vez de SQLOLEDB, precisará definir a palavra-chave DataTypeCompatibility como "80" para que os novos tipos de dados sejam mapeados corretamente para os tipos de dados do ADO.

Habilitando o SQL Server Native Client no ADO

Para habilitar o uso de SQL Server cliente nativo, os aplicativos ADO precisarão implementar as seguintes palavras-chave em suas cadeias de conexão:

  • Provider=SQLNCLI11

  • DataTypeCompatibility=80

Para obter mais informações sobre as palavras-chave de cadeia de caracteres de conexões ADO com suporte no SQL Server Native Client, consulte usando palavras-chave de cadeia de conexão com SQL Server Native Client.

Veja a seguir um exemplo de como estabelecer uma cadeia de conexão ADO totalmente habilitada para trabalhar com o SQL Server Native Client, incluindo a habilitação do recurso Mars:

Dim con As New ADODB.Connection  
  
con.ConnectionString = "Provider=SQLNCLI11;" _  
         & "Server=(local);" _  
         & "Database=AdventureWorks;" _   
         & "Integrated Security=SSPI;" _  
         & "DataTypeCompatibility=80;" _  
         & "MARS Connection=True;"  
con.Open  

Exemplos

As seções a seguir fornecem exemplos de como você pode usar o ADO com o SQL Server provedor de OLE DB de cliente nativo.

Recuperando dados da coluna XML

Neste exemplo, um conjunto de registros é usado para recuperar e exibir os dados de uma coluna XML no banco de dados de exemplo AdventureWorks do SQL Server.

Dim con As New ADODB.Connection  
Dim rst As New ADODB.Recordset  
Dim sXMLResult As String  
  
con.ConnectionString = "Provider=SQLNCLI11;" _  
         & "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  

Observação

Não há suporte para a filtragem do conjunto de registros com colunas XML. Se ela for usada, será retornado um erro.

Recuperando dados da coluna UDT

Neste exemplo, um objeto Command é usado para executar uma consulta SQL que retorna um UDT, os dados UDT são atualizados e, em seguida, os novos dados são inseridos novamente no banco de dados. Este exemplo supõe que o UDT Point já foi registrado no banco de dados.

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=SQLNCLI11;" _  
         & "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  

Habilitando e usando MARS

Neste exemplo, a cadeia de conexão é construída para habilitar MARS por meio do SQL Server provedor de OLE DB de cliente nativo e, em seguida, dois objetos Recordset são criados para serem executados usando a mesma conexão.

Dim con As New ADODB.Connection  
  
con.ConnectionString = "Provider=SQLNCLI11;" _  
         & "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  

Em versões anteriores do provedor OLE DB, esse código faria com que uma conexão implícita fosse criada na segunda execução porque apenas um conjunto de resultados ativo podia ser aberto por conexão. Como a conexão implícita não foi agrupada no pool de conexões OLE DB, isso causaria uma sobrecarga adicional. Com o recurso MARS exposto pelo SQL Server provedor de OLE DB de cliente nativo, você obtém vários resultados ativos em uma conexão.

Consulte Também

Criando aplicativos com o SQL Server Native Client