RUS  ENG 

Примеры

13 Ноября 2015

Чтение всех данных семантической базы (VBScript)

Sub ReadAllDatabaseData Set Out = OpenOutputChannel("Сообщения") Out.Clear Set Map = Zulu.ActiveMapDoc Set L = Map.Layers.Active 'Создали объект база данных Set Db = CreateObject("zb.database") 'Открыли базу данных для типа 6 (участок) Db.Open L.ObjectTypes.Item(6).BaseName Set Ds = Db.SelectAll 'Встали на первую запись Ds.MoveFirst cnt = Ds.FieldCount 'Выводим имена полей For i = 0 To cnt - 1 If i > 0 Then S = S + "," S = S + Ds.GetFieldInfo(i).Name Next S = S + Chr(10) Out.Put S 'Выводим значения полей по всем записям Do 'Если дошли до конца, выходим из цикла If Ds.EOF = True Then Exit Do S = "" For i = 0 To cnt - 1 If i > 0 Then S = S + "," S = S + Ds.FieldValue(i) Next S = S + Chr(10) Out.Put S Ds.MoveNext Loop End Sub

Скачать пример (1.27 КБ)


Возврат к списку

Последнее обновление — 15.08.2017 15:56:39