Utilisation d’ADO avec SQL Server Native Client

S’applique à : SQL Server Azure SQL Database Azure SQL Managed Instance Azure Synapse Analytics Analytics Platform System (PDW)

Pour tirer parti des nouvelles fonctionnalités introduites dans SQL Server 2005 (9.x) telles que plusieurs jeux de résultats actifs (MARS), les notifications de requête, les types définis par l’utilisateur (UDT) ou le nouveau type de données xml , les applications existantes qui utilisent ActiveX Data Objects (ADO) doivent utiliser le fournisseur OLE DB SQL Server Native Client comme fournisseur d’accès aux données.

Si vous n’avez pas besoin d’utiliser les nouvelles fonctionnalités introduites dans SQL Server 2005 (9.x), il n’est pas nécessaire d’utiliser le fournisseur OLE DB SQL Server Native Client ; vous pouvez continuer à utiliser votre fournisseur d’accès aux données actuel, qui est généralement SQLOLEDB. Si vous améliorez une application existante et que vous devez utiliser les nouvelles fonctionnalités introduites dans SQL Server 2005 (9.x), vous devez utiliser le fournisseur OLE DB SQL Server Native Client.

Pour permettre à ADO d’utiliser de nouvelles fonctionnalités de versions récentes de SQL Server, certaines améliorations ont été apportées au fournisseur OLE DB SQL Server Native Client qui étend les principales fonctionnalités d’OLE DB. Ces améliorations permettent aux applications ADO d’utiliser les fonctionnalités SQL Server les plus récentes et de consommer deux types de données introduits dans SQL Server 2005 (9.x) : xml et udt. Ces améliorations exploitent également des optimisations apportées aux types de données varchar, nvarchar et varbinary. SQL Server Native Client ajoute la propriété d’initialisation SSPROP_INIT_DATATYPECOMPATIBILITY au jeu de propriétés DBPROPSET_SQLSERVERDBINIT pour une utilisation par les applications ADO afin que les nouveaux types de données soient exposés de manière compatible avec ADO. En outre, le fournisseur OLE DB SQL Server Native Client définit également un nouveau mot clé chaîne de connexion nommé DataTypeCompatibility défini dans le chaîne de connexion.

Activation de SQL Server Native Client à partir d'ADO

Pour activer l’utilisation de SQL Server Native Client, les applications ADO devront implémenter les mots clés suivants dans leurs chaîne de connexion s :

• Provider=SQLNCLI11

• DataTypeCompatibility=80

Pour plus d’informations sur les mots clés de chaîne de connexions ADO pris en charge dans SQL Server Native Client, consultez Utilisation de mots clés de chaîne de connexion avec SQL Server Native Client.

Voici un exemple d’établissement d’un chaîne de connexion ADO entièrement activé pour fonctionner avec SQL Server Native Client, notamment l’activation de la fonctionnalité 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  

Exemples

Les sections suivantes fournissent des exemples d’utilisation d’ADO avec le fournisseur OLE DB SQL Server Native Client.

Extraction de données de colonnes XML

Dans cet exemple, un recordset est utilisé pour récupérer et afficher les données d’une colonne XML dans l’exemple de base de données AdventureWorks 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  

Extraction de données de colonnes UDT

Dans cet exemple, un objet Command est utilisé pour exécuter une requête SQL qui retourne un type défini par l’utilisateur (UDT), les données UDT sont mises à jour, puis les nouvelles données sont réinsérées dans la base de données. Cet exemple suppose que le type défini par l’utilisateur Point a déjà été inscrit dans la base de données.

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  

Activation et utilisation de MARS

Dans cet exemple, le chaîne de connexion est construit pour activer MARS via le fournisseur OLE DB SQL Server Native Client, puis deux objets recordset sont créés pour s’exécuter à l’aide de la même connexion.

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  

Dans les versions antérieures du fournisseur OLE DB, ce code provoquait la création d'une connexion implicite lors de la deuxième exécution car un seul jeu de résultats actif par connexion pouvait être ouvert. La connexion implicite n'étant pas mise dans le pool de connexions OLE DB, cela provoquait une charge supplémentaire. Avec la fonctionnalité MARS exposée par le fournisseur OLE DB SQL Server Native Client, vous obtenez plusieurs résultats actifs sur la connexion unique.

Voir aussi

Génération d’applications avec SQL Server Native Client