CreateFeatureClass failure in vb.net

Question

I'm using ArcGIS 9.3.1 and trying to get the code to create a new feature class in an existing personal geodatabase to work but I am having no luck. When running in debug mode from within vb.net it will fail with the standard "LoaderLock" error where it tells you to not run managed code inside a DllMain.

Dim pGeomDefEdit As IGeometryDefEdit = CType(pGeomDef, IGeometryDefEdit)
With pGeomDefEdit
 .GeometryType_2 = esriGeometryType.esriGeometryPolygon
 Dim pSpatRefFact As ISpatialReferenceFactory2 = New ESRI.ArcGIS.Geometry.SpatialReferenceEnvironment
 Dim pGeoCoordSys As IGeographicCoordinateSystem = pSpatRefFact.CreateGeographicCoordinateSystem(ESRI .ArcGIS.Geometry.esriSRGeoCSType.esriSRGeoCS_WGS19 84)
 .SpatialReference_2 = pGeoCoordSys
End With
Dim pFields As IFields = New Fields
Dim pFieldsEdit As IFieldsEdit
Dim pField As IField
Dim pfieldEdit As IFieldEdit
pFieldsEdit = pFields
pField = New Field
pfieldEdit = pField
With pfieldEdit
 .Name_2 = "ObjectID"
 .Type_2 = esriFieldType.esriFieldTypeOID
End With
pFieldsEdit.AddField(pField)
pFieldsEdit = pFields
pField = New Field
pfieldEdit = pField
With pfieldEdit
 .Name_2 = "SHAPE"
 .Type_2 = esriFieldType.esriFieldTypeGeometry
 .GeometryDef_2 = pGeomDef
End With
pFieldsEdit.AddField(pField)
Dim pWorkSpaceFactory As IWorkspaceFactory = New ESRI.ArcGIS.DataSourcesGDB.AccessWorkspaceFactory
Dim pFWS As IFeatureWorkspace = pWorkSpaceFactory.OpenFromFile("c:\Dan\Data\DataFi tness-1AOI.mdb", 0)
Dim pFeatClass As IFeatureClass
Dim pUID As New ESRI.ArcGIS.esriSystem.UID
pUID.Value = "esriGeoDatabase.Feature"
'FAILING HERE
pFeatClass = pFWS.CreateFeatureClass("TestFC1", pFieldsEdit, pUID, Nothing, esriFeatureType.esriFTSimple, "SHAPE", "") ```

Answer 1

Not sure if that's the cause of the problem, but singleton classes (SpatialReferenceEnvironment and AccessWorkspaceFactory) should not be created directly, but through Activator.CreateInstance calls.

Anyway, I have also encountered LoaderLocks in the past, but have never been able to get to the root of the problem. I believe it has to do with the order libraries are loaded in, and it usually occured when working with WinForms at some point.

I usually disabled the LoaderLock MDA (debugging assistant) in VS debugger settings. This does not seem to cause any other problems, at least I didn't experience any.

Answer 2

The problem as been solved. I was not defining the XY domain of the spatial reference for the geometry field.

Answer 3

Try this in place of your last (failing) line:

pFeatClass = pFWS.CreateFeatureClass("TestFC1", pFields, Nothing, Nothing, esriFeatureType.esriFTSimple, "SHAPE", String.Empty)