Копирование из одной таблицы в другую

← →
LAndreyV © (2004-02-27 12:07) [0]

Есть 2 таблицы с одинаковыми структурами. Надо из первой таблицы скопировать все данные из второй таблицы и далее очистить первую таблицу от всех данных.
Вроде бы просто!? но чёта не получается. Помогите.

← →
SPIRIT © (2004-02-27 12:15) [1]

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

← →
Alex_Bredin © (2004-02-27 12:19) [2]

1.BatchMove(или Insert ..(select * from))
2.Delete* from

← →
LAndreyV © (2004-02-27 12:31) [3]

Query1.SQL.Add("SELECT * from t1");
Query1.Open;
Query2.Active:=false;

For y:=0 to (Query1.RecordCount-1) do
begin
Query2.SQL.Add("INSERT INTO t2 (m1,m2,m3,m4,m5,m6,m7) ");
Query2.SQL.Add("VALUES (Query1.m1,Query1.m2,Query1.m3,Query1.m4,Query1.m5,Query1.m6,Query1.m7)");
Query2.ExecSQL;
Query2.SQL.Clear;
Query1.Next;
end;

Query2.SQL.Clear;
Query2.SQL.Add("SELECT * from t2");
Query2.Open;

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("DELETE from t1");
Query1.ExecSql;
Query1.SQL.Clear;
Query1.SQL.Add("Select * from t1");
Query1.open;

← →
Alex_Bredin © (2004-02-27 12:35) [4]

Query1.m1,Query1.m2,Query1.m3,Query1.m4,Query1.m5,Query1.m6,Query1.m7

а это что?

← →
SPIRIT © (2004-02-27 12:42) [5]

Query1.fieldbyname("m1").value вместо Query1.m1

← →
LAndreyV © (2004-02-27 12:48) [6]

так тоже делал - не идет!

← →
SPIRIT © (2004-02-27 12:50) [7]

ну конечно не пойдет sql же не знает что такое Query1.fieldbyname("m1").value ... для это есть параметры.. задавай параметры и передавай ...

← →
LAndreyV © (2004-02-27 12:51) [8]

а есть попроще метод?
полей на самом деле дофига, и если я в один прекрасный день изменю структуру, то и придется переписывать исходник!

← →
Alex_Bredin © (2004-02-27 12:52) [9]

тебе же написали BatchMove!!

зы кнопка F1 вторая слева сверху

← →
SPIRIT © (2004-02-27 12:52) [10]

проще см. [2]

← →
SPIRIT © (2004-02-27 12:54) [11]

> Alex_Bredin © (27.02.04 12:52) [9]

жалко что секунды добавления мессаджа не показыват

← →
LAndreyV © (2004-02-27 12:56) [12]

так что ли:
Insert Into t2 (Select * from t1);
delete * from t1;

???????????

← →
SPIRIT © (2004-02-27 12:59) [13]

ты хочешь, чтобы мы у себя откампилировали еще ?

я не тупой. действительно не работает.
если ты знаешь, то можешь сказать :"да так" или "нет не так".

я не говорю что ты тупой... просто ты скажи, что кампилятор пишет

Вот точный текст:

Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add("SELECT * from t5");
Query3.Open;
Query2.Close;
Query2.SQl.Clear;
Query2.SQL.Add("Insert Into t4 (Select * from t5)");
Query2.EXECSql;
Query2.SQL.Add("Delete * from t5");
Query2.EXECSql;
Query2.SQL.Clear;
Query2.SQL.Add("Sqlect * from t4");
Query2.open;
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add("SELECT * from t5");
Query3.Open;

Вот, что пишет:

Project ari.exe raiset exception class EDBEngineError with message "Invalid use of keyword.
Token:Select

ну да ладно. спасибо, что хоть немного обратили внимание.
кажись я через F1 все нашел. Если не получиться, то напишу.

ой... вот с перебором правда ...

with query do begin active:=false; sql.Clear; sql.Add("Select name"); sql.add("from table_blok"); active:=true; first; while not eof do begin with query_ekz do begin active:=false; sql.Clear; sql.Add("insert into table_copy (name) values (:d)"); parameters.ParamByName("d").Value:=query.fieldbyname("name").Value; ExecSQL; end; next; end; end; end;

спасибо

Копирование из одной таблицы в другую Найти похожие ветки