[XL] XLODBC アドイン関数 (紹介編)

概要

本文書は、Microsoft(R) Visual Basic(R) Programming System Applications
Edition (以下 VBA) で XLODBC アドイン関数を使用し、 Excel5.0 から外部
データベース上のデータの変更、追加、削除をする方法をサンプル モジュール
と共に解説しています。

使用例

サンプル モジュールは「 SQL Server 」と「 ORACLE 」に対するものを用意いた
しました。それぞれのプログラム実行環境は次の通りです。

  SQL Server
    プログラム実行環境
        サーバー         SQLServer
        ODBC ドライバ    SQLServerODBC ドライバ (Excel5.0 添付)
        データソース名   TstSQL
     TstSQL の内容
        サーバー名       serversql1
        ユーザー ID      sa
        データベース     pubs
        パスワード       Excel
  ORACLE
    プログラム実行環境
        サーバー         ORACLE
        ODBC ドライバ    ORACLE Ver. 6 用 ODBC ドライバ (Access 添付)
        データソース名   TstORA
    TstORA の内容
        サーバー名       serverora1
        ユーザー ID      SCOTT
        パスワード       Tiger

XLODBC アドイン関数を使用したサンプル モジュールは次の通りです。
モジュールの記述で、次の記述で囲まれている部分は、紙面上では改行されていま
すが、実際のモジュール シートへの入力の際は改行してはいけないコードを
示しています。ご注意ください。

    '以下 2 行は改行せずにコードを入力してください。
    '上の 2 行は改行せずにコードを入力してください。

1. クエリーを実行し、抽出データをワークシートへ貼りつける

次のサンプル モジュールでは、データソースとの接続を確立後、実行された
クエリーの結果をワークシート "sheet1" のセル "A1" に貼り付けています。

サンプル 1-1 (SQLServer)

  Sub GetDataSQL()
      Dim con As Variant
      Dim sql As String
      'データソースとの接続を確立し SQLOpen のリターン値を変数 con にセット
      '以下の 2 行は改行せずにコードを入力してください。
      con = SQLOpen("DSN=TstSQL;SERVER=serversql1;UID=sa;DATABASE=pubs;
      PWD=Excel", , 2)
     '上の 2 行は改行せずにコードを入力してください。
      'SQL 文定義
      sql = "SELECT * FROM 売上"
      'クエリーの実行
      SQLExecQuery con, sql
      '以前に実行されたクエリーの結果を取得し Sheet1 のセル A1 に貼り付け
      SQLRetrieve con, Range("Sheet1!A1"), , , True
      'データソースとの接続を切断
      SQLClose con
  End Sub

サンプル 1-2 (ORACLE)

  Sub GetDataORA()
      Dim con As Variant
      Dim sql As String
      'データソースとの接続を確立し SQLOpen のリターン値を変数 con にセット
      '以下の 2 行は改行せずにコードを入力してください。
      con = SQLOpen("DSN=TstORA;DBQ=p:serverora1;UID=SCOTT;PWD=Tiger",
      , 2)
      '上の 2 行は改行せずにコードを入力してください。
      'SQL 文定義
      sql = "SELECT * FROM 売上"
      'クエリーの実行
      SQLExecQuery con, sql
      '以前に実行されたクエリーの結果を取得し Sheet1 のセル A1 に貼り付け
      SQLRetrieve con, Range("Sheet1!A1"), , , True
      'データソースとの接続を切断
      SQLClose con
  End Sub

2. クエリーの結果を取得し、ファイルに格納する

次のサンプル モジュールでは、データソースとの接続を確立後、実行されたクエ
リーの結果をテキスト ファイルに格納しています。

サンプル 2-1 (SQLServer)

  Sub GetDatatoFile1()
      Dim con As Variant
      Dim sql As String
      'データソースとの接続を確立し SQLOpen のリターン値を変数 con にセット
      '以下の 2 行は改行せずにコードを入力してください。
      con = SQLOpen("DSN=TstSQL;SERVER=serversql1;UID=sa;DATABASE=pubs;
      PWD=Excel", , 2)
      '上の 2 行は改行せずにコードを入力してください。
      'SQL 文定義
      sql = "SELECT * FROM 売上"
      'クエリーの実行
      SQLExecQuery con, sql
      '以前に実行されたクエリーの結果を取得し ファイル d:\doc\sql.txt に格納
      SQLRetrieveToFile con, "d:\doc\sql.csv"
      'データソースとの接続を切断
      SQLClose con
  End Sub

サンプル 2-2 (ORACLE 編)

  Sub GetDatatoFile2()
      Dim con As Variant
      Dim sql As String
      'データソースとの接続を確立し SQLOpen のリターン値を変数 con にセット
      '以下の 2 行は改行せずにコードを入力してください。
      con = SQLOpen("DSN=TstORA;DBQ=p:serverora1;UID=SCOTT;PWD=Tiger",
      , 2)
      '上の 2 行は改行せずにコードを入力してください。
      'SQL 文定義
      sql = "SELECT * FROM 売上"
      'クエリーの実行
      SQLExecQuery con, sql
      '以前に実行されたクエリーの結果を取得し ファイル d:\doc\sql.txt に格納
      SQLRetrieveToFile con, "d:\doc\sql.csv"
      'データソースとの接続を切断
      SQLClose con
  End Sub