مشکل در بازیابی اطلاعات از بانک اطلاعاتی

[rbageherih 0]

سلام

بعد با این دستورات در اکتیویتی اول ، از روی هاست خروجی json گرفتم که و داخل بانک اطلاعاتی ذخیره می کنه

 

Sub Globals
             Dim sql1 As SQL

Dim json As JSONParser
    Dim con1,con2 As MC7Http
  End Sub

 

Sub Activity_Create(FirstTime As Boolean)
    '   Activity.LoadLayout("main_logo")
    If File.Exists(File.DirInternal, "db.db") Then
        File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db")
          End If
    sql1.Initialize(File.DirInternal, "db.db", True)
      con1.Initialize("req2","nreq2", 2000 , Me)
    con1.PostString("http://chbit.ir/shop/cf.php","")
    con2.Initialize("req1","nreq1", 2000 , Me)
    con2.PostString("http://chbit.ir/shop/1.txt","")
    End Sub

 

Sub Req1_ReqDone(Req As MC7Http)

    Dim Cursor2 As Cursor
    Dim m1,m2,m3 As String
    Public m As Map
    Public bas As List
       If Req.RName="nreq1" Then
              json.Initialize(Req.GetString)
              m=json.NextObject
               bas=m.Get("chbit")
           For i=0 To bas.Size-1
            m=bas.Get(i)
            m1=m.Get("id")
            m2=m.Get("name")
            m3=m.Get("price")
            sql1.ExecNonQuery("INSERT INTO maintbl (idx,name,price) VALUES ('"&m1&"','"&m2&"','"&m3&"')")
    Next
              
        StartActivity(deskshop)
        Activity.Finish
    End If
    Req.StopAllRequest
end Sub

 

بعد توی اکتیویتی دوم این کد را نوشتم که مقداری را به  get_namekala(i) می فرسته

پیام خطایی که میده میاد اون سطری را که رنگش را سبز کردم ایراد می گیره ، در واقع مقدار برگشتی را خالی بر می گردونه انگار . در ضمن تعداد رکورد های ذخیره شده با مقدار حلقه مساوی هست

 

Sub Globals
    Dim sql1 As SQL

Dim lblsellvijeh,lblnamevijeh As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Activity.LoadLayout("l_deskshop")
end Sub

 

Sub slider_vijeh

For i=1 To 4

lblsellvijeh.Initialize("lblsellvijeh")
        lblnamevijeh.Initialize("lblnamevijeh")

get_namekala(i)

next

end Sub

 

Sub get_namekala(indexdata As Int)
    
    
    
    Dim Cursor As Cursor
    Cursor = sql1.ExecQuery("SELECT name,price FROM maintbl ")
            Cursor.Position = indexdata

    lblnamevijeh.Text=Cursor.GetString("name")
    lblsellvijeh.Text=Cursor.GetString("price")

  
End Sub