Чтение и изменение записей таблицы (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
Последнее обновление — 03.07.2017 17:16:11