Форум программистов [Powered by Invision Power Board]

Код

procedure TfmMain.AddDestFromSouurce();
var
  I: Integer;
  TableList: TStringList;
  FieldList: TStringList;
  Table, Field, IsertString: String;
  j: Integer;
begin
  ADOConnectionSource.Connected := true;
  ADOConnectionDest.Connected := true;
  TableList := TStringList.Create;
  FieldList := TStringList.Create;
  ADOConnectionSource.GetTableNames(TableList, false);
  for I := 0 to TableList.Count - 1 do begin //Цикл по всем таблицам
    Table :=  TableList.Strings[I];
    ADOQuerySource.Close;
    ADOQuerySource.SQL.Clear;
    ADOQuerySource.SQL.Add('SELECT * FROM ' + Table);
    ADOQuerySource.Open;
    ADOQuerySource.First;
    ADOConnectionSource.GetFieldNames(Table, FieldList);
    //Готовим запрос для вставки
    IsertString := 'INSERT INTO ' + Table + '( ';
    //Заполняем поля
    for j := 1 to FieldList.Count - 1 do begin //первое поле не беру там инкремент
      Field := FieldList.Strings[j];
      if j =  FieldList.Count - 1 then
        IsertString := IsertString + Field + ') VALUES ('
      else
        IsertString := IsertString + Field + ','
    end;
    //Заполняем параметры
    for j := 1 to FieldList.Count - 1 do begin //первое поле не беру там инкремент
      Field := FieldList.Strings[j];
      if j =  FieldList.Count - 1 then
        IsertString := IsertString + ':' + Field + ');'
      else
        IsertString := IsertString + ':' + Field + ','
    end;
    ADOQueryDest.Close;
    ADOQueryDest.SQL.Clear;
    ADOQueryDest.SQL.Add(IsertString);

    while not ADOQuerySource.eof do begin //перебераем исходные записи
      //Заполняем параметры знамчениями
      ADOQueryDest.Close;
      for j := 1 to FieldList.Count - 1 do begin //первое поле не беру там инкремент
        Field := FieldList.Strings[j];
        ADOQueryDest.Parameters.ParamByName(Field).Value :=
            ADOQuerySource.FieldByName(Field).Value;
      end;
      try
        ADOQueryDest.ExecSQL;
      except
      end;
      ADOQuerySource.next;
    end;
  end;
  TableList.Free;
  FieldList.Free;
  ADOConnectionSource.Connected := false;
  ADOConnectionDest.Connected := false;
end;