03-11-2014، 03:10 PM
سلام دوستان به کمک احتیاج دارم من با کد های زیر اطلاعات دیتابیس رو در داخل لیست ویو لود میکنم،
مشکل من این هست که من دیتابیسم حجمش خیلی زیاده و نمیشه اونو لود کرد.راه حلی که داره اینه که اطلاعات مورد نظر توسط کاربر جستجو بشه و فقط نتیجه جستجو لود بشه.این کارو بلد نیستم خواهش میکنم کمک کنید.
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frmreport")
If File.Exists(File.DirInternal,"test.db")=False Then
File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
End If
sqll.Initialize(File.DirInternal,"test.db",False)
End Sub
Sub btnreport_Click
Dim cur1 As Cursor
cur1=sqll.ExecQuery("SELECT * FROM tbl_list")
For j=0 To cur1.RowCount -1
cur1.Position=j
ListView1.AddTwoLines(cur1.GetString("sTitle"),cur1.GetString("sBudy"))
Next
End Sub
مشکل من این هست که من دیتابیسم حجمش خیلی زیاده و نمیشه اونو لود کرد.راه حلی که داره اینه که اطلاعات مورد نظر توسط کاربر جستجو بشه و فقط نتیجه جستجو لود بشه.این کارو بلد نیستم خواهش میکنم کمک کنید.
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frmreport")
If File.Exists(File.DirInternal,"test.db")=False Then
File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
End If
sqll.Initialize(File.DirInternal,"test.db",False)
End Sub
Sub btnreport_Click
Dim cur1 As Cursor
cur1=sqll.ExecQuery("SELECT * FROM tbl_list")
For j=0 To cur1.RowCount -1
cur1.Position=j
ListView1.AddTwoLines(cur1.GetString("sTitle"),cur1.GetString("sBudy"))
Next
End Sub