代码名称：MAPX5.0+ORACLE9I+VB实现数据邦定

作者/收集者：dhachm

开发环境：MAPX5.0 + ORACLE9I + VB

代码：

   Dim oLayerInfo As New MapXLib.LayerInfo
    Dim oLayer As MapXLib.Layer
    
    oLayerInfo.Type = miLayerInfoTypeServer
    oLayerInfo.AddParameter "Name", "DHLINE"  '这里的DHLINE是图层的名称，可以任意
    'SERVR是DHLINE所在的数据库 ，确信UID用户,PWD口令  能够登陆SerDB
    oLayerInfo.AddParameter "ConnectString", "UID=system;PWD=123456;SRVR=SerDB"
    oLayerInfo.AddParameter "Query", "SELECT * FROM DHLINE"   'DHLINE是想要显示的表
    oLayerInfo.AddParameter "ToolKit", "ORAINET"
    oLayerInfo.AddParameter "Cache", "off"
    oLayerInfo.AddParameter "MBRSearch", "off"
    oLayerInfo.AddParameter "AutoCreateDataset", 1
    oLayerInfo.AddParameter "DatasetName", "DHLINE"
  
    Set oLayer = Map1.Layers.Add(oLayerInfo, 1)
   
    Set oLayer = Nothing
    Set oLayerInfo = Nothing