AO通过SDE将矢量数据导入到数据库中
'导入数据代码片断,下面有具体的函数实现 If BCreateFeatDataset(strDatasetName) Then ' Screen.MousePointer = vbDefault If ConvertSHP2ARCSDE(Me.txtInpathF, strDatasetName) = True Then ...
- 作者:汪自军来源:本站原创BLOG|2007年10月28日
'导入数据代码片断,下面有具体的函数实现
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函数实现。