AO通过SDE将矢量数据导入到数据库中
用VB+AO实现通过SDE进行矢量入库 If BCreateFeatDataset(strDatasetName) Then ' Screen.MousePointer = vbDefault If ConvertSHP2ARCSDE(Me.txtInpathF, strDatasetName) = True Then MsgBox "入库成功！！", vbInformation, "信息提示" Else MsgBox "入库成功！！", vbInformation, "信息提示" End If End If 详情请看正文。
'导入数据代码片断，下面有具体的函数实现
If BCreateFeatDataset(strDatasetName) Then
' Screen.MousePointer = vbDefault
If ConvertSHP2ARCSDE(Me.txtInpathF, strDatasetName) = True Then
MsgBox "入库成功！！", vbInformation, "信息提示"
Else
MsgBox "入库成功！！", vbInformation, "信息提示"
End If
End If
详细代码请进入 http://www.gissky.net/blog/user1/1574/index.html
其中有BCreateFeatDataset和ConvertSHP2ARCSDE函数实现。
