Início / coding / Perguntas / 79591085
Accepted
Ben
Asked: 2025-04-25 00:26:18 +0800 CST

Existe uma maneira de "normalizar" meus dados como eles estão atualmente?

  • 772

Temos um banco de dados Access que usamos para enviar amostras de teste. Temos 18 métodos diferentes que podemos executar, e cada método normalmente tem um número diferente de execuções de teste associadas a ele (embora isso dependa do remetente). Sendo assim, nosso banco de dados atual permite apenas uma entrada de método por registro, para que o método possa ser facilmente associado às execuções necessárias; o problema com essa abordagem é que qualquer amostra pode exigir qualquer quantidade de métodos, o que, por sua vez, requer mais entradas de registro (com nossa configuração atual).

Tenho pesquisado uma maneira de fazer com que haja múltiplas seleções de métodos por registro. Sei que isso resultaria em dados "desnormalizados", mas é para facilitar a vida do remetente/solicitante. Quero então usar uma consulta ou outro meio para "normalizar" os dados para as equipes de teste (ou seja, separar os registros por método selecionado).

A mesa de apoio que eu criei se parece um pouco com isso (é mais larga):

Back-end

Gostaria que ficasse assim:

MétodoSplit

O código SQL para esta consulta é:

SELECT [Sample SubmissionSingleBatch].AutoID, 
[Sample SubmissionSingleBatch].[Lab Batch ID], 
[Sample SubmissionSingleBatch].[IRIS Batch ID], 
[Sample SubmissionSingleBatch].Requester, 
[Sample SubmissionSingleBatch].Samples, 
GetRunsWanted([Method].[Value],[CFPPLinearRuns],[CFPPRuns],
[CFPP12Runs],[CloudMiniRuns],[CloudRuns],[Conf_CFPPRuns],
[Conf_CloudMiniRuns],[Conf_CloudRuns],[Conf_HFRRRuns],
[Conf_PourMiniRuns],[Conf_PourAutoRuns],[DistRuns],[HFRRRuns],
[PourMiniRuns],[PourAutoRuns],[Pour_MANRuns],[RancimatRuns],
[SFPPRuns]) AS Runs, 
[Sample SubmissionSingleBatch].Method.Value AS Method,
 GetPriorityWanted([Method].[Value],[CFPPLinearPriority],
[CFPPPriority],[CFPP12Priority],[CloudMiniPriority],[CloudPriority],
[Conf_CFPPPriority],[Conf_CloudMiniPriority],[Conf_CloudPriority],
[Conf_HFRRPriority],[Conf_PourMiniPriority],[Conf_PourAutoPriority],
[DistPriority],[HFRRPriority],[PourMiniPriority],[PourAutoPriority],
[Pour_MANPriority],[RancimatPriority],[SFPPPriority]) AS Priority, 
[Sample SubmissionSingleBatch].[Instrument Specific], 
[Sample SubmissionSingleBatch].[Drop-Off date], 
[Sample SubmissionSingleBatch].Comments, 
[Sample SubmissionSingleBatch].[Samples in Class 1 FC?], 
[Sample SubmissionSingleBatch].[Flash Point of sample °C],
 GetReceivedWanted([Method].[Value],[CFPPLinearReceived],
[CFPPReceived],[CFPP12Received],[CloudMiniReceived],[CloudReceived],
[Conf_CFPPReceived],[Conf_CloudMiniReceived],[Conf_CloudReceived],
[Conf_HFRRReceived],[Conf_PourMiniReceived],[Conf_PourAutoReceived],
[DistReceived],[HFRRReceived],[PourMiniReceived],[PourAutoReceived],
[Pour_MANReceived],[RancimatReceived],[SFPPReceived]) AS Received, 
GetStartedWanted([Method].[Value],[CFPPLinearStarted],[CFPPStarted],
[CFPP12Started],[CloudMiniStarted],[CloudStarted],[Conf_CFPPStarted],
[Conf_CloudMiniStarted],[Conf_CloudStarted],[Conf_HFRRStarted],
[Conf_PourMiniStarted],[Conf_PourAutoStarted],[DistStarted],
[HFRRStarted],[PourMiniStarted],[PourAutoStarted],[Pour_MANStarted],
[RancimatStarted],[SFPPStarted]) AS Started,
 GetFinishedWanted([Method].[Value],[CFPPLinearFinished],
[CFPPFinished],[CFPP12Finished],[CloudMiniFinished],[CloudFinished],
[Conf_CFPPFinished],[Conf_CloudMiniFinished],[Conf_CloudFinished],
[Conf_HFRRFinished],[Conf_PourMiniFinished],[Conf_PourAutoFinished],
[DistFinished],[HFRRFinished],[PourMiniFinished],[PourAutoFinished],
[Pour_MANFinished],[RancimatFinished],[SFPPFinished]) AS Finished, 
[Sample SubmissionSingleBatch].[Retain?]
FROM 
[Sample SubmissionSingleBatch];

