私のアプリケーションは Visual Basic 6 で作成されており、Access データベースがあります。VB フォームを追加し、このフォームでデータベースを開いて、その中の DB を編集したいと考えています。私は開くためのこのコードを持っています:
Dim db As DAO.Database
Set db = DBEngine.workspaces(0).opendatabase("c:\ss.mdb")
そのデータベース内にフォームがあります。このフォームにより、データ挿入プロセスが高速化されます。このアクセスフォームを自分のアプリケーションで開きたいです。どうすればいいですか??
注: Microsoft Access 14 オブジェクト ライブラリを使用するこのコードがあります。
Dim appaccess As Access.Application, dbstr As String
On Error Resume Next
Set appaccess = New Access.Application
Set appaccess = CreateObject("Access.Application")
dbstr = "c:\ss.mdb"
'Or dbstr="c:\my documents\yourfile.mdb
'put the correct path here.
appaccess.OpenCurrentDatabase dbstr
appaccess.DoCmd.OpenForm "aa", acLayout
appaccess.Visible = True
しかし、このコードを実行するとフォームが表示され、しばらくすると消えてしまいます。アクセスオブジェクトライブラリを使用するだけでなく、アクセスバージョンの競合が発生します。だから、それは必要ではありませんが、私はADOオブジェクトでそれを行うことを好みます. とにかく、私は自分の問題を解決する方法を探しています。
ご協力ありがとうございました