[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.
Проблема в том, что он переносит ВСЕ записи из одной таблицы в другую! А как сделать, чтобы переносилась только та, на которой установлен курсор (которая выделена)? И только одна.

[Vongud]

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

[Alegun]

Есть конструкция select top 1 *, но может и не подойти

[Vongud]

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

Есть конструкция select top 1 *, но может и не подойти

Неа, ошибка синтаксиса

[Alegun]

У меня так отображается первая запись из запрашиваемого диапазона выборки - как понял, звёздочку уберите раз вы все поля явно указываете

[Страдалецъ]

Тут звездочку нельзя использовать, так попробуйте:

Код:

SELECT top 1 TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address

А что, у вас главного ключа в Tchm вообще нет? Это зря, акцесс очень непредсказуем, если не задан главный ключ.

[Vongud]

Так копируется, но из трёх записей почему-то только вторая, независимо от того, где находится курсор в дбгриде.

А что, у вас главного ключа в Tchm вообще нет? Это зря, акцесс очень непредсказуем, если не задан главный ключ.

Конечно есть-поле TN числовое

[Alegun]

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

Так копируется, но из трёх записей почему-то только вторая, независимо от того, где находится курсор в дбгриде...

Да не связан запрос с курсором в дбгриде ну ни как, но если нужна именно такая связка, то можно попробовать добавить запись в таблицу со значениями полей как у текущей от источника, примерно так

Код:

 DM1.ADOQueryTchm.SQL.Add('INSERT INTO Tchmp (TN, Name1, Name2, Name3, KolN, StazS, Klass, Uchastok, Talon, JoinTN, Phone, Address)');
 DM1.ADOQueryTchm.SQL.Add('VALUES ('        +
          // Пример для числового поля
           ADOTable.FieldValues['TN']       + ', ''' +
           // а 'кавычки' ('' = ') для текстовых полей
           ADOTable.FieldValues['Name1']    + ''', ''' +
           ADOTable.FieldValues['Name2']    + ''', ''' +
           ADOTable.FieldValues['Name3']    + ''', ''' +
           ADOTable.FieldValues['KolN']     + ''', ''' +
           ADOTable.FieldValues['StazS']    + ''', ''' +
           ADOTable.FieldValues['Klass']    + ''', ''' +
           ADOTable.FieldValues['Uchastok'] + ''', ''' +
           ADOTable.FieldValues['Talon']    + ''', ''' +
           ADOTable.FieldValues['JoinTN']   + ''', ''' +
           ADOTable.FieldValues['Phone']    + ''', ''' +
           ADOTable.FieldValues['Address']  + ''')');

где ADOTable - это поставщик для дибигридовского DataSource

З.Ы. Может есть вариант и попроще, но я такого в справочнике по SQL так и не нашёл

[gewasop]

Код:

var
  tmpid: string; //Временная переменная
begin
  tmpid := DM1.ADOTable.FieldsByName('TN').AsString;  //Получение ID выбранного поля(Расчет на то, что TN ключевое уникальное поле)
  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 WHERE TN=' + Trim(tmpid)); //Добавление условия к SQL-запросу
end;