Utilisation de Microsoft Access en tant que serveur DDE

S’applique à : Access 2013, Office 2013

Microsoft Access prend en charge l'échange dynamique de données (DDE) à la fois comme application de destination (client) et comme application source (serveur). Par exemple, une application telle que Microsoft Word, représentant le client, peut utiliser l'échange dynamique de données pour demander des données à une base de données Microsoft Access, représentant le serveur.

Une conversation DDE entre un client et un serveur est établie sur un sujet spécifique. Ce sujet est soit un fichier de données qui utilise le format reconnu par l'application serveur, soit le sujet System qui fournit les informations relatives à l'application serveur elle-même. Une fois qu’une conversation a commencé sur un sujet particulier, seul un élément de données associé à cette rubrique peut être transféré.

Par exemple, supposez que Microsoft Word pour Windows est en cours d'exécution et que vous souhaitez insérer des données d'une base de données Microsoft Access particulière dans un document. Vous entamez une conversation DDE avec Microsoft Access en ouvrant un canal DDE à l'aide de la fonction DDEInitiate et en spécifiant le nom du fichier de base de données comme sujet. Vous pouvez alors transférer des données de cette base de données vers Microsoft Word à travers ce canal.

En tant que serveur DDE, Microsoft Access reconnaît les sujets suivants :

• Le sujet System

• Le nom d'une base de données (sujet base-de-données)

• Le nom d'une table (sujet nom-table)

• Le nom d'une requête (sujet nom-requête)

• Une instruction Microsoft Access SQL (sujet chaîne-sql)

Une fois que vous avez établi une conversation DDE, vous pouvez utiliser l’instruction DDEExecute pour envoyer une commande du client à l’application serveur. Lorsqu'il est utilisé comme serveur DDE, Microsoft Access reconnaît, comme commande valide, n'importe lequel des éléments suivants :

• Le nom d'une macro dans la base de données en cours.

• N'importe quelle action que vous pouvez exécuter en Visual Basic au moyen d'une des méthodes de l'objet DoCmd.

• Les actions OpenDatabase et CloseDatabase, qui sont utilisées uniquement pour les opérations DDE. (Pour obtenir un exemple d’utilisation de ces actions, consultez l’exemple plus loin dans cette rubrique.)

L'application client peut utiliser la fonction DDERequest pour demander des données textuelles à l'application serveur sur un canal DDE ouvert. Elle peut également utiliser l'instruction DDEPoke pour envoyer des données à l'application serveur. Une fois le transfert de données terminé, le client peut utiliser l’instruction DDETerminate pour fermer le canal DDE ou l’instruction DDETerminateAll pour fermer tous les canaux ouverts.

L’exemple suivant montre comment créer une procédure Microsoft Word avec Visual Basic qui utilise Microsoft Access comme serveur DDE. (Pour que cet exemple fonctionne, Microsoft Access doit être en cours d’exécution.)

    Sub AccessDDE() 
        Dim intChan1 As Integer, intChan2 As Integer 
        Dim strQueryData As String 
     
        ' Use System topic to open Northwind sample database. 
        ' Database must be open before using other DDE topics. 
        intChan1 = DDEInitiate("MSAccess", "System") 
        ' You may need to change this path to point to actual location 
        ' of Northwind sample database. 
        DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Northwind.mdb]" 
     
        ' Get all data from Ten Most Expensive Products query. 
        intChan2 = DDEInitiate("MSAccess", "Northwind.mdb;" _ 
            & "QUERY Ten Most Expensive Products") 
        strQueryData = DDERequest(intChan2, "All") 
        DDETerminate intChan2 
     
        ' Close database. 
        DDEExecute intChan1, "[CloseDatabase]" 
        DDETerminate intChan1 
     
        ' Print retrieved data to Debug Window. 
        Debug.Print strQueryData 
    End Sub

