Chapitre 12 : Tutoriel sur le service de données à distance (RDS)

Article
04/04/2023

S’applique à : Access 2013, Office 2013

Ce didacticiel illustre l'utilisation du modèle de programmation RDS pour interroger et mettre à jour une source de données. Dans un premier temps, il décrit les étapes à suivre pour accomplir cette tâche. Ensuite, le tutoriel est répété dans Microsoft Visual Basic Scripting Edition et Microsoft Visual J++, avec ADO pour les classes Windows Foundation (ADO/WFC).

Ce didacticiel est codé dans différents langages pour deux raisons :

La documentation portant sur RDS part du principe que le lecteur code en Visual Basic. Si cette documentation s'avère utile pour les programmeurs qui codent en Visual Basic, elle l'est moins pour les programmeurs qui utilisent d'autres langages.
Si vous avez un doute concernant une fonctionnalité RDS déterminée et que vous possédez certaines connaissances dans un autre langage, vous pouvez éventuellement résoudre votre problème en examinant cette même fonction exprimée dans un autre langage.

Ce didacticiel est basé sur le modèle de programmation RDS. Il décrit chaque étape du modèle de programmation individuellement. En outre, il illustre chaque étape avec un fragment de code Visual Basic.

L'exemple de code est reproduit dans les autres langages avec un minimum de détails. Chaque étape figurant dans le didacticiel d'un langage de programmation donné s'accompagne d'une mention de l'étape correspondante dans le modèle de programmation et le didacticiel descriptif. Servez-vous du numéro de l'étape pour accéder aux détails correspondants dans le didacticiel descriptif.

Le modèle de programmation RDS est indiqué ci-dessous. Référez-vous-y à mesure que vous avancez dans le didacticiel.

Modèle de programmation RDS avec des objets

Spécifiez le programme à appeler sur le serveur et obtenir un moyen (proxy) d'y faire référence à partir du client.
Appelez le programme serveur. Transmettez les paramètres au programme serveur qui identifie la source de données et la commande à émettre.
Le programme serveur obtient un objet Recordset auprès de la source de données, généralement en utilisant ADO. L'objet Recordset peut éventuellement être traité sur le serveur.
Le programme serveur retourne l'objet Recordset final à l'application cliente.
Au niveau du client, l'objet Recordset est éventuellement placé dans un format facilement exploitable par des contrôles visuels.
Les modifications apportées à l'objet Recordset sont renvoyées au serveur et utilisées pour la mise à jour de la source de données.

Étape 1 : Spécifier un programme serveur

Dans la plupart des cas, utilisez la méthode CreateObject de l’objet RDS.DataSpace pour spécifier le programme serveur par défaut, RDSServer.DataFactory, ou votre propre programme serveur personnalisé (objet métier). Un programme serveur est instancié sur le serveur et une référence à ce programme (ou proxy) est retournée.

Ce didacticiel utilise le programme serveur par défaut :

 
Sub RDSTutorial1() 
 Dim DS as New RDS.DataSpace 
 Dim DF as Object 
 Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
...

Étape 2 : Appeler le programme serveur

Lorsque vous appelez une méthode sur le proxy client, c'est le programme serveur qui exécute cette méthode. Au cours de cette étape, vous allez exécuter une requête sur le serveur.

1ère partie

Si vous n’avez pas utilisé RDSServer.DataFactory dans ce didacticiel, le moyen le plus simple d’exécuter cette étape est d’utiliser l’objet RDS.DataControl. RDS.DataControl combine l’étape précédente de création d’un proxy, et celle-ci, qui consiste à émettre une requête.

Définissez les services Bureau à distance. Propriétéserveur de l’objet DataControl pour identifier l’emplacement où le programme serveur doit être instancié.
Définissez la propriété Connect pour spécifier la chaîne de connexion pour accéder à la source de données.
Définissez la propriété SQL pour spécifier le texte de la commande de requête.
Exécutez la méthode Refresh pour que le programme serveur se connecte à la source de données, récupère les lignes spécifiées par la requête et retourne un objet Recordset au client.

Ce didacticiel n'utilise pas l'objet RDS.DataControl, mais, si c'était le cas, le code ressemblerait à ce qui suit :

 
Sub RDSTutorial2A() 
 Dim DC as New RDS.DataControl 
 DC.Server = "https://yourServer" 
 DC.Connect = "DSN=Pubs" 
 DC.SQL = "SELECT * FROM Authors" 
 DC.Refresh 
