在mo程序中自动加载sde数据[分享]

简单，偶尔还是会用到的！

Dim dc As New MapObjects2.DataConnection
  Dim gd As MapObjects2.GeoDataset
  Dim ly As New MapObjects2.MapLayer
  
  dc.Server = "plague"
  dc.Database = "esri_sde"
  dc.User = "testuser"
  dc.Password = "secret"
    
  Set gd = dc.FindGeoDataset("testuser.states.shape.polygons")
  Set ly.GeoDataset = gd
  ly.Symbol.Color = moGreen
  Map1.Layers.Add ly
  
  Set ly = New MapObjects2.MapLayer
  Set gd = dc.FindGeoDataset("testuser.states.shape.annotations")
  Set ly.GeoDataset = gd
  ly.Symbol.Color = moRed
  Map1.Layers.Add ly

thx a lot!