|
www.integro.ru ЦСИ ИНТЕГРО
|
Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Leadgen
Зарегистрирован: 24.03.2005 Сообщения: 1
|
Добавлено: Чт 24 Мар 2005 19:07 Заголовок сообщения: Работа с семантическими таблицами ( Delphi7 + MS SQL 2000 ) |
|
|
Нужно внести данные по объекту в таблицу.
Кусочек кода.
procedure SaveData(const theInGEOApp:IIngeoApplication )
var
Obj : IIngeoMapObject;
begin
Obj:=theInGEOApp.ActiveDb.MapObjects.GetObject(theInGEOApp.Selection.IDs[0]);
// тест - семантическая таблица создайте любую состоящую из двух полей, ID и F1
// ID,F1 - поля таблицы тип строка
Obj.SemData.SetValue('тест','ID','0001000005A6',0);
Obj.SemData.SetValue('тест','F1','данные',0);
theInGEOApp.ActiveDb.MapObjects.UpdateChanges;
end;
данные не сохраняются !!! что делать уму не постижимо |
|
Вернуться к началу |
|
|
Михаил Власов
Зарегистрирован: 14.02.2005 Сообщения: 580 Откуда: ИНТЕГРО
|
Добавлено: Чт 24 Мар 2005 22:38 Заголовок сообщения: |
|
|
Объект IIngeoMapObjects - это сеансовый объект (подобие транзакции).
То есть, каждый раз, когда Вы получаете экземпляр ActiveDb.MapObjects, Вы получаете новый изолированый экземпляр.
С этим объектом следует работать следующим образом:
Код: |
procedure SaveData(const theInGEOApp:IIngeoApplication )
var
MapObjects: IIngeoMapObjects;
Obj : IIngeoMapObject;
begin
MapObjects := theInGEOApp.ActiveDb.MapObjects;
Obj:= MapObjects.GetObject(theInGEOApp.Selection.IDs[0]);
Obj.SemData.SetValue('тест','ID','0001000005A6',0);
Obj.SemData.SetValue('тест','F1','данные',0);
MapObjects.UpdateChanges;
end;
|
_________________ С уважением, Михаил Власов. |
|
Вернуться к началу |
|
|
|
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах Вы не можете добавлять приложения в этом форуме Вы можете скачивать файлы в этом форуме
|
|