پر کردن spinner با دیتابیس

[amir mahdizadeh 109]

سلام به همه اساتید و دوستان انجمن

من دو تا اسپینر دارم و دیتابیس من تشکیل شده از دو تا جدول town  و city  اینم ستون های این جدول ها

town(tcode,tname)

city(tcode,ccode,cname)

 

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

	cur1 = sql1.ExecQuery("select * from town")
	For i = 0 To cur1.RowCount-1
		cur1.Position=i
		Spinner1.Add(cur1.GetString("Tname"))
		Spinner1.TextSize = 18
	Next
	

حالا میخوام مثلا اگه روی ایتم استان اصفهان کلیک شد اسپینر دوم اسم شهرستان های استان اصفهان رو نشون بده

من کد زیر رو نوشتم اما ارور میگیره

Sub Spinner1_ItemClick (Position As Int, Value As Object)
	
	cur1 = sql1.ExecQuery("select * from city where Tcode = position")
	For i = 0 To cur1.RowCount-1
		cur1.Position=i
		spinner2.Add(cur1.GetString("Cname"))
		spinner2.TextSize = 18
	Next
End Sub

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

[mamalliii 214]

 شما 3 تا  مشکل دارید

یک: شما باید کلماتی مثل SELECT,WHERE ,FROM رو با حروف بزرگ بنویسد

دو: شما تو کدت position رو داخل دابل کوتیشن(")نوشتی پس برنامه اون رو متغییر حساب نمیکنه

سه: برای اد کردن تعداد زیاد و یکجا از AddAll استفده کنید نه Add

خب کد درست اینه:

Sub Spinner1_ItemClick (Position As Int, Value As Object)
	
	cur1 = sql1.ExecQuery("SELECT * FROM city WHERE Tcode ='"& Position& "'")
	For i = 0 To cur1.RowCount-1
		cur1.Position=i
		spinner2.AddAll(cur1.GetString("Cname"))
		spinner2.TextSize = 18
	Next
End Sub