Les sections suivantes vous informent sur les sujets DDE valides pris en charge par Microsoft Access.

Le sujet System

La rubrique Système est une rubrique standard pour toutes les applications Microsoft Windows. It supplies information about the other topics supported by the application. Pour accéder à ces informations, votre code doit d’abord appeler la fonction DDEInitiate avec l’argument topic , puis exécuter l’instruction DDERequest avec l’un des éléments suivants fournis pour l’argument item .

L'exemple suivant montre comment utiliser les fonctions DDEInitiate et DDERequest avec le sujet System :

    ' In Visual Basic, initiate DDE conversation with Microsoft Access. 
    Dim intChan1 As Integer, strResults As String 
    intChan1 = DDEInitiate("MSAccess", "System") 
    ' Request list of topics supported by System topic. 
    strResults = DDERequest(intChan1, "SysItems") 
    ' Run OpenDatabase action to open Northwind.mdb. 
    ' You may need to change this path to point to actual location 
    ' of Northwind sample database. 
    DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Northwind.mdb]"

Rubrique sur la base de données

Le sujet base-de-données contient le nom de fichier d'une base de données existante. Vous pouvez taper le nom simple (Comptoir) ou le nom accompagné de son chemin d'accès et de son extension .mdb (C:\Access\Samples\Comptoir.Mdb). Une fois que vous avez engagé une conversation DDE avec la base de données, vous pouvez demander une liste des objets contenus dans celle-ci.

Le sujet base-de-données prend en charge les éléments suivants :

L'exemple suivant montre comment ouvrir le formulaire Employés de la base de données Les comptoirs à l'aide d'une procédure Visual Basic :

    ' In Visual Basic, initiate DDE conversation with 
    ' Northwind sample database. 
    ' Make sure database is open. 
    intChan2 = DDEInitiate("MSAccess", "Northwind") 
    ' Request list of forms in Northwind sample database. 
    strResponse = DDERequest(intChan2, "FormList") 
    ' Run OpenForm action and arguments to open Employees form. 
    DDEExecute intChan2, "[OpenForm Employees,0,,,1,0]"

La rubrique TABLE

Ces sujets utilisent la syntaxe suivante :

databasename ; TABLEtablename

databasename ; QUERYqueryname

databasename ; SQL [ sqlstring ]

Le tableau ci-dessous énumère les éléments valides pour les sujets TABLE nom-table, QUERY nom-requête et SQL chaîne-sql.

L'exemple suivant montre comment utiliser l'échange dynamique de données (DDE) dans une procédure Visual Basic pour demander des données d'une table de la base de données exemple Comptoirs et insérer ces données dans un fichier texte :

    Sub NorthwindDDE 
        Dim intChan1 As Integer, intChan2 As Integer, intChan3 As Integer 
        Dim strResp1 As Variant, strResp2 As Variant, strResp3 As Variant 
     
        ' In a Visual Basic module, get data from Categories table, 
        ' Catalog query, and Orders table in Northwind.mdb. 
        ' Make sure database is open first. 
        intChan1 = DDEInitiate("MSAccess", "Northwind;TABLE Shippers") 
        intChan2 = DDEInitiate("MSAccess", "Northwind;QUERY Catalog") 
        intChan3 = DDEInitiate("MSAccess", "Northwind;SQL SELECT * " _ 
            & "FROM Orders " _ 
            & "WHERE OrderID > 10050;") 
     
        strResp1 = DDERequest(intChan1, "All") 
        strResp2 = DDERequest(intChan2, "FieldNames;T") 
        strResp3 = DDERequest(intChan3, "FieldNames;T") 
        DDETerminate intChan1 
        DDETerminate intChan2 
        DDETerminate intChan3 
     
        ' Insert data into text file. 
        Open "C:\DATA.TXT" For Append As #1 
        Print #1, strResp1 
        Print #1, strResp2 
        Print #1, strResp3 
        Close #1 
    End Sub