Hello Developers,
i have to create an empty table and add this table to the map. (later i will fill the table with information)
The following code produces an error: "Run-time error' -2147220985 (80040207)'"
Maybe everyone can help me to find the problem? Thanks a lot!
Greets, André Mende
_____________________________________________________________________________________
Private Sub btnCreateStandaloneTable_Click()
Dim pTable As ITable
Dim pFeatureWorkspace As IFeatureWorkspace
Dim pWorkspaceFactory As IWorkspaceFactory
Dim pWorkspace As IWorkspace
Set pWorkspaceFactory = New TextFileWorkspaceFactory
Set pWorkspace = pWorkspaceFactory.OpenFromFile("C:\Workspace", 0)
Set pFeatureWorkspace = pWorkspace
Dim pFieldsEdit As IFieldsEdit
Dim pFields As IFields
Set pFields = New Fields
Set pFieldsEdit = pFields
Set pTable = pFeatureWorkspace.CreateTable("Test", pFieldsEdit, Nothing, Nothing, "") 'the row with the error
End Sub