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

[KuH]

Помогите, а то я уже третий день голову ломаю. Некоторые данные из одной таблицы должны выгружаться в файл(работает). Потом данные из этого файла должны загрузиться в другую БД. Но при выполнении циклического считывания из файла и записи в таблицу выскакивает такая ошибка:
"ORA-00936:missing expression". вот код:

procedure TForm2.btnUploadClick(Sender: TObject);
var
cur_item1,cur_item2: string;
begin
ADOQueryRead.LoadFromFile('c:\asd.t xt');
ADOQueryWrite.LoadFromFile('c:\asd. txt');
ADOQueryRead.First;
ADOQueryWrite.First;
ADOQueryWrite.SQL.Add('DELETE from IDS');
ADOQueryWrite.ExecSQL;
ADOQueryWrite.SQL.Clear;

while (ADOQueryRead.eof=false) do
begin
cur_item1:=ADOQueryRead.FieldValues['C_PERS_NUM'];
cur_item2:=ADOQueryRead.FieldValues['C_DOC_STATUS'];
ADOQueryWrite.SQL.Add('INSERT INTO IDS VALUES ('+cur_item1+','+cur_item2+')');
ADOQueryWrite.ExecSQL;
ADOQueryWrite.SQL.Clear;
ADOQueryRead.next;
end;

end;

Заранее очень благодарен.

[KuH]

Хорошо, переформулирую вопрос: каким образом мне скопировать данные одной таблицы в другую?

[Pitbull]

insert into Table1 select * from table2
если одинаковая структура....

[KuH]

Неа, они у меня в разных базах. Мне надо из одной базы перекинуть инфу в другую. Я использую Оракл 10( который бесплатный). Когда запрос INSERT выполняеться один раз - все нормально, а когда много раз в цикле - компилятор выдает ошибку - ---------------------------
Debugger Exception Notification
---------------------------
Project UpdateDB.exe raised exception class EOleException with message 'ORA-00933: SQL command not properly ended'.
---------------------------


Текущий код проги:

unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQueryWrite: TADOQuery;
btnLoadDB: TButton;
procedure btnLoadDBClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnLoadDBClick(Sender: TObject);
var
read_string, cur_item1, cur_item2: string;
I: Integer;
begin
assignfile(Input, 'c:\asd2.txt');
reset(input);
AdoQueryWrite.sql.clear;
ADOQueryWrite.SQL.add('DELETE FROM IDS');
ADOQueryWrite.ExecSQL;
AdoQueryWrite.sql.clear;
while eof(input)=false do
begin
Readln(input, cur_item1);
ReadLn(input, cur_item2);
if cur_item1='###' then
begin
break;
end
else
begin
ADOQueryWrite.SQL.Add('INSERT INTO IDS VALUES ('+cur_item1+', '+cur_item2+')');
end;
end;
ADOQueryWrite.ExecSQL;
closefile(input);
end;
end.

[А. Долматов]

Мне кажется, что просто таблица находится в состоянии записи и запрос является не законченым поэтому. Надо после каждой вставки в таблицу её закрывать.

[KuH]

Закрывать соединение?

[А. Долматов]

Нет. Таблицу.

[KuH]

Все, Всем спасибо - проблема решена. Оказались не совместимые поля у таблиц.