Помогите с запросом

[BARNEY]

СУБД firebird 2.1

выбераю в одной базе запросом

select * from table

нужно встать эти данные в другую базу

Всё выбранное...

щас перегоняю по 1 записей через цикл...но это долго...

как вставить выбранные записи 1 запросом, в другую базу?

[Stilet]

Пробуй так:

INSERT INTO table2
SELECT table.*
FROM table;

[BARNEY]

в другую базу ....

а не таблицу

[soleil@mmc]

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

как вставить выбранные записи 1 запросом, в другую базу?

обе базы локальные?
1) отключить все триггеры на целевой таблице
2) отключить любое отображение переноса данных в интерфейсе проги (это если ты на морде показываешь грид с выбранными строками и по мере вставки записей его листаешь)
3) написать модуль экспорта/импорта через промежуточный файл любого приемлемого формата от .db/.dbf до родного ФИБ-овского

З.Ы.: использование всех пунктов как вместе, так и по отдельности

[BARNEY]

1) нету их
2) всё в отдельном потоке... на морде только условие except
3) из файла дольше...ибо чтение запись с винта.

660 000 записей в низ и 31 поле в ширину

11 минут... долго

[BARNEY]

базы пробовал и локальные и через сеть...

через сеть нагрузка на сеть 5% от 100 мегабит

Скорости это не добавило.... Сервак Ксеон 8 ядерный , 4 гига оперативки... Не ужели придел достигнут?

[soleil@mmc]

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

щас перегоняю по 1 записей через цикл...но это долго...

какие компоненты?
код в студию

[BARNEY]

Quick - IBSQL
IBQ - ну это понятно

while (not drfiski.Quick.Eof) do
  begin
       sql:='';
       for i := 0 to 27 do
        begin
          s:=drfiski.Quick.Fields[i].AsString;
          if i=25 then  sql := sql +''''+s+''''+','+''+drfiski.edit1.Text+''+',1'
          else
          if i=27 then sql := sql +''''+s+''''+',0'
          else
          sql:=sql+''''+s+'''';

          if (i <> 27) then sql := sql + ',';
        end;
     try
     ProgrammMain.IBQ.SQL.Text:='insert into polis values ('+sql+')';
     ProgrammMain.IBQ.ExecQuery;
     except
     drfiski.memo1.Lines.Add(ProgrammMain.IBQ.SQL.Text);
     end;
     ii:=ii+1;
    drfiski.Quick.Next;
    Synchronize(progress);
    Application.ProcessMessages;

Добавил .... а то прогресс не видно...скорость не поменялась

procedure MyPotok.progress;
begin
drfiski.Label2.Caption:=IntToStr(ii);
drfiski.Gauge1.Progress:=ii;
end;

[soleil@mmc]

подумай и согласись, что это изврат чистой воды

for i := 0 to 27 do
        begin
          s:=drfiski.Quick.Fields[i].AsString;
          if i=25 then  sql := sql +''''+s+''''+','+''+drfiski.edit1.Text+''+',1'
          else
          if i=27 then sql := sql +''''+s+''''+',0'
          else
          sql:=sql+''''+s+'''';

          if (i <> 27) then sql := sql + ',';
        end;

(это был первый тормоз)
второй тормоз - сервак каждый твой запрос парсит
а нужно его (запрос) параметризовать

отсюда все твои тормоза
предлагаю переписать исходный запрос так чтобы все твои подмены уже были учтены в нем - т.е. передавай туда параметром это drfiski.edit1.Text и потом в цикле будешь делать только подстановку параметров из полей
поправить результирующий запрос чтобы ввести параметризацию по типу

 ProgrammMain.IBQ.SQL.Text:='insert into polis values (:p0, :p1, ...., :p31)';
  ProgrammMain.IBQ.ParamByName('p0').Value:=drfiski.Quick.FieldByName('f0').Value;
.....
  ProgrammMain.IBQ.ParamByName('p31').Value:=drfiski.Quick.FieldByName('f31').Value;

[BARNEY]

сделал ещё прямее

 try
     ProgrammMain.IBQ.SQL.Text:='insert into polis values ('''+drfiski.Quick.Fields[0].AsString+''''
     +','''+drfiski.Quick.Fields[1].AsString+''','''+drfiski.Quick.Fields[2].AsString+''','''+drfiski.Quick.Fields[3].AsString+''''
     +','''+drfiski.Quick.Fields[4].AsString+''','''+drfiski.Quick.Fields[5].AsString+''','''+drfiski.Quick.Fields[6].AsString+''''
     +','''+drfiski.Quick.Fields[7].AsString+''','''+drfiski.Quick.Fields[8].AsString+''','''+drfiski.Quick.Fields[9].AsString+''''
     +','''+drfiski.Quick.Fields[10].AsString+''','''+drfiski.Quick.Fields[11].AsString+''','''+drfiski.Quick.Fields[12].AsString+''''
     +','''+drfiski.Quick.Fields[13].AsString+''','''+drfiski.Quick.Fields[14].AsString+''','''+drfiski.Quick.Fields[15].AsString+''''
     +','''+drfiski.Quick.Fields[16].AsString+''','''+drfiski.Quick.Fields[17].AsString+''','''+drfiski.Quick.Fields[18].AsString+''''
     +','''+drfiski.Quick.Fields[19].AsString+''','''+drfiski.Quick.Fields[20].AsString+''','''+drfiski.Quick.Fields[21].AsString+''''
     +','''+drfiski.Quick.Fields[22].AsString+''','''+drfiski.Quick.Fields[23].AsString+''','''+drfiski.Quick.Fields[24].AsString+''''
     +','''+drfiski.Quick.Fields[25].AsString+''','''+drfiski.edit1.Text+''',1,'''+drfiski.Quick.Fields[26].AsString+''''
     +','''+drfiski.Quick.Fields[27].AsString+''',0)';
     ProgrammMain.IBQ.ExecQuery;
     except
     drfiski.memo1.Lines.Add(ProgrammMain.IBQ.SQL.Text);
     end;

     ii:=ii+1;
    drfiski.Quick.Next;
    Synchronize(progress);
    Application.ProcessMessages;

скорость + 20 записей... в сек... не того что я ожидал в скорости