mapx连接ORACLE如何连接

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  

有没有OPENGL开发三维GIS的示例代码?