iOS Question Convert JSON

[BensonHung]

Hello everybody,
I have a question!!

Dim a As Map
ResultSet1 = SQL1.ExecQuery("SELECT * FROM LOG")
    Do While ResultSet1.NextRow
    a.Put("ScoreLogID",ResultSet1.GetInt("LogID"))
    a.Put("QuestionItem",ResultSet1.GetInt("QuestionItem"))
Loop
ResultSet1.Close
Dim jssonp As JSONGenerator
jssonp.Initialize(a)
sname=jssonp.ToString
Log(sname)

log the result is
"{"LogID":1,"QuestionItem":4}"

If I have more information on how to produce a pen?
[{"LogID":1,"QuestionItem":1},{"LogID":2,"QuestionItem":2}]

What can I do??
Thanks everybody!!

 

[narek adonts]

Make a list with maps

 

[BensonHung]

thanks narek adonts,
I try, but the result of the error
It result me ,
5 5 5 5 5
but in DB it have 5 items.
What can I do??
thank you!!

Dim a As Map
Dim alist As List
a.Initialize
alist.Initialize

ResultSet1 = SQL1.ExecQuery("SELECT * FROM LOG")
    Do While ResultSet1.NextRow
    a.Put("ScoreLogID",ResultSet1.GetInt("LogID"))
    a.Put("QuestionItem",ResultSet1.GetInt("QuestionItem"))
    alist.Add(a)
Loop
ResultSet1.Close
Dim jssonp As JSONGenerator
jssonp.Initialize(a)
sname=jssonp.ToString
Log(sname)

Dim ListMap As Map
For i = 0 To alist.Size - 1
    ListMap = alist.Get(i)
    Log(ListMap.Get("LogID"))
Next

 

[narek adonts]

jssonp.Initialize2(alist)
sname=jssonp.ToString

And initialize map a in the loop

 

[narek adonts]

Dim alist As List
alist.Initialize

ResultSet1 = SQL1.ExecQuery("SELECT * FROM LOG")
    Do While ResultSet1.NextRow
    Dim a as Map
    A.initialize
    a.Put("ScoreLogID",ResultSet1.GetInt("LogID"))
    a.Put("QuestionItem",ResultSet1.GetInt("QuestionItem"))
    alist.Add(a)
Loop
ResultSet1.Close
Dim jssonp As JSONGenerator
jssonp.Initialize2(alist)
sname=jssonp.ToString
Log(sname)

 

[BensonHung]

thank you narek adonts!!!!

 

[Erel]

You can also use CreateMap:

Do While ResultSet1.NextRow
 Dim a As Map = CreateMap("ScoreLogID": ResultSet1.GetInt("LogID"), "QuestionItem": ResultSet1.GetInt("QuestionItem"))
 alist.Add(a)
Loop