Считываем длину с карты
-
Выполнение SQL запросов в макросе
sub set_l
'Получаем активный слой карты
Set L = Zulu.ActiveMapDoc.layers.Active
' проверяем что это слой Газопровод
If l.UserName <> "Газопровод" then
MsgBox "Это не слой Газопровод"
Exit sub
End if
'выполняем SQL запрос, в котором для выделенных участков считываем длину с карты
l.ExecSQL "update set [Длина, м] = round(geometry.Length_sph(),3) where typeid = 2 AND geometry.selected()=1"
'выполняем SQL запрос, в котором сопределяем количество выделенных объектов
set result = l.ExecSQL("select count(*) FROM [Газопровод] where typeid = 2 AND geometry.selected()=1")
set res = result.DataSet
MsgBox "Обновлено " & res.FieldValue(0) & " записей"
end sub
Последнее обновление — 07.09.2020 01:52:28