>Dim pPropset As IPropertySet >Set pPropset = New PropertySet > >Dim pFact As IWorkspaceFactory >Dim pWorkspace As IWorkspace > >With pPropset >.SetProperty "Server", "testserver" >.SetProperty "Instance", "sdemss" >.SetProperty "Database", "sde" ' Ignored with ArcSDE for Oracle >.SetProperty "user", "sde" >.SetProperty "password", "go" >.SetProperty "version", "sde.DEFAULT" >End With > >Set pFact = New SdeWorkspaceFactory >Set pWorkspace = pFact.Open(pPropset, Me.hWnd) > >Dim pFeatureWorkspace As IFeatureWorkspace >Set pFeatureWorkspace = pWorkspace > >Dim pFeatureClass As IFeatureClass >Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("parcels") >>Here is what I have tried so far. I don't know if it is right but it worked. I am wondering if Getinterface would work better?
>lowsf = CREATEOBJECTex('esriCore.SdeWorkSpaceFactory','','{F173FC16-D63A-11D1-AA81-00C04FA33A15}') > >loPropset = CREATEOBJECTEX('esriCore.PropertySet','','{F0BA6ABC-8E9F-11D0-B4AB-0000F8037368}') > >lopropset.SetProperty("Server", "ifgis") >lopropset.SetProperty("Instance", "esri_sde") >lopropset.SetProperty("Database", "Woodlands") >lopropset.SetProperty("User", "sde") >lopropset.SetProperty("Password", "sde") >lopropset.SetProperty("Version", "sde.DEFAULT") >>Thanks