Home/ Questions/Q 6248655
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-24T13:05:54+00:00

Is there a way to load data (e.g. from XML) to a dataset –

  • 0

Is there a way to load data (e.g. from XML) to a dataset – a temporary memory table/recordset which can be linked (bound) to a form for a preview? I know that .NET has datasets, but how about Access 2007?

It is possible to fill a menu/list control with the data from a XML file, but it would not scale as well as a continuous form would.

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Here is a solution based on this example: Create In-Memory ADO Recordsets
    – remember to add first a reference in Tools > References, find the latest Microsoft ActiveX Data Object

    Public Sub createDataSet(mekeNewSet As Boolean)
'requires reference addedd **Microsoft ActiveX Data Object**

Dim rs As ADODB.Recordset
Dim fld As ADODB.Field

Set rs = New ADODB.Recordset
With rs
    .Fields.Append "EmployeeID", adInteger, , adFldKeyColumn
    .Fields.Append "FirstName", adVarChar, 10, adFldMayBeNull
    .Fields.Append "LastName", adVarChar, 20, adFldMayBeNull
    .Fields.Append "Email", adVarChar, 64, adFldMayBeNull
    .Fields.Append "Include", adInteger, , adFldMayBeNull
    .Fields.Append "Selected", adBoolean, , adFldMayBeNull
    .CursorType = adOpenKeyset
    .CursorLocation = adUseClient
    .LockType = adLockPessimistic
    .Open
End With

With rs
    .AddNew
    .Fields(0) = 777
    .Fields(1) = "John"
    .Fields(2) = "Smith"
    .Fields(3) = "john.smith@something.com"
    .Fields(4) = 1
    .Fields(5) = True
    .Update
End With


Set Me.Recordset = rs

End Sub

    There is also a possibility to create a new Class in VBA and then build a Collection as in this tutorial: Using Custom Collections in Microsoft Access

    For the full solution how to download XML data and enter it into a recordser check here:
    Access VBA – how to download XML file and enter its data into a recordset

    • 0