Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как правильно организовать вставку записей [Access]

Kley © (2010-03-26 12:40:00)
Здравствуйте! Хочу вставить записи из одной таблицы в другую следующим образом:
for I:=1 to dm.Razd2Query.RecordCount-1 do
begin

dm.Razd5VidPQuery.Append;
dm.Razd5VidPQuery.Edit;
dm.Razd5VidPQueryData.AsDateTime:=dm.Razd2QueryHomeDate.AsDateTime;
dm.Razd5VidPQueryDateUp.AsDateTime:=dm.Razd2QueryHomeDate.AsDateTime;
if dm.Razd2QueryendDate.AsString'' then
dm.Razd5VidPQueryDateEnd.AsDateTime:=dm.Razd2QueryendDate.AsDateTime;
if dm.Razd2QueryendDate.AsString='' then
dm.Razd5VidPQueryDateEnd.AsString:='';
dm.Razd5VidPQuerySumma.AsFloat:=dm.Razd2QueryRazmPosob.AsFloat;
dm.Razd5VidPQueryNomdoc.AsString:='Ó/Ñ';
if dm.Razd1QuerySposobVipl.AsInteger=1 then
begin
dm.Razd5VidPQueryNom.AsString:='Ï/î';
end;
if dm.Razd1QuerySposobVipl.AsInteger=2 then
begin
dm.Razd5VidPQueryNom.AsString:='Ñ/á';
end;
dm.Razd5VidPQuery.Post;

Application.ProcessMessages;
dm.Razd2Query.Next;

end;
подскажите чайнику плиз что здесь не правильно?

Правильный$Вася (2010-03-28 01:04:00) [1]

> adigozelov © (27.03.10 22:17) [4]

ничем не лучше
мало того, это и так компилятор за тебя сделает, т.к. предел цикла for вычисляется заранее, до начала исполнения

adigozelov (2010-03-27 22:18:00) [2]
Удалено модератором

adigozelov (2010-03-27 22:17:00) [3]
dlya
for I:=1 to dm.Razd2Query.RecordCount-1 do

begin
...
....

end

napishi

var
c:longint
...
begin
...
c:=dm.Razd2Query.RecordCount-1;

for I:=1 to c do

begin
...
....

end;

MsGuns (2010-03-26 15:42:00) [4]
Пытался читать код - аж зубы заболели

Sergey13 (2010-03-26 14:06:00) [5]
> [0] Kley (26.03.10 12:40)
> подскажите чайнику плиз что здесь не правильно?

> for I:=1 to dm.Razd2Query.RecordCount-1 do

Не надо привыкать к плохому, надо к хорошему
while not dataset.eof do

> dm.Razd5VidPQuery.Append;
> dm.Razd5VidPQuery.Edit;

Вторая строка бессмысленна

Проще и правильнее сделать то-же самое одним запросом.
select ... into

Правильный$Вася (2010-03-26 12:48:00) [6]
AppendRecord

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »