RUS  ENG 

VBscript - выделение объектов по результатам SQL-запроса

Поиск  Правила  Войти
Страницы: 1
RSS
VBscript - выделение объектов по результатам SQL-запроса
 
#1
15.06.2018 11:11:13
Добрый день! Подскажите, пожалуйста, каким образом через макрос (vbscript) выделить объекты на экране, список которых получен через SQL-запрос? Например, хочу выделить все объекты, значение поля layer которых равно "Г1 подзем". Спасибо!
 
 
 
#2
16.06.2018 11:48:16
Если убрать проверки на существование карты слоя и т.д. то как-то так:
Код
Sub SelectFromSql

Set Map = Zulu.ActiveMapDoc

Set L = Map.Layers.Active

Set SqlResult = L.ExecSQL ("SELECT Sys FROM [Gaz_ps] WHERE [Вид прокладки] = ""Подземная""")

Set Ds = SqlResult.DataSet

Ds.MoveFirst()

L.Selection.Visible = False

do 

if Ds.Eof = True Then exit Do
  
S = Ds.FieldValue(0)
    
L.Selection.AddElem CInt(S)           
    
  Ds.MoveNext  
loop

L.Selection.Visible = True


End Sub
 
 
 
Страницы: 1