RUS  ENG 

Примеры

8 Сентября 2016

Чтение и изменение записей таблицы (VBScript)

Sub ChangeRecord() 'Создали объект слой Set L = CreateObject("zululib.Layer") 'Открыли нужный слой L.Open "c:\program files\zulu 7.0\examples\Gidro\voda.b00" 'Создали объект база данных Set Db = CreateObject("zb.database") 'Открыли базу данных для типа 6 (колодец) Db.Open L.ObjectTypes.Item(6).BaseName 'Получили все записи базы данных Set Ds = Db.SelectAll 'Встали на первую запись Ds.MoveFirst Do 'Если дошли до конца, выходим из цикла If Ds.EOF = True Then Exit Do 'Получили имя колодца из поля "Name" sName = Ds.FieldValue(Ds.GetFieldIndexByName(0, "Name")) 'Выводим текущее значение Application.StatusText = "" 'Заменили в строке "-" на " " sName = Replace(sName, "-", " ") 'Получили ключ записи Key = Ds.GetFieldValueVar(0) 'Обновляем поле с именем по ключу Db.UpdateBaseRecord Key, "Name", sName, 0 'Встали на следующую запись Ds.MoveNext Loop Application.StatusText = "" End Sub

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


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

Последнее обновление — 03.07.2017 17:16:11