VBからアクセスのクエリを実行する。

てぃんじ 2005-07-06 17:02:20 No: 90846

VB6.0からアクセス2000で作成済みの追加クエリを実行させたいのです。接続自体はADOでできているのですが、既存のクエリを実行する方法がわかりません。よろしくお願い致します。

ｍ 2005-07-06 21:12:34 No: 90847

参考に

http://homepage2.nifty.com/inform/vbdb/

もげ 2005-07-07 02:55:52 No: 90848

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