فراخوانی بخشی از دیتابیس

[ah313mad 34]

سلام دوستان خسته نباشید.

 

من واسه کتابی که می خوام درست کنم چون مطالبش زیاده میخوام فصل بندی کنم . 

 

یعنی وقتی . باتون " فهرست " رو بزنم . یه صفحه باز بشه که 10 تا باتوون داخلش باشه . بعد مثلا باتون " فصل اول " رو که میزنی فهرستی  از ردیف 1 تا ردیف 10 دیتابیس رو فراخوانی کنه . باتون " فصل 2 رو که بزنی .فهرستی  از ردیف 10 تا 20 رو از دیتابیس فراخوانی بکنه . ممنون میشم راهنمایی کنید

کد صفحه فراخوانی مطلبش پاییه

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frm1")


font=Typeface.LoadFromAssets("byekan.ttf")

SlidingMenu1.Initialize("menu")
listview2.Initialize("list")
SlidingMenu1.BehindOffset=45%x
SlidingMenu1.Mode=SlidingMenu1.LEFT
SlidingMenu1.Menu.AddView(listview2,0,58dip,250dip,160%x)

listview2.AddTwoLinesAndBitmap("خانه","",LoadBitmap(File.DirAssets,"Home-128.png"))
listview2.AddTwoLinesAndBitmap("جستجو","",LoadBitmap(File.DirAssets,"Search-128.png"))
listview2.AddTwoLinesAndBitmap("علاقه مندی ها","",LoadBitmap(File.DirAssets,"favorite1.png"))
listview2.AddTwoLinesAndBitmap("تنظیمات","",LoadBitmap(File.DirAssets,"Settings-128.png"))
listview2.AddTwoLinesAndBitmap("تماس با ما","",LoadBitmap(File.DirAssets,"message-mail-128.png"))
listview2.AddTwoLinesAndBitmap("درباره","",LoadBitmap(File.DirAssets,"about-128.png"))
listview2.TwoLinesAndBitmap.Label.Gravity=Gravity.LEFT
listview2.TwoLinesAndBitmap.Label.Top=15dip
listview2.TwoLinesAndBitmap.Label.TextColor = Colors.Blue
listview2.TwoLinesAndBitmap.Label.Typeface=font



Dim blistview1 As BitmapDrawable
blistview1.Initialize(LoadBitmap(File.DirAssets,"0.png"))
SlidingMenu1.Menu.Background=blistview1



If File.Exists(File.DirInternal,"dbrahsadsale.db")= False Then
(File.Copy(File.DirAssets,"dbrahsadsale.db",File.DirInternal,"dbrahsadsale.db"
End If

If SQL1.IsInitialized=False Then
(SQL1.Initialize(File.DirInternal,"dbrahsadsale.db",False
End If


Dim cur As Cursor
cur=SQL1.ExecQuery("SELECT * FROM Tbl1")

For i = 0 To cur.RowCount-1
    cur.Position=i
    ListView1.AddSingleLine2(cur.GetString("Fasl"),cur.GetInt("id"))
    ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
   
    ListView1.SingleLineLayout.Label.TextSize=18
ListView1.SingleLineLayout.Label.TextColor=Colors.Black
    ListView1.SingleLineLayout.ItemHeight=15%y
'*********************
Dim bd As BitmapDrawable
    bd.Initialize(LoadBitmap(File.DirAssets,"3-List.png"))
    ListView1.SingleLineLayout.Background=bd

Dim a As Typeface
    a=Typeface.LoadFromAssets("BYEKAN.ttf")
    ListView1.SingleLineLayout.Label.Typeface=a
Next


End Sub

[shahab.es 5,429]

عزیزم کدش رو براتون قرار دادم بالا دیگه

cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE bakhsh = 1 AND id="&Menu1.Fasl)