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