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

[Vongud]

Есть такой код:

      DM1.ADOQueryTchm.SQL.Add('INSERT INTO Tchmp (TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address)');
      DM1.ADOQueryTchm.SQL.Add('SELECT TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address');
      DM1.ADOQueryTchm.SQL.Add('FROM Tchm');

Delphi+Access.
Проблема в том, что он переносит ВСЕ записи из одной таблицы в другую! А как сделать, чтобы переносилась только та, на которой установлен курсор (которая выделена)? И только одна.

[lomastr_]

WHERE + F1

[Vongud]

Сообщение от lomastr_

WHERE + F1

Я, конечно, догадываюсь, что там должен быть WHERE. Но почему именно F1? И да, так не работает.
P.S. Я записал после "FROM Tchm"

Кстати, и перед фромом тоже не пашет

Например: WHERE &, где & - это название курсора

[Stilet]

  DM1.ADOQueryTchm.SQL.Add('INSERT INTO Tchmp (TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address)');
      DM1.ADOQueryTchm.SQL.Add('SELECT TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address');
      DM1.ADOQueryTchm.SQL.Add('FROM Tchm');
      DM1.ADOQueryTchm.SQL.Add('Where ключевое поле=:p');
 DM1.ADOQueryTchm.ParamByName('p').Value=<Тут значение из грида, из поля на записи где стоит курсор :)>

[Vongud]

Сообщение от Stilet

  DM1.ADOQueryTchm.SQL.Add('INSERT INTO Tchmp (TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address)');
      DM1.ADOQueryTchm.SQL.Add('SELECT TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address');
      DM1.ADOQueryTchm.SQL.Add('FROM Tchm');
      DM1.ADOQueryTchm.SQL.Add('Where ключевое поле=:p');
 DM1.ADOQueryTchm.ParamByName('p').Value=<Тут значение из грида, из поля на записи где стоит курсор :)>

Ну это программно получается. А когда пользователь выделит другую запись в гриде? Не будешь же переписывать.
Вернее потом из приложения ничего не изменить будет.

Как вообще можно курсор обозвать?

[evg_m]

<Тут значение из грида, из поля на записи где стоит курсор

DBGrid.Datasource.DataSet.FieldByName(<тут имя поля по которому МЫ можем идентифицировать запись>).Value;

[Vongud]

Сообщение от evg_m

DBGrid.Datasource.DataSet.FieldByName(<тут имя поля по которому МЫ можем идентифицировать запись>).Value;

Так не прокатывает... А через SQL то никак не сделать?
Ошибка-несовместимость типов TDBEdit и String, а с кавычками одинарными поле не найдено...

[Аватар]

Так не прокатывает... А через SQL то никак не сделать?

А про что распинаются здесь? Покажи код формирования запроса и присвоения значения параметру. Как параметр в запрос подставляешь используя #4 и #6. Какой тип у ключевого поля?

[Vongud]

Мне нужно из таблицы Tchm перенести запись, которая выделена в дбгриде в таблицу Tchmp. Тем кодом, что сверху привёл, копируются (но это не важно, потом удалять скопированные буду) все записи таблицы Tchm. А надо по одной. Тип у ключевого поля числовой, TN называется (табельный номер). Вот весь код процедуры:

procedure TFEditTchmi.RedirectClick(Sender: TObject); //Переопределить должность
begin
  if RBTchm.Checked = true then
    begin
      DM1.ADOQueryTchm.Active := false;
      DM1.ADOQueryTchm.SQL.Clear;
      DM1.ADOQueryTchm.SQL.Add('INSERT INTO Tchmp (TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address)');
      DM1.ADOQueryTchm.SQL.Add('SELECT TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address');
      DM1.ADOQueryTchm.SQL.Add('FROM Tchm');
      DM1.ADOQueryTchm.ExecSQL;
      DM1.ADOQueryTchm.SQL.Text := 'SELECT TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address FROM Tchm ORDER BY Name1';
      DM1.ADOQueryTchm.Active := true;
    end;
end;

P.S. RBTchm-это радиобаттон, на него можно не обращать внимания.

[Stilet]

Так не прокатывает...

Фейспалъм...

procedure TFEditTchmi.RedirectClick(Sender: TObject); //Переопределить должность
begin
  if RBTchm.Checked = true then
    begin
      DM1.ADOQueryTchm.Active := false;
      DM1.ADOQueryTchm.SQL.Clear;
      DM1.ADOQueryTchm.SQL.Add('INSERT INTO Tchmp (TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address)');
      DM1.ADOQueryTchm.SQL.Add('SELECT TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address');
      DM1.ADOQueryTchm.SQL.Add('FROM Tchm');
      DM1.ADOQueryTchm.SQL.Add('TN=:p');
 DM1.ADOQueryTchm.ParamByName('p').Value=DBGrid.Datasource.DataSet.FieldByName('TN').Value

      DM1.ADOQueryTchm.ExecSQL;
      DM1.ADOQueryTchm.SQL.Text := 'SELECT TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address FROM Tchm ORDER BY Name1';
      DM1.ADOQueryTchm.Active := true;
    end;
end;

Если и это не поможет, то я пас.