通过SDE将矢量数据导入到数据库中(part1).docVIP

通过SDE将矢量数据导入到数据库中(part1) 导入数据代码片断，下面有具体的函数实现? If BCreateFeatDataset(strDatasetName) Then??? ??????????????????????????????????? Screen.MousePointer = vbDefault??????? If ConvertSHP2ARCSDE(Me.txtInpathF, strDatasetName) = True Then??????????? MsgBox 入库成功！！, vbInformation, 信息提示??????? Else?????????? MsgBox 入库成功！！, vbInformation, 信息提示??????? End If??? End If 创建指定名称的要素数据集的函数FeatureDatasetPrivate Function BCreateFeatDataset(strDSName As String) As BooleanOn Error GoTo HandleErr suk 添加 主要目的是读出文件的坐标信息和范围来设定数据库中的投影信息? Open workspaces *** Modify the pathname appropriately. ? get the datas