06.05.2015, 14:58
|
Прохожий
|
|
Регистрация: 05.05.2015
Сообщения: 26
Версия Delphi: Delphi XE7
Репутация: 10
|
|
Код:
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;
|