Jso n.. (VBA Access)

[arian29]

Can check the code.. its not working

Sub doParse()
Dim valKey
Dim keyName
Dim TKeyName
Dim UKey
Dim Keys() As String
Dim lCtr As Long
Dim r As Long
Dim KeyCtr As Long
Dim JsonObject As Object
Dim JSonString As String
Call InitScriptEngine

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from Account where CHID=4307577")

Do Until rs.EOF

Set JsonObject = DecodeJsonString(rs("DueDilResponse"))
Keys = GetKeys(JsonObject)

rs.Edit
For lCtr = LBound(Keys) To UBound(Keys)
keyName = Keys(lCtr)
Debug.Print keyName
valKey = GetProperty(JsonObject, keyName)

For a = 0 To rs.Fields.Count - 1
If rs.Fields(a).Name = keyName Then
rs(a) = valKey
Debug.Print rs.Fields(a).Name & "Found"
End If
Next
Next

rs.Update
rs.MoveNext
Loop
End Sub

 

[xenou]

Hi,
You are not using native VBA objects so no way to debug from the information provided. Often the best advice is to step through your code.
See <a href="http://krgreenlee.blogspot.com/2006/04/programming-excel-vba-debugging-for.html">Step through your code</a> for debugging tips.

ξ