代码名称:Mapx连接SQL Server空间数据库如何连接

作者/收集者:steuern

开发环境:VB + MapX + SQL Server

代码:

Dim oLayerInfo As MapXLib.LayerInfo
   
        Set oLayerInfo = New MapXLib.LayerInfo
        oLayerInfo.Type = miLayerInfoTypeServer
        oLayerInfo.AddParameter "Name", "STREET"
        oLayerInfo.AddParameter "ConnectString", "DRIVER={SQL  SERVER};SERVER=DANSHI\WINCC;VID=;PWD=;Database=WORLD"       
        oLayerInfo.AddParameter "Query","SELECT * FROM STREET"
'        oLayerInfo.AddParameter "Query", ""
        oLayerInfo.AddParameter "toolkit", "ODBC"
        oLayerInfo.AddParameter "Cache", "OFF"
        oLayerInfo.AddParameter "MBRSearch", "OFF"
        oLayerInfo.AddParameter "AutoCreateDataset", 1
        oLayerInfo.AddParameter "DatasetName", "STREET"
        
        Map.Layers.Add oLayerInfo