ارور در گرفتن مقادیر از دیتابیس افلاین

[amir mahdizadeh 109]

سلام خدمت همه دوستان و اساتید محترم انجمن

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

با کمک یکی از دوستام این کار رو انجام میدم وکد هاش به صورت زیر هست

Sub chk_CheckedChange(Checked As Boolean)
	Dim ch As CheckBox=Sender
	For i=0 To clv.GetSize-1
		For Each vv As View In clv.GetPanel(i).GetAllViewsRecursive
			If vv Is CheckBox Then
				Dim ch2 As CheckBox=vv
				If ch2.Checked=True Then
					ch2.Checked=False
				End If
			End If
		Next
	Next
	ch.Checked=Checked
	cur1 = sql1.ExecQuery("SELECT * FROM person WHERE id="&(ch.Tag+1))
	Log(ch.Tag+1)
	age = cur1.GetInt("age")
End Sub

حالا من میخوام سنی که کاربر وارد برنامه میکنه رو بگیرم و بریزم درون متغیر age بوسیله کد های بالا

اما هنگام اجرا ارور میده

این هم از ارورش

ممنون و متشکر از کمک همه دوستان

[shahab.es 5,429]

سلام عزیزم

به شکل زیر وارد کنید..

	cur1 = sql1.ExecQuery("SELECT * FROM person WHERE id="&(ch.Tag+1))
	Log(ch.Tag+1)
cur1.position = 0
	age = cur1.GetInt("age")

این خط رو وارد کنید حتما...

cur1.position = 0