|
阅读：1899回复：6
MO图层添加属性字段的方法
http://www.863s.com/bbs/dispbbs.asp?boardid=10;id=153
[此贴子已经被作者于2004-10-24 7:38:44编辑过]
|
|
|
|
1楼#
发布于：2004-11-08 17:15
楼上的朋友，为什么失望？
|
|
|
|
2楼#
发布于：2004-11-08 17:14
<img src="images/post/smile/dvbbs/em15.gif" />
|
|
|
3楼#
发布于：2004-11-05 21:05
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
|
4楼#
发布于：2004-10-25 14:13
<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
|
5楼#
发布于：2004-10-24 07:42
资料还是直接贴出来吧<img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
|
6楼#
发布于：2004-10-24 07:41
<b>转 MO图层添加属性字段的方法
</b>Alter table structure before adding layer to Mapobjects layers collection '*** This function Checks a dbf file for Render_ field. If it does not exists then it creates one Public Sub subSetRenderFld(sFileName As String, sFolderName As String) 'sFileName = dbf file name without any extension 'sFolder Name = Folder where dbf file exists On Error GoTo hErr: Dim blnFldExits As Boolean Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "Driver={Microsoft Visual Foxpro Driver};SourceType=DBF;SourceDB=" ; sFolderName Dim rstSchema As ADODB.Recordset Set rstSchema = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, sFileName ; ".dbf")) Do Until rstSchema.EOF If UCase(rstSchema!COLUMN_NAME) = "RENDER_" Then blnFldExits = True rstSchema.MoveNext Loop rstSchema.Close If blnFldExits = False Then cn.Execute "Alter Table [" ; sFileName ; "] Add Column " ; Strings.UCase("Render_") ; " numeric(5,0)" Set cn = Nothing: Set rstSchema = Nothing Exit Sub hErr: MsgBox "Inside subSetRenderFld - modMapMain " ; vbCrLf ; err.Description End Sub |
|
|
