 |
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;
|
_________________
С уважением, Михаил Власов. |
|
| Вернуться к началу |
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете добавлять приложения в этом форуме
Вы можете скачивать файлы в этом форуме
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