...

De même, le didacticiel n'appelle pas RDS avec les objets ADO, mais voici comment se présenterait le code dans le cas contraire :

 
Dim rs as New ADODB.Recordset 
rs.Open "SELECT * FROM Authors","Provider=MS Remote;Data Source=Pubs;" & _ 
"Remote Server=https://yourServer;Remote Provider=SQLOLEDB;"

2ème partie

En règle générale, cette étape consiste à appeler la méthode Query de l’objet RDSServer.DataFactory. Cette méthode prend une chaîne de connexion, utilisée pour établir la connexion à une source de données, et un texte de commande, pour spécifier les lignes à retourner par la source de données.

Ce didacticiel utilise la méthode Query de l'objet DataFactory:

 
Sub RDSTutorial2B() 
 Dim DS as New RDS.DataSpace 
 Dim DF 
 Dim RS as ADODB.Recordset 
 Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
 Set RS = DF.Query ("DSN=Pubs", "SELECT * FROM Authors") 
...

Étape 3 : Le serveur obtient un recordset

Le programme serveur utilise la chaîne de connexion et le texte de commande pour interroger la source de données et obtenir les lignes souhaitées. ADO est généralement utilisé pour récupérer cet objet Recordset même s'il est possible d'utiliser d'autres interfaces d'accès aux données Microsoft, comme OLE DB.

Un programme serveur personnalisé peut ressembler à ce qui suit :

 
Public Function ServerProgram(cn as String, qry as String) as Object 
Dim rs as New ADODB.Recordset 
 rs.CursorLocation = adUseClient 
 rs.Open qry, cn 
 rs.ActiveConnection = Nothing 
 Set ServerProgram = rs 
End Function

Étape 4 : Le serveur retourne l’objet Recordset

RDS convertit l'objet Recordset récupéré dans un format qui peut être renvoyé au client (autrement dit, il marshale l'objet Recordset). La forme exacte de la conversion et son mode d'envoi varient selon que le serveur réside sur Internet ou sur un intranet, sur un réseau local ou qu'il corresponde à une bibliothèque de liaison dynamique. Toutefois, ce détail n'est pas crucial ; l'important est que RDS renvoie l'objet Recordset au client.

Côté client, un objet Recordset est retourné et affecté à une variable locale.

 
Sub RDSTutorial4() 
 Dim DS as New RDS.DataSpace 
 Dim RS as ADODB.Recordset 
 Dim DF as Object 
 Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
 Set RS = DF.Query("DSN=Pubs", "SELECT * FROM Authors") 
...

Étape 5 : DataControl est rendu utilisable

L'objet Recordset retourné est disponible et peut être utilisé. Vous pouvez l'examiner, le parcourir ou le modifier comme n'importe quel autre objet Recordset. L'utilisation que vous pouvez faire de cet objet Recordset dépend de votre environnement. Visual Basic et Visual C++ intègrent des contrôles visuels qu'un objet Recordset peut utiliser directement ou indirectement à l'aide d'un contrôle d'activation de données.

Par exemple, si vous affichez une page web dans Internet Explorer, vous pouvez afficher les données de l’objet Recordset dans un contrôle visuel. Les contrôles visuels d’une page web ne peuvent pas accéder directement à un objet Recordset . However, they can access the Recordset object through the RDS.DataControl. The RDS.DataControl becomes usable by a visual control when its SourceRecordset property is set to the Recordset object.

Le paramètre DATASRC de l'objet de contrôle visuel doit être défini sur RDS.DataControl, et sa propriété DATAFLD sur un champ (colonne) de l'objet Recordset.

Dans ce didacticiel, définissez la propriété SourceRecordset:

 
Sub RDSTutorial5() 
 Dim DS as New RDS.DataSpace 
 Dim RS as ADODB.Recordset 
 Dim DC as New RDS.DataControl 
 Dim DF as Object 
 Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
 Set RS = DF.Query ("DSN=Pubs", "SELECT * FROM Authors") 
 DC.SourceRecordset = RS ' Visual controls can now bind to DC. 
...

Étape 6 : Les modifications sont envoyées au serveur

Si l'objet Recordset est modifié, les modifications correspondantes (p. ex., lignes ajoutées, modifiées ou supprimées) peuvent être renvoyées au serveur.

