called by prepareinput

called by prepareinput.vbs

Public Function PrepareEmpty(inputrecords As QueryableRecords, storagemode As StorageModes) As QueryableRecords

   If storagemode = StorageModes.DirectModel Then
      Set inputrecords = ModelRecords.CreateEmpty
   ElseIf Var.Make(storagemode).OneOf(StorageModes.VirtualRecordset, StorageModes.XMLFileStream) Then
      Set inputrecords = AdoRecords.CreateEmpty
   End If
   
   Set PrepareEmpty = inputrecords
   
End Function


Public Function Append(torecords As QueryableRecords, inputheadertype As RecordsHeaderType, inputdata As Var) As QueryableRecords

   Dim inputparsingprocedure As String
   inputparsingprocedure = Str.Join(THISCLASS & ".From", RecordsInputTypeName(RecordsInputType(inputdata))).Show
   
   Dim element As Variant
   For Each element In inputdata.Value
      Set torecords = RunProcedure(inputparsingprocedure, element, inputheadertype, torecords)
   Next

   Set Append = torecords
   
End Function