ACCESS95のコードをVB6.0に変換したい (ID:103028)

名前

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

本文 Access の CurrentDb は、現在開かれている mdb を表します。 しかし VB の場合は、mdb はまだ開かれていませんので、 それを自分で開かなければなりません。たとえばこのようになります。 Dim de As DAO.DBEngine Set de = New DAO.DBEngine Dim ws As DAO.Workspace Set ws = de.CreateWorkspace("#Default Workspace#", "Admin", "") Dim db As DAO.Database Set db = ws.OpenDatabase("C:\db1.mdb") Dim rs As DAO.Recordset Set rs = db.OpenRecordset("SELECT * FROM TBL") なお、Workspace は DBEngine はグローバルオブジェクトであるため、 DAO への参照設定をしている場合は、実はいきなり Set db = OpenDatabase("C:\db1.mdb") というコードを書いても開くことができます。 とはいえ、参照設定せずにレイトバインドで実行させる場合においては 上位オブジェクトを省略できないため、DBEngine から辿る必要があります。 以下、今回の件とは微妙に異なりますが、一応参考情報として。 http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+201011/10110013.txt