Перемещение ОДНОЙ записи из одной таблицы в другую

[Vongud]

Не правда, нет проблем для обновления другой Query сделать.

можно и над этим покумекать. никогда об этом не думал. в связи с этим несколько вопросов:
1) квери разместить на форме или на датамодуле или не важно? (как удобней)?
2) после переключения таблицы на Tchmp опять ту же операцию проводить?
3) почему халтурка?
P.S. у меня же явно источник данных не указан, он меняется при работе приложения по переключению радиобаттонов.

[evg_m]

1) кому удобней нам или тебе?
2) какая операция? если операция нужна по логике программы, то безусловно.

А теперь выскажу мысль которая сведет на нет ВСЕ предыдущее обсуждение.

ЕСЛИ у нас есть ДВЕ таблицы имеющие одинаковую структуру и требующее перемещения данных из одной в другую, то это по сути ОДНА таблица с дополнительным флагом (или атрибутом) tp позволяющим фильтровать данные.
0 - это помощник машиниста / 1 = машинист.
В этом случае не нужно и никаких переключений НД, а только смена параметра запроса(через тот же Radobutton).
WHERE tp=:tp
tp=0 --помощники | tp=1 машинисты
а перемещение

insert ... 
select .. from where tn=..

заменяется на

update ... set tp=0|1 
where ...

А учитывая упоминание (TN табельный номер) и упоминания о занимаемых должностях, можно утверждать необходимость ДВУХ (и даже ТРЕХ) совершенно других таблиц.

[Vongud]

то это по сути ОДНА таблица

но ведь физически (в Access) это две таблицы. хоть и с одинаковыми полями.
Я вот не понимаю: для удаления достаточно написать Delete в запросе и удаляется та строка, где установлен курсор. почему же так не делается при переносе то? почему переносятся все?

[evg_m]

для удаления достаточно написать Delete в запросе и удаляется та строка, где установлен курсор

Если написать в запросе

ADOQuery.SQLText('Delete From Table')

то будут удалены ВСЕ записи.
А если ПРИМЕИНИТЬ (использовать) DataSet операцию.

ADOQuery.Delete;

то будет удалена текущая.
Тоже можно и для перемещения.

ADOquery.Insert; +F1 ( ===смотри в справке!!!)

НО ВСЕ поля ручками, ручками...
ДА и второй НД тоже нужен.

но ведь физически (в Access) это две таблицы.

Именно, что две. Хотя Достаточно ОДНОЙ.

[Vongud]

Если написать в запросе
Код:

ADOQuery.SQLText('Delete From Table')

то будут удалены ВСЕ записи.
А если ПРИМЕИНИТЬ (использовать) DataSet операцию.
Код:

ADOQuery.Delete;

то будет удалена текущая.

Вот спасибо, разъяснили.
А можете вот эту конструкцию

ADOquery.Insert;

хоть не всю, а чем начинается и заканчивается (пример) моего случая описать, пожалуйста?

Именно, что две. Хотя Достаточно ОДНОЙ.

ну как ОДНОЙ, если в них хранятся данные о разных специальностях?
вот скрин одной формы (там потом одну таблицу на другую надвину).

[evg_m]

хоть не всю, а чем начинается и заканчивается (пример) моего случая описать, пожалуйста?

А посмотреть самому

ADOquery.Insert; +F1 ( ===смотри в справке!!!)

1.JPG

ну как ОДНОЙ, если в них хранятся данные о разных специальностях?

то это по сути ОДНА таблица с дополнительным флагом (или атрибутом) tp позволяющим фильтровать данные.
0 - это помощник машиниста / 1 = машинист.

Разговор долгий, просто почитайте про нормальные формы.

[Vongud]

просто почитайте про нормальные формы

да читал я при них-5 штук, достаточно четырёх. Мне бы чтоб программа работала, а это всё дела не мои)
Буду листать справку

[Vongud]

Спасибо, всё сделал, Всё получилось)

begin
if RBTchm.Checked = true then
begin
try
DM1.ADOQueryTchmp.Edit;
DM1.ADOQueryTchmp.Insert;
DM1.ADOQueryTchmp.FieldByName('TN') .AsInteger:=DM1.ADOQueryTchm.FieldV alues['TN'];
DM1.ADOQueryTchmp.FieldByName('Name 1').AsString:=DM1.ADOQueryTchm.Fiel dValues['Name1'];
DM1.ADOQueryTchmp.FieldByName('Name 2').AsString:=DM1.ADOQueryTchm.Fiel dValues['Name2'];
DM1.ADOQueryTchmp.FieldByName('Name 3').AsString:=DM1.ADOQueryTchm.Fiel dValues['Name3'];
DM1.ADOQueryTchmp.FieldByName('KolN ').AsInteger:=DM1.ADOQueryTchm.Fiel dValues['KolN'];
DM1.ADOQueryTchmp.FieldByName('Staz S').AsDateTime:=DM1.ADOQueryTchm.Fi eldValues['StazS'];
DM1.ADOQueryTchmp.FieldByName('Klas s').AsInteger:=DM1.ADOQueryTchm.Fie ldValues['Klass'];
DM1.ADOQueryTchmp.FieldByName('Ucha stok').AsString:=DM1.ADOQueryTchm.F ieldValues['Uchastok'];
DM1.ADOQueryTchmp.FieldByName('Talo n').AsString:=DM1.ADOQueryTchm.Fiel dValues['Talon'];
DM1.ADOQueryTchmp.FieldByName('Phon e').AsString:=DM1.ADOQueryTchm.Fiel dValues['Phone'];
DM1.ADOQueryTchmp.FieldByName('Addr ess').AsString:=DM1.ADOQueryTchm.Fi eldValues['Address'];
DM1.ADOQueryTchmp.Post;
DM1.ADOQueryTchm.Delete;
DM1.ADOQueryTchmp.Refresh;
except on e:Exception do
end;
end;

Только вот ещё проблемка такая возникла:
при перемещении записи почему-то требует, чтобы все поля были заполнены (не пустые). хотя в бд access у меня все поля необязательные. что посоветуете?
Там, где пустые поля пишет, что невозможно преобразовать Null в Integer или String

[evg_m]

что невозможно преобразовать Null в Integer или String

Это означает что TField.AsString (AsInteger) не понимает как можно Value ===NULL превратить в string (integer). НО НЕ Access!!!!

что посоветуете?

поискать другие свойства TField +F1 +properties or Methods.
TFields +F1