[!REMARQUE] Le comportement par défaut de RDS peut être appelé implicitement avec les objets ADO et le fournisseur d'accès à distance Microsoft OLE DB. Les requêtes peuvent retourner des recordsets, et les recordsets modifiés peuvent mettre à jour la source de données. Ce didacticiel n'appelle pas RDS avec les objets ADO, mais, si c'était le cas, voici comment se présenterait le code :

 
Dim rs as New ADODB.Recordset 
rs.Open "SELECT * FROM Authors","Provider=MS Remote;Data Source=Pubs;" & _ 
 "Remote Server=https://yourServer;Remote Provider=SQLOLEDB;" 
... ' Edit the Recordset. 
rs.UpdateBatch ' The equivalent of SubmitChanges. 
...

1ère partie

Supposons dans cet exemple que vous n’avez utilisé que l’objet RDS.DataControl et qu’un objet Recordset est maintenant associé à RDS.DataControl. La méthode SubmitChanges met à jour la source de données en fonction des modifications apportées à l’objet Recordset si les propriétés Server et Connect sont toujours définies.

 
Sub RDSTutorial6A() 
Dim DC as New RDS.DataControl 
Dim RS as ADODB.Recordset 
DC.Server = "https://yourServer" 
DC.Connect = "DSN=Pubs" 
DC.SQL = "SELECT * FROM Authors" 
DC.Refresh 
... 
Set RS = DC.Recordset 
 ' Edit the Recordset. 
... 
DC.SubmitChanges 
...

2ème partie

Vous pouvez également mettre à jour le serveur avec l’objet RDSServer.DataFactory en définissant une connexion et un objet Recordset.

 
Sub RDSTutorial6B() 
Dim DS As New RDS.DataSpace 
Dim RS As ADODB.Recordset 
Dim DC As New RDS.DataControl 
Dim DF As Object 
Dim blnStatus As Boolean 
Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer") 
Set RS = DF.Query ("DSN=Pubs", "SELECT * FROM Authors") 
DC.SourceRecordset = RS ' Visual controls can now bind to DC. 
 ' Edit the Recordset. 
blnStatus = DF.SubmitChanges "DSN=Pubs", RS 
End Sub

Annexe A : Tutoriel RDS (VBScript)

Il s’agit du tutoriel RDS, écrit dans Microsoft Visual Basic Scripting Edition. Pour obtenir une description de l’objectif de ce didacticiel, consultez l’introduction à cette rubrique.

Dans ce tutoriel, RDS. DataControl et RDS. Les dataspaces sont créés au moment du design ; autrement dit, ils sont définis avec des balises d’objet. Il est également possible de les créer au moment de l'exécution à l'aide de la méthode Server.CreateObject.

Par exemple, l'objet RDS.DataControl peut être créé de la façon suivante :

    Set DC = Server.CreateObject("RDS.DataControl") 
     <!-- RDS.DataControl --> 
     <OBJECT 
     ID="DC1" CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E33"> 
     </OBJECT> 
     
     <!-- RDS.DataSpace --> 
     <OBJECT 
     ID="DS1" WIDTH=1 HEIGHT=1 
     CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36"> 
     </OBJECT> 
     
     <SCRIPT LANGUAGE="VBScript"> 
     
     Sub RDSTutorial() 
     Dim DF1

Étape 1 : Spécifier un programme serveur

VBScript peut découvrir le nom du serveur web IIS sur lequel il s’exécute en accédant à la méthode VBScript Request.ServerVariables disponible pour Active Server Pages :

 
"https://<%=Request.ServerVariables("SERVER_NAME")%>"

Toutefois, pour ce didacticiel, utilisez le serveur imaginaire« yourServer ».

Remarque

[!REMARQUE] Soyez attentif au type de données des arguments ByRef. VBScript ne vous autorisant pas à spécifier le type de variable, vous devez toujours transmettre un type Variant. Si vous utilisez HTTP, RDS vous autorise à transmettre un type Variant à une méthode qui n'attend pas ce type de données si vous l'appelez avec la méthode CreateObject de l'objet RDS.DataSpace. Si vous utilisez DCOM ou un serveur in-process, faites en sorte que les types de paramètres côté client et côté serveur correspondent sans quoi vous obtiendrez une erreur « Incompatibilité de type ».

 
Set DF1 = DS1.CreateObject("RDSServer.DataFactory", "https://yourServer")

Étape 2, Partie A : Appeler le programme serveur avec rds. DataControl

