| Обсуждение |
| |  Delpi, изменение данных в таблицах [ Алексей Огурцов ]Понедельник, 8 февраля 2010, 11:18
| Есть таблица "MDKK System Table", в ней есть столбец "ONT", в котором все значения "607" нужно заменить на "602". Попытки решить задачу путем импорта/экспорта не помогли. Как в Delphi добраться до этих данных и изменить? |
|
| | [ Алексей Огурцов ] Вторник, 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; |
|
| | [ ObjectLand Support ] Вторник, 9 февраля 2010, 12:12
| На первый взгляд код правильный. Вы пробовали запускать? Работает? |
|
| | [ Алексей Огурцов ] Четверг, 11 февраля 2010, 20:18
| Ну конечно же пробовал, иначе и не выложил бы. Все прекрасно работает. |
|
ОтветитьЗнаком «*» отмечены обязательные для заполнения поля. |
| |
