oracle map连接字符串,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