مشکل لود اطلاعات دیتا بیس

[میلاد 441]

سلام 

من از این تاپیک استفاده کردم که اطلاعات دیتابیس(افلاین) رو توی یکی از تب ها نمایش بدم 

ایجاد لیست سفارشی در ViewPager

 

اما برنامه توی اجرا بسته میشه 

 

 

 

[shahab.es 5,429]

سلام

کداتون رو قرار بدید

بررسی کنیم ببینیم چشه

ارور هم بذاریدش، اگه ارور نداره، لاگ رو قرار بدید

[میلاد 441]

Sub Activity_Create(FirstTime As Boolean)

If File.Exists(File.DirInternal,"db.db") = False Then

File.copy(File.DirAssets,"db.db",File.DirInternal,"db.db")

End If

If sql.IsInitialized = False Then

sql.Initialize(File.DirInternal,"db.db",True)

End If

Activity.Color = Colors.White

Private titles As List

titles.Initialize

titles.AddAll(Array As String("برترین ها","دسته بندی","جدیدترین","لایک ترین ها"))

pc.Initialize

For i = 0 To 3

Dim p As Panel

p = panel(i)

pc.AddPage(p,titles.Get(i))

Next

vp.Initialize(pc,"ViewPager")

tabs.Initialize(vp)

tabs.TextColor = Colors.White

tabs.Color = Colors.RGB(76,175,80)

tabs.LineColor = Colors.RGB(76,175,80)

tabs.LineHeight = 3dip

tabs.LineColorSelected =Colors.White

tabs.LineHeightSelected = 3dip

'ActionBar

Dim ActionBar As Panel

ActionBar.Initialize("")

ActionBar.Color = Colors.RGB(76,175,80)

ActionBar.Elevation = 10dip

Activity.AddView(ActionBar,0,0,100%x,10%y)

'----------------------------------------------------

Activity.AddView(tabs,0,10%y,100%x,10%y)

Activity.AddView(vp,0,20%y,100%x,80%y)

End Sub

Sub Activity_Resume

End Sub

Sub ViewPager_PageChanged (Position As Int)

Select Case Position

Case 0

Case 1

Case 2

End Select

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub panel(ptype As Int) As Panel

Dim pp As Panel

pp.Initialize("")

' pp.Color = Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))

pp.Color = Colors.White

pp.Elevation = 5dip

Select Case ptype

Case 0

Private sv As ScrollView

Dim query As String

cur = sql.ExecQuery(query)

sv.Initialize(0)

pp.AddView(sv,0,0,100%x,100%y)

For i = 0 To cur.RowCount-1

cur.Position = i

Private mp As Panel

mp.Initialize("")

sv.Panel.AddView(mp,0,offsetY,100%x,100%y)

offsetY = offsetY + 26%y

mp.LoadLayout("item_ex")

lbl.Text = cur.GetString("name")

btn.Tag = cur.GetString("lname")

Next

sv.Panel.Height = offsetY + 25%y

Case 1

Dim b As Button

b.Initialize("btn2")

b.Text = "HI"

pp.AddView(b,33%x,33%y,33%x,33%y)

End Select

Return pp

End Sub

[مهدی ایزدی 9,203]

برنامه رو در حالت debug اجرا کنید ببینید از کدوم خط خطا میگیره ؟

[میلاد 441]

این خط 

cur = sql.ExecQuery(query)

[مهران محمودی 778]

درود،

در کمال تعجب شما اصلا کوئری ننوشتید که بخواد اجرا بشه!!!!!

مسلما با ارور و مشکل مواجه میشید.

چیزی که شما نوشتید:

			Dim query As String
			cur = sql.ExecQuery(query)

کوئری خودتون رو بنویسید و دوباره امتحان کنید.

تقریبا به این شکل:

			Dim query As String
			query = "SELECT fields FROM table_name WHERE condition..."
			cur = sql.ExecQuery(query)