Create New Empty Table And Add It To The Table Of Contents - Problem/Error

AndreMende — Thu, 22 Apr 2010 10:37:23 GMT

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

Re: Create New Empty Table And Add It To The Table Of Contents - Problem/Error

jp — Wed, 02 May 2012 12:38:08 GMT

It has been a long time since you posted this but I ran into this same error. It worked with "test.txt" for tablename.

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

topic Re: Create New Empty Table And Add It To The Table Of Contents - Problem/Error in ArcObjects SDK Questions

Create New Empty Table And Add It To The Table Of Contents - Problem/Error

Re: Create New Empty Table And Add It To The Table Of Contents - Problem/Error