لود 100 تایی از دیتابیس

[ebraeim 8]

سلام

من دارم یک برنامه دیکشنری می سازم من با این کد رکوردها را وارد لیست ویو کردم اما چون تعداد رکوردها زیاد بود برنامه سرعتش خیلی کم است

ListView1.Clear
		meun.cur = meun.sql1.ExecQuery("SELECT * FROM tbl")
	For i = 0 To meun.cur.RowCount - 1
		meun.cur.Position = i
	ListView1.AddSingleLine2(" " & meun.cur.GetString("En"),meun.cur.GetInt("id"))

من می خواهم به صورت 100 تایی لود کنم یعنی ابتدا 100تای اولی را لود کند وقتی لیست ویو به آخر رسید 100 تای بعدی را لود کند و 100 تای قبلی را حذف کند

[shahab.es 5,429]

سلام هموطن

برای لیست ویو نمیتونید این کار رو بکنید

چون برای به پایان رسیدن لیست ویو توی بیسیک، Event نداریم

اما در کل روش کار رو میگم که اگه خواستید بعدا استفاده کنید موردی نداشته باشید

به این شکله که میاین و از لیمیت و افست استفاده میکنید

'procces global'
dim offset as int = 0

'act_create'
meun.cur = meun.sql1.ExecQuery("SELECT * FROM tbl LIMIT 100 OFFSET  "&offset&"")

وقتی هم که به پایان مولتی پنل یا هر چیزی رسیدید،

offsett = offset + 100
meun.cur = meun.sql1.ExecQuery("SELECT * FROM tbl LIMIT 100 OFFSET "&offset&"")

موفق باشید