json to ms access table code example

Example: json to ms access table

'example form stackoverflow
'https://stackoverflow.com/questions/59301919/iteration-from-json-format-data-to-ms-access-table

Private Sub StoreData(ADataObject As Object)
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim item As Object
  Set db = CurrentDb
  Set rs = db.OpenRecordset("tblEfdReceipts")
  For Each item In ADataObject
    rs.AddNew
            rs![TAX] = item("TAX")
            rs![TaxpayerName] = item("TaxpayerName")
            rs![Address] = item("Address")
            rs![DateTime] = item("DateTime")
            rs![TerminalID] = item("TerminalID")
            rs![InvoiceCode] = item("InvoiceCode")
            rs![InvoiceNumber] = item("InvoiceCode")
            rs![SpecialCode] = item("SpecialCode")
            rs![TelephoneNumber] = item("TelephoneNumber")
            rs![Operator] = item("Operator")
            rs![Taxlabel] = item("TaxItems")("TaxLabel")
            rs![CategoryName] = item("TaxItems")("CategoryName")
            rs![Rate] = item("TaxItems")("Rate")
            rs![TaxAmount] = item("TaxItems")("TaxAmount")
            rs![VerificationUrl] = item("TaxItems")("VerificationUrl")
            rs.Update
  Next item
  rs.Close
  Set rs = Nothing
  Set db = Nothing

Tags:

Misc Example