用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
详情请看正文。[阅读全文]