Esta segunda imagem é exatamente o que eu quero. O problema é que se trata de uma consulta na qual tenho uma função VBA personalizada em execução (código fornecido abaixo) e, nesta saída, os valores das execuções não podem ser editados. Eu precisaria que eles fossem editáveis ​​caso ocorresse um erro de entrada, um valor de execução precisasse ser alterado, etc.

Entendo que posso simplesmente editar os dados na tabela inicial, mas tenho certeza de que é óbvio que a segunda imagem tem uma aparência muito mais amigável.

Existe uma maneira de obter o que preciso ou estou levando o Access além de sua capacidade/limites?

Código da função:

Function GetRunsWanted(MethodValue As String, CFPPLinearRuns As Variant, 
     CFPPRuns As Variant, CFPP12Runs As Variant, CloudMiniRuns As Variant, 
     CloudRuns As Variant, Conf_CFPPRuns As Variant, 
     Conf_CloudMiniRuns As Variant, Conf_CloudRuns As Variant, 
     Conf_HFRRRuns As Variant, Conf_PourMiniRuns As Variant,
     Conf_PourAutoRuns As Variant, DistRuns As Variant, 
     HFRRRuns As Variant, PourMiniRuns As Variant, 
     PourAutoRuns As Variant, Pour_MANRuns As Variant, 
     RancimatRuns As Variant, SFPPRuns As Variant) As Variant
    Select Case MethodValue
        Case "CFPP LINEAR/EN16329"
            GetRunsWanted = CFPPLinearRuns
        Case "CFPP/LQP055"
            GetRunsWanted = CFPPRuns
        Case "CFPP12"
            GetRunsWanted = CFPP12Runs
        Case "CLOUD MINI/ASTM D7689"
            GetRunsWanted = CloudMiniRuns
        Case "CLOUD/ASTM D5771"
            GetRunsWanted = CloudRuns
        Case "Conf_CFPP/LQP055"
            GetRunsWanted = Conf_CFPPRuns
        Case "Conf_CLOUD MINI/ASTM D7689"
            GetRunsWanted = Conf_CloudMiniRuns
        Case "Conf_CLOUD/ASTM D5771"
            GetRunsWanted = Conf_CloudRuns
        Case "Conf_HFRR/ISO12156"
            GetRunsWanted = Conf_HFRRRuns
        Case "Conf_POUR MPP/ASTM D7346"
            GetRunsWanted = Conf_PourMiniRuns
        Case "Conf_POUR_AUTO/ASTM D5950"
            GetRunsWanted = Conf_PourAutoRuns
        Case "DIST_D86"
            GetRunsWanted = DistRuns
        Case "HFRR/ISO12156"
            GetRunsWanted = HFRRRuns
        Case "POUR MPP/ASTM D7346"
            GetRunsWanted = PourMiniRuns
        Case "POUR_AUTO/ASTM D5950"
            GetRunsWanted = PourAutoRuns
        Case "POUR_MAN/ASTM D97"
            GetRunsWanted = Pour_MANRuns
        Case "RANCIMAT/LQP092"
            GetRunsWanted = RancimatRuns
        Case "SFPP"
            GetRunsWanted = SFPPRuns
        Case Else
            GetRunsWanted = Null
    End Select
End Function
sql

1 respostas

  1. Best Answer

    Para normalizar os dados, você precisa de 3 tabelas.

    1. Uma mesa principal, vamos chamá-la assim Test.
    2. Uma Methodtabela de consulta listando todos os métodos possíveis.
    3. Uma Runtabela como tabela de detalhes para Test.
    Table Test
----------
TestId (PK)  -- your AutoID, but with a better name
Lab Batch ID
IRIS Batch ID
Requester
etc. ...

    Table Method
------------
MethodId (PK)
Name

    Table Run
---------
TestId (PK, FK)
MethodId (PK, FK)
Runs

    Você terá estas relações:

    insira a descrição da imagem aqui

    A Runtabela atua como uma tabela de ligação entre Teste Method.

    É uma boa ideia escolher "Exclusão em Cascata de Registros Relacionados" para as relações de tabela entre Teste Run, mas não entre Methode Run. Isso permite a exclusão automática de Execuções ao excluir Testes. Mas provavelmente você não deseja excluir execuções se excluir um método. Geralmente, raramente é uma boa ideia executar exclusões em cascata entre tabelas de consulta e tabelas normais. Tabelas de consulta são tabelas que contêm principalmente dados constantes. Elas são uma espécie de dicionário.

    O resultado esperado pode ser consultado assim:

    SELECT T.*, R.Runs, M.Name
FROM 
  Test AS T
  LEFT JOIN (
    Run AS R
    LEFT JOIN Method AS M
      ON R.MethodId = M.MethodId
  ) ON T.TestId = R.TestId
ORDER BY T.TestId, M.Name;

    Não sei de onde e de onde vêm, Lab Batch IDmas em um banco de dados totalmente normalizado, eles possivelmente exigiriam suas próprias tabelas também.IRIS Batch IDRequester

    • 4

relate perguntas