Cet exemple est simplement un commentaire illustrant le comportement par défaut de l'objet RDS.DataControl, qui consiste à exécuter la requête spécifiée.

 
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="DC1"> 
 <PARAM NAME="SQL" VALUE="SELECT * FROM Authors"> 
 <PARAM NAME="Connect" VALUE="DSN=Pubs;"> 
 <PARAM NAME="Server" VALUE="https://yourServer/"> 
</OBJECT> 
... 
<SCRIPT LANGUAGE="VBScript"> 
 
Sub RDSTutorial2A() 
 Dim RS 
 DC1.Refresh 
 Set RS = DC1.Recordset 
...

Passez à l’étape suivante.

Étape 4 : Le serveur retourne l’objet Recordset

 
Set RS = DF1.Query("DSN=Pubs;", "SELECT * FROM Authors")

Étape 5 : DataControl est rendu utilisable par les contrôles visuels

 
' Assign the returned recordset to the DataControl. 
 
DC1.SourceRecordset = RS

Étape 6, partie A : les modifications sont envoyées au serveur avec rds. DataControl

Cet exemple est simplement un commentaire illustrant la façon dont RDS.DataControl effectue les mises à jour.

 
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="DC1"> 
 <PARAM NAME="SQL" VALUE="SELECT * FROM Authors"> 
 <PARAM NAME="Connect" VALUE="DSN=Pubs;"> 
 <PARAM NAME="Server" VALUE="https://yourServer/"> 
</OBJECT> 
... 
<SCRIPT LANGUAGE="VBScript"> 
 
Sub RDSTutorial6A() 
Dim RS 
DC1.Refresh 
... 
Set RS = DC1.Recordset 
' Edit the Recordset object... 
' The SERVER and CONNECT properties are already set from Step 2A. 
Set DC1.SourceRecordset = RS 
... 
DC1.SubmitChanges

Étape 6, Partie B : Les modifications sont envoyées au serveur avec RDSServer.DataFactory

 
DF.SubmitChanges"DSN=Pubs", RS 
 
End Sub 
</SCRIPT> 
</BODY> 
</HTML>

Annexe B : Didacticiel RDS (Visual J++)

ADO/WFC ne suit pas intégralement le modèle d'objet RDS en cela qu'il n'implémente pas l'objet RDS.DataControl. ADO/WFC implémente uniquement la classe côté clientRDS.DataSpace.

La classe DataSpace implémente une seule méthode, CreateObject, qui retourne un objet ObjectProxy. La classe DataSpace implémente également la propriété InternetTimeout.

La classe ObjectProxy implémente une seule méthode, call, qui peut appeler n'importe quel objet métier côté serveur.

 
import com.ms.wfc.data.*; 
public class RDSTutorial 
{ 
 public void tutorial() 
 { 
// Step 1: Specify a server program. 
 ObjectProxy obj = 
 DataSpace.createObject( 
 "RDSServer.DataFactory", 
 "https://YourServer"); 
 
// Step 2: Server returns a Recordset. 
 Recordset rs = (Recordset) obj.call( 
 "Query", 
 new Object[] {"DSN=Pubs;", "SELECT * FROM Authors"}); 
 
// Step 3: Changes are sent to the server. 
 ... // Edit Recordset. 
 obj.call( 
 "SubmitChanges", 
 new Object[] {"DSN=Pubs;", rs}); 
 return; 
 } 
}

Partager via

Chapitre 12 : Tutoriel sur le service de données à distance (RDS)

Modèle de programmation RDS avec des objets

Étape 1 : Spécifier un programme serveur

Étape 2 : Appeler le programme serveur

1ère partie

2ème partie

Étape 3 : Le serveur obtient un recordset

Étape 4 : Le serveur retourne l’objet Recordset

Étape 5 : DataControl est rendu utilisable

Étape 6 : Les modifications sont envoyées au serveur

1ère partie

2ème partie

Annexe A : Tutoriel RDS (VBScript)

Étape 1 : Spécifier un programme serveur

Étape 2, Partie A : Appeler le programme serveur avec rds. DataControl

Étape 4 : Le serveur retourne l’objet Recordset

Étape 5 : DataControl est rendu utilisable par les contrôles visuels

Étape 6, partie A : les modifications sont envoyées au serveur avec rds. DataControl

Étape 6, Partie B : Les modifications sont envoyées au serveur avec RDSServer.DataFactory

Annexe B : Didacticiel RDS (Visual J++)

Commentaires

Ressources supplémentaires