Запись в таблицу

[aleksskay]

Вот такой код у меня написано и я хочу из данный
quSelValue типа TQuery значения записать в другой столбец данной
таблицы с помощью Insert. Хочу написать во все записи поля. Как это сделать?

with quSelValue do begin
    sql.Clear;
    sql.Add(' Select  Оценка  from ' +
     taClass.TableName);
    Open;

[Stilet]

Скорее всего:

with quSelValue do begin
    sql.Clear;
    sql.Add('insert (Нужноеполе) Select  Оценка  from ' +  taClass.TableName);
    ExecSQL;
...

Толко учти: Select Оценка from без where вернет тебе всю таблицу, т.е. кучу оценок. И так она и вставится кучей. Если нужно одну какую-то оценку то ставь WHERE для этого селекта.

[aleksskay]

with quSelValue do begin
    sql.Clear;
    sql.Add('insert (Нужноеполе) Select  Оценка  from ' +  taClass.TableName);
    ExecSQL;
...

Этот запрос будет сразу выбирать значения из поле оценка и потом записывать в (Нужноеполе) ?

[xxbesoxx]

и потом записывать в (Нужноеполе) ?

Но если нужно , можно так

1.

create database DB_Test;

2.

create table tab1
(
id int identity(1,1) primary key,
Предмет varchar(30) ,
Оценка integer
)

3.

create table tab2
(
id int identity(1,1) primary key,
Предмет varchar(30) ,
Оценка integer
)

4.

insert into tab1(Предмет, Оценка)
values('Математика',5),
      ('Физика',3),
      ('Русский Язык',3);

5. Из делфи копируем все запись из Tab1 на Tab2

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  oldcur : TCursor;
begin
    oldcur := Screen.Cursor;
    Screen.Cursor := crHourGlass;
   for I :=0 to qryTab1.RecordCount-1 do
   begin
     qryTab2.Insert;
     qryTab2.FieldByName('Предмет').AsString := qryTab1.FieldByName('Оценка').AsString;
     qryTab2.FieldByName('Предмет').AsString := qryTab1.FieldByName('Оценка').AsString;
     qryTab1.Next;
     qryTab2.Post;
   end;
    screen.Cursor := oldcur;
end;


end.

Понятно ?