Open メソッドで AccessWorkspace を取得

 2016/9/1 (木)    

Dim pPropertySet As IPropertySet
Set pPropertySet = New PropertySet
pPropertySet.SetProperty "DATABASE", "D:\Workspace\PGDB.mdb"     'ワークスペース名
 
Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New AccessWorkspaceFactory
 
Dim pWorkspace As IWorkspace
Set pWorkspace = pWorkspaceFactory.Open(pPropertySet, Application.hWnd)

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.