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

@AMufu · Регистрация: 05.09.2012

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане,

Помогите придумать способ выбрать из "неправильной" таблицы данные для "правильной".

Что и куда нужно выбрать видно из прилагаемых файлов. Номер сортировки набора значений нужен только для того, чтоб показать что под номером 1 или 2 или 3 всегда будет одинаковый набор значений, которые нужно поместить в одинаковые поля таблицы. Больше чем 3 набора значений не будет.

Я сделал такую выборку используя 3 отдельных запроса и две таблицы. Одна исходная, откуда берутся данные и другая - конечная, куда данные были помещены.
Первый запрос брал набор значений №1 и добавлял в целевую таблицу новые записи а также добавлял в поле SortingFld значение счетчика набора значений №1 в исходной таблице.

SQL

INSERT INTO CutCodesPrepareForImport ( CutCode, SortingFld, MainPull )
SELECT ImportCutCodes.[4], ImportCutCodes.Код, ImportCutCodes.MainPull
FROM ImportCutCodes
WHERE (((ImportCutCodes.[1])="1"))
ORDER BY ImportCutCodes.Код;

Второй запрос обновлял записи в конечной таблице выбирая из исходной таблицы данные набора значений №2. Связь целевой и исходной таблицы осуществлялась по значению счетчика исходной таблицы минус 1 и значению SortingFld целевой таблицы.

SQL

UPDATE ImportCutCodes INNER JOIN CutCodesPrepareForImport ON 
(ImportCutCodes.Код-1)=CutCodesPrepareForImport.SortingFld 
SET CutCodesPrepareForImport.DocNumb = [ImportCutCodes].[2], 
CutCodesPrepareForImport.PosNumb = [ImportCutCodes].[3], 
CutCodesPrepareForImport.GlassNumb = [ImportCutCodes].[4], 
CutCodesPrepareForImport.MainPull = ImportCutCodes.MainPull;

То же самое делал и третий запрос с данными набора значений №3. Связь опять же по значению SortingFld и значению счетчика исходной таблицы, но теперь уже минус 2

SQL

UPDATE ImportCutCodes INNER JOIN CutCodesPrepareForImport ON 
(ImportCutCodes.Код-2)=CutCodesPrepareForImport.SortingFld 
SET CutCodesPrepareForImport.PullNumb = [ImportCutCodes].[3], 
CutCodesPrepareForImport.MainPull = ImportCutCodes.MainPull;

Всё как бы получилось, но мне такой способ не нравится по причине того, что он не безопасный. Если случайно значения счетчиков собются - выборка будет произведена неверно.

Может у вас есть хорошие идеи как это сделать.

Спасибо.

@alvk · 15.01.2019, 03:03

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

Что и куда нужно выбрать видно из прилагаемых файлов.

Файла, вы хотели сказать? Там один Ексель.

@AMufu · 17.01.2019, 18:41 **[ТС]**

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

Файла, вы хотели сказать? Там один Ексель.

Я вставлял еще скрин того же файла ексель, но он почему-то не отображается. Ну да не важно. Я сделал так (как оказалось не так и сложно )))

Visual Basic

  Set DB = CurrentDb
  
  sq = "SELECT ImportCutCodes.MainPull, ImportCutCodes.[1], ImportCutCodes.[2], ImportCutCodes.[3], " & _
        "ImportCutCodes.[4], ImportCutCodes.[5], ImportCutCodes.Код " & _
        "FROM ImportCutCodes ORDER BY ImportCutCodes.Код"
    
  Set RSImp = DB.OpenRecordset(sq, dbOpenSnapshot)
  Set RSTargetTbl = DB.OpenRecordset("CutCodesPrepareForImport", dbOpenDynaset)
 
  Do Until RSImp.EOF
    MsgBox ("RSImp![Код]: " & RSImp![Код])
    
    Select Case RSImp![1]
        Case 1
 
        RSTargetTbl.AddNew
        RSTargetTbl!MainPull = RSImp!MainPull
        RSTargetTbl!CutCode = RSImp![4]
        RSTargetTbl!SortingFld = RSImp![Код]
 
 
        RSImp.MoveNext
 
        Case 2
 
        
        RSTargetTbl!DocNumb = RSImp![2]
        RSTargetTbl!PosNumb = RSImp![3]
        RSTargetTbl!glassNumb = RSImp![4]
 
        RSImp.MoveNext
 
        Case 3
 
        RSTargetTbl!PullNumb = RSImp![3]
        RSTargetTbl.Update
 
        RSImp.MoveNext
    
    End Select
    
  Loop

@alvk 7395 / 4532 / 295 Регистрация: 12.08.2011 Сообщений: 14,016
	15.01.2019, 03:03	2
	Сообщение от AMufu Что и куда нужно выбрать видно из прилагаемых файлов. Файла, вы хотели сказать? Там один Ексель. 0

	17.01.2019, 18:41

Опции темы

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

Решение