VBからアクセスのクエリを実行する。 (ID:90848)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Option Explicit 'Accessをオートメーションで動かす Function Access1() Dim oAcc As Access.Application Set oAcc = CreateObject("Access.Application") oAcc.OpenCurrentDatabase "D:\TEMP\db1.mdb" oAcc.DoCmd.OpenQuery "Q1" oAcc.CloseCurrentDatabase Set oAcc = Nothing End Function 'クエリーのSQLを実行する 'ただし、セキュリティ上の制約でAccess内のユーザ定義関数は実行不可だろう '（See: http://madia.world.coocan.jp/vb/vb_bbs/200212_02120045.html） 'DCountとかのAccess専用の関数も実行できない Function Access2() Dim db As DAO.Database Dim strSQL As String Set db = OpenDatabase("D:\TEMP\db1.mdb") strSQL = db.QueryDefs("Q1").SQL db.Execute strSQL db.Close Set db = Nothing End Function