Hi Experts!
After working so hard to make sure this VBA/Json works now I seam to be very close to sorting it out, the code below works okay but I just need to know how to add a collection to the current dictionary so that the arrays also shows up:
Code:
Option Compare Database
Option Explicit
Private Sub Command0_Click()
Dim foo As New Dictionary
Set foo = New Dictionary
Dim hoo As New Collection
With foo
.Add "Customer Name", Me.txtchris 'No key. This item can only be retrieved by index.
.Add "Address", Me.txtAddress 'Key given. Can be retrieved by key or index.
End With
Dim member As Variant
For Each member In foo
Next
MsgBox JsonConverter.ConvertToJson(foo, Whitespace:=3), vbOKOnly, "Audited by Chris Hankwembo"
End Sub
Requirements
(1) How to add the collection to "FOO" dictionary so that the data in "HOO" collection comes in as a second layer and inclosed like [{ ]}