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

[omid1377 44]

سلام

من یه 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 تا و زیاد بشن برنامه سنیگن نمیشه ؟

مشکلی نیست؟

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

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

درود،

اگه همیشه ستون 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

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

[omid1377 44]

خیلی آقایی عجب کدی دادی  و گرنه پدرم درمیومد

[مجید آرتا 5,874]

سلام

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

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