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<-- viewthread_post_sig -->