Замена даты в табл.Paradox

← →
z_olga_al © (2003-02-22 09:31) [0]

Братья по разуму!
Пожалуйста помогите! Есть таблица Paradox, а в ней поле "Date" в формате
принятом в России (**.**.1991); (**.**.1992); Уважаемые мастера,
как составить SQL-запрос или программку, Чтобы программно заменить большое количество
данных соответственно с 1901 на 2001; с 1902 на 2002 ( проблема в том,
что эта таблица создавалась давно и на старой доброй двойке когда еще не существовала проблемма 2000г.)
Ольга.

← →
Романов Р.В. © (2003-02-22 10:20) [1]

Как заменить запросом не знаю. Можно пройти по всем записям и заменить нужные.

// Table1 - TTable привязанное к нужной таблице.
// Код не проверял. Могут быть ошибки.
var
d, d1: TDate;
begin
d := EncodeDate(1920, 1, 1);
with Table1 do
begin
if Active and CanModify then
while not Eof do
begin
d1 := FiedByName("Date").AsDateTime;
if d1 < d then
begin
Edit;
FiedByName("Date").AsDateTime := IncMonth(d1, 12 * 100);
Post;
end;
Next;
end;
end;
end;

← →
Anatoly Podgoretsky © (2003-02-22 10:43) [2]

Она категарически против навигационных методов.

← →
Романов Р.В. © (2003-02-22 10:44) [3]

Забыл написать. Перед началом цикла нужно переместить курсор на первую запись методом First

Спасибо Роман! Все чудненько работает.
Заменила все даты. Но почему-то чтобы заменить
2002 нужно вводить на год больше т.е.2003.
А так все ОК! Еще раз с праздником

Ну раз ты согласилась, то вот тебе РАБОТАЮЩАЯ процедура

// Table1 - TTable привязанное к нужной таблице. // Таблица должна быть открыта и пуска поле называется DateX procedure Form1.Button1Click(Sender: TObject); const MaxYearToConvert = 1930; var d, m, y: Word; begin while not Table1.Eof do begin DecodeDate(Table1DATEX.Value, y, m, d); if (y <= MaxYearToConvert) and (y > 0) then begin Table1.Edit; Table1DATEX.Value := EncodeDate(y+100, m, d); Table1.Post; end; Table1.Next; end; end; end;

Вот эта будет работать без ошибки с годом.

Замена даты в табл.Paradox Найти похожие ветки