HOME > 即効テクニック > AccessVBA > データベース・データ保護 > AccessをDDEサーバーとして使用する

即効テクニック

データベース・データ保護

AccessをDDEサーバーとして使用する

(Access)
Accessは、ダイナミック データ エクスチェンジ(DDE)機能をサポートします。例えば、AccessにデータベースのレコードをDDEを通じて、WordのドキュメントやExcelのワークシートに挿入することができます。
下のサンプルでは、AccessをDDEサーバーとして使うWordのプロシージャを、VBで作成しています。この例を実行するには、Access が実行されている必要があります。

●サンプル●
Sub AccessDDE()
    Dim intChan1 As Long, intChan2 As Long
    Dim strQueryData As String

    'System トピックを使って、ノースウィンド データベースを開きます。
  'ほかのDDEトピックを使う前に、データベースを開く必要があります。
    intChan1 = DDEInitiate("MSAccess", "System")
    'ノースウィンド データベースの実際の位置を示すには、次のパスの変更が
  '必要な場合があります。
    DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Northwind.mdb]"

    '[四半期売上高] クエリのすべてのデータを取得します。
    intChan2 = DDEInitiate("MSAccess", "Northwind.mdb;" _
        & "QUERY 四半期売上高")
    strQueryData = DDERequest(intChan2, "All")
    DDETerminate intChan2

    'データベースを閉じます。
    DDEExecute intChan1, "[CloseDatabase]"
    DDETerminate intChan1

    '取得したデータをデバッグ ウィンドウに表示します。
    Debug.Print strQueryData
End Sub