| 
 | 
 
mapx连接ORACLE如何连接 
Public Sub LoadServerTableMap(ByVal TableName As String, LoadTableMap As Map)  
  Dim Lyr As MapXLib.Layer  
  Dim LayerInfo As New MapXLib.LayerInfo  
    
  LayerInfo.Type = miLayerInfoTypeServer  
  LayerInfo.AddParameter "NAME", TableName  
  LayerInfo.AddParameter "connectstring", "uid=system;pwd=manager;srvr=TRANDB"  
  LayerInfo.AddParameter "query", "select * from " + TableName  
  LayerInfo.AddParameter "cache", "off"  
  LayerInfo.AddParameter "MBRSearch", "on"  
  LayerInfo.AddParameter "toolkit", "ORAINET"  
  LayerInfo.AddParameter "AutoCreateDataset", 1  
  LayerInfo.AddParameter "datasetname", TableName  
  Set Lyr = MainFrm.MainMap.Layers.Add(LayerInfo, 1)  
    
  Set Lyr = Nothing  
  Set LayerInfo = Nothing  
End Sub |   
 
 
 
 |