Официальный сайт геоинформационной системы (ГИС) ObjectLandОфициальный сайт геоинформационной системы (ГИС) ObjectLand
  
 
ПОИСК ПО САЙТУ:
yandex.ru
КАРТА САЙТА
 
главная / поддержка / форум
E-MAIL:ПАРОЛЬ: 
регистрация

Обсуждение

 Delpi, изменение данных в таблицахDelpi, изменение данных в таблицах [ Алексей Огурцов ]
Понедельник, 8 февраля 2010, 11:18

Есть таблица "MDKK System Table", в ней есть столбец "ONT", в котором все значения "607" нужно заменить на "602". Попытки решить задачу путем импорта/экспорта не помогли. Как в Delphi добраться до этих данных и изменить?

 Delpi, изменение данных в таблицах [ Алексей Огурцов ]
Вторник, 9 февраля 2010, 10:23

procedure TForm1.Button1Click(Sender: TObject);
var objEngine: IGDBEngine;
objGDB: IGDBGeoDatabase;
objTable: IGDBTable;
objRecordset: IGDBRecordset;
strGDBPath: string;
i: integer;
begin
objEngine := CoGDBEngine.Create;

strGDBPath := 'G:\работа\_progo\Update in ObjectLand\г.Александров';
objGDB := objEngine.OpenGDB(strGDBPath, gdbOpenExclusive or gdbOpenReadWrite or gdbOpenNoChgFile, '', '', '');

objTable := objGDB.Tables.Item('MDKK System Table');

objRecordset := objTable.OpenRecordset(true);

objRecordset.MoveFirst;

for i := 0 to objRecordset.RecordCount - 1 do
begin
if objRecordset.Fields.Item('ONT').Value = '607'
then objRecordset.Fields.Item('ONT').Value := '602';

objRecordset.Update;
objRecordset.MoveNext;
end;

objGDB.Close;
objEngine.Close;
objEngine := nil;
end;

 Delpi, изменение данных в таблицах [ ObjectLand Support ]
Вторник, 9 февраля 2010, 12:12

На первый взгляд код правильный. Вы пробовали запускать? Работает?

 Delpi, изменение данных в таблицах [ Алексей Огурцов ]
Четверг, 11 февраля 2010, 20:18

Ну конечно же пробовал, иначе и не выложил бы. Все прекрасно работает.

Ответить

Знаком «*» отмечены обязательные для заполнения поля.
Ваше имя:  *
Адрес электронной почты:  
Тема:  *
Сообщение:
 *
Подтверждение:
(не требуется для зарегистрированных пользователей)
 *
 



Copyright © 1999–2023 ГИС ObjectLand
ГИС ObjectLand ® ООО «Радом-АйТи»
Информация о лицензировании
главная | о продукте | скачать | купить | поддержка | новости