بعد با این دستورات در اکتیویتی اول ، از روی هاست خروجی 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
سوال
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
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.