• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• kazkaz23

  2015/10/17 22:01:05

  現行エラーが出ているVBAを書きます。

  ■エクセル上のVBA(現行、エラーが出ます。)

  Sub DB_Read()

  Dim adoCON As New ADODB.Connection

  Dim adoRS As New ADODB.Recordset

  Dim strSQL As String

  Dim odbdDB As Variant

  Dim wSheetName As Variant

  Dim i As Integer

  Dim accApp As Access.Application

  Dim rs As New ADODB.Recordset

  'カレントディレクトリのデータベースパスを取得

  odbdDB = ActiveWorkbook.Path & "\sample.accdb"

  'データベースに接続する

  adoCON.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" _

  & "Data Source=" & odbdDB & ""

  adoCON.Open

  'DB接続用SQL

  strSQL = "SELECT テスト.* FROM テスト ORDER BY テスト.ID;"

  'レコードセットを開く

  adoRS.Open strSQL, adoCON, adOpenDynamic

  'アクティブなシート名を取得

  wSheetName = ActiveSheet.Name

  'スタート行をセット

  i = 3

  'テーブルの読み込み

  Do Until adoRS.EOF

  With Worksheets(wSheetName)

  .Cells(i, 1).Value = adoRS!単価

  .Cells(i, 2).Value = adoRS!関数

  End With

  i = i + 1

  adoRS.MoveNext

  Loop

  'クローズ処理

  adoRS.Close

  Set adoRS = Nothing

  adoCON.Close

  Set adoCON = Nothing

  End Sub

  宜しくお願いします。

• cx202015/10/17 23:25:05

  残念ながら Access のユーザー定義関数を ADO から直接呼び出すことはできないようです。
  （ACE データベースエンジンの機能として、ユーザー定義関数が含まれていない為）
  回避方法として、Access の VBA でレコードセットを返すモジュールを作成し、それを Excel VBA から Run メソッドで呼び出すという方法があるようです。
  
  ■ EXCEL─ADO→ユーザ関数入りAccessクエリを実行すると未定義エラー --DAO、ADO、SQL & Access フォーラム--
  http://www.accessclub.jp/bbs6/0020/das6169.html
  
  ＜参考情報＞
  ■ Microsoft Access 2010 を使用したデータ プログラミング
  https://msdn.microsoft.com/ja-jp/library/office/ff965871(v=office.14).aspx

  スター

  • 

    2件のコメントを見る

  • kazkaz23 2015/10/18 21:45:12

    ありがとうございます。逆にDAOなら可能でしょうか？

    スター

  • cx20 2015/10/18 22:51:37

    DAO であってもユーザー定義関数をクエリに含めることはできません。
    Jet / ACE データベースエンジンにユーザー定義関数が含まれていない為です。
    以下は、VBScript を使用した DAO 使用サンプルです。

    ' File: DaoTest.vbs
    ' Usage: CScript //Nologo DaoTest.vbs
    Option Explicit
     
    Call Main()
     
    Sub Main()
        Dim dbe
        Dim db
        Dim rs
        Set dbe = CreateObject("DAO.DBEngine.120")
        Set db = dbe.OpenDatabase("Hello.mdb")
        Set rs = db.OpenRecordset("SELECT x10(1) AS Message")
        'Set rs = db.OpenRecordset("SELECT * FROM q1")
        WScript.Echo rs(0).Value
    End Sub
    

    ＜実行結果＞
    DAO.Database: 式に未定義関数  'x10' があります。
    

    
    

    ＜参考＞
    ■ Hello, DAO World!
    http://cx20.main.jp/blog/hello/2012/03/22/hello-dao-world/

    スター

この質問へのコメント

質問の情報

登録日時

2015-10-17 21:59:42

終了日時

2015-10-24 22:00:07

回答条件

1人5回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者19時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者119時間前
• 内定してほしいポケモンはいますか？匿名質問者20時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