привет форумчане, создал свои таблицы в персональной геобазеданных(акцесс) для хранения своих системный данных, теперь мне предстоит данные с этих таблиц в оракл (SDE) импортировать. При Set pRow = OutGDBTable.CreateRow ругается:
Automation error (Error
440), код ниже, где я че забыл, заранее спасибо !!!
Dim pPropset As IPropertySet
Set pPropset = New PropertySet
With pPropset
.SetProperty "Server", "Mysrv2"
.SetProperty "Instance", "5151"
.SetProperty "user", "user1"
.SetProperty "password", "jack"
.SetProperty "Database", "GIS"
.SetProperty "version", "SDE.DEFAULT"
End With
Dim pFactSDE As IWorkspaceFactory
Set pFactSDE = New SdeWorkspaceFactory
Dim pWorkSpaceSDE As IWorkspace
Set pWorkSpaceSDE = pFactSDE.Open(pPropset, Application.hWnd)
Dim OutFeatureWS As IFeatureWorkspace
Set OutFeatureWS = pWorkSpaceSDE
Dim pWorkspaceEdit As IWorkspaceEdit
Set pWorkspaceEdit = pWorkSpaceSDE
pWorkspaceEdit.StartEditing True
pWorkspaceEdit.StartEditOperation
Dim OutGDBTable As ITable
Set OutGDBTable = OutFeatureWS.OpenTable("user1.GDB_Table")
Dim pOutFields As IFields
Set pOutFields = OutGDBTable.Fields
Dim pRow As IRow
Set pRow = OutGDBTable.CreateRow
......