MapX应用教程 在MapX下紧缩表 MapXLib
在MapX下紧缩表
在Professional里面,紧缩表用 Pack Table 语句完成。而在MapX中则需要使用临时图层,并用复制技术来完成。示例:‘紧缩当前Map对象中的所有图层
Dim LayerInfo As New MapXLib.LayerInfo
Dim Lyr As MapXLib.Layer
Dim LyrTemp As MapXLib.Layer
Dim Flds As MapXLib.Fields
Dim Ds As MapXLib.Dataset
Dim I As Integer
Dim LayerName, FilePath As String
On Error Resume Next
For I = MainMap.Layers.Count To 1 Step -1
´复制源表数据到临时表
Set Lyr = MainMap.Layers.Item(I)
Set Ds = Lyr.Datasets.Item(1)
Set Flds = Ds.Fields
LayerName = Lyr.Name
LayerInfo.Type = miLayerInfoTypeTemp
LayerInfo.AddParameter "FileSpec", LayerName
LayerInfo.AddParameter "NAME", LayerName
LayerInfo.AddParameter "Features", Lyr.AllFeatures‘复制所有有效图元
LayerInfo.AddParameter "Fields", Flds ’复制字段列表
LayerInfo.AddParameter "AutoCreateDataset", 1
LayerInfo.AddParameter "datasetname", LayerName
Set LyrTemp = MapTemp.Layers.Add(LayerInfo, 1) ‘复制到另外Map对象
´删除源表
Set Lyr = Nothing
FilePath = MainMap.Layers.Item(I).Filespec
LayerName = Mid(FilePath, InStr(1, FilePath, "Maps") + 6, Len(FilePath)
- InStr(1, FilePath, "Maps"))
FilePath = Mid(FilePath, 1, InStr(1, FilePath, "Maps") + 5)
LayerName = Mid(LayerName, 1, Len(LayerName) - 4)
MainMap.Layers.Remove (I)
MainMap.Refresh
Kill FilePath + LayerName + ".TAB"
´复制临时表数据到源表
Set LyrTemp = MapTemp.Layers.Item(LayerName)
LayerInfo.Type = miLayerInfoTypeNewTable
LayerInfo.AddParameter "FileSpec", FilePath + LayerName + ".TAB"
LayerInfo.AddParameter "NAME", LayerName
LayerInfo.AddParameter "Features", LyrTemp.AllFeatures
LayerInfo.AddParameter "Fields", Flds
LayerInfo.AddParameter "AutoCreateDataset", 1
LayerInfo.AddParameter "datasetname", LayerName
Set Lyr = MainMap.Layers.Add(LayerInfo, 1)
´删除临时表
MapTemp.Layers.Remove (MapTemp.Layers.Count)
MapTemp.Refresh
Next
Set Lyr = Nothing
Set Ds = Nothing
Set Flds = Nothing
Set LayerInfo = Nothing
最新文章
- 空间数据建库设计 数据建模过程 [08-23]
- 农村地籍管理信息系统 基于GEOSTAR [06-24]
- ArcSDE8.1 C API向SQL SERVER空间数 [06-24]
- Data Mining数据挖掘 GIS数据库中的 [06-24]
- 空间数据库的建立 关于建立GIS数据 [06-04]
- MapX应用教程 在MapX下紧缩表 MapX [04-25]
- MapX应用教程 如何和大型数据库关联 [04-25]
- Oracle服务器 Oracle两个基本概念了 [04-24]
- ArcSDE 8.1中空间数据的备份与恢复 [03-26]
- ArcSDE中间件技术发展及其与Oracle [12-29]
推荐文章


热点文章
国家基础地理信息数据库及地图数
GIS空间数据库ORACLE参数设置中心
空间数据库引擎探究及GIS栅格和矢
论文:基于空间数据库的数据挖掘技
国家基础地理信息系统数据库知识
如何用MapX访问Oracle空间数据库
国家基础地质图空间数据库建设必
也来谈谈空间数据库优化的几种方
空间数据库与coverage数据模型相
Oracle Spatial的数据加密问题研
教程:Oracle的空间数据库管理技巧
论文:关于无缝空间数据库若干问题
开源空间数据引擎MsSQLSpatial介
生活中学习知识:大话ESRI之空间格
空间数据建库设计 数据建模过程
农村地籍管理信息系统 基于GEOST
ArcSDE8.1 C API向SQL SERVER空间
Data Mining数据挖掘 GIS数据库中
空间数据库的建立 关于建立GIS数
MapX应用教程 在MapX下紧缩表 Ma
MapX应用教程 如何和大型数据库关
Oracle服务器 Oracle两个基本概念
ArcSDE 8.1中空间数据的备份与恢
ArcSDE中间件技术发展及其与Orac
