'导入数据代码片断,下面有具体的函数实现
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函数实现。