رفتن به مطلب
  • 0

گرفتن اطلاعات دیتابیس به وسیله Spinner


omid1377

سوال

سلام

من یه Spinnerدارم

من میخوام مثلا وقتی روی حرف ب کلیک کردن اونا رو لود کنه

 

من این کد رو نوشتم

Sub Spinner2_ItemClick (Position As Int, Value As Object)


	
	If Position = 1 Then
		Dim cur As Cursor
		ListView1.Clear
	cur = sql1.ExecQuery("SELECT * FROM moin_table WHERE type = 1")
	
	For i = 0 To cur.RowCount-1
		cur.Position = i
		ListView1.AddSingleLine2(cur.GetString("word"),cur.GetInt("id"))
	
	Next
	cur.Close
	
	End If
	
		If Position = 2 Then
		Dim cur As Cursor
		ListView1.Clear
	cur = sql1.ExecQuery("SELECT * FROM moin_table WHERE type = 2")
	
	For i = 0 To cur.RowCount-1
		cur.Position = i
		ListView1.AddSingleLine2(cur.GetString("word"),cur.GetInt("id"))
	
	Next
	cur.Close
	
	End If

حالا به درستی کار میکنه

ولی می گم مثلا اگه بشن مثلا 30 تا و زیاد بشن برنامه سنیگن نمیشه ؟

مشکلی نیست؟

اگه راه ساده تری هست بفرمایید بگید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

درود،

اگه همیشه ستون type از جدولتون برابر با مقدار Position هستش نیازی به شرط ندارید اصلا!

Sub Spinner2_ItemClick (Position As Int, Value As Object)
	Dim cur As Cursor
	listview1.Clear
	cur = sql1.ExecQuery("SELECT * FROM moin_table WHERE type = "&Position)
	For i = 0 To cur.RowCount-1
		cur.Position = i
		listview1.AddSingleLine2(cur.GetString("word"),cur.GetInt("id"))
	Next
	cur.Close
End Sub

فکر نمیکنم مشکلی پیش بیاد  :fekr: 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام


دوستم لطفا اسم مناسبی برای تاپیک هاتون قرار بدید.


بنده ویرایش می کنم ولی امیدوارم که رعایت بشه.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...