مشکل در گرفتن تمام اطلاعات دیتابیس

[majerajoo 161]

سلام

 

من یه دیتابیس دارم با سه ستون به نام های

id

onvan

matn

که همش معلومه چیه

وقی تو برنامه روی هرکدوم از عنوان ها که مربوط به ستون دومه کلیک میکنم که بره متن مورد نظرش رو از ستون سوم بگیره متاسفانه فقط متن عنوان اول نمایش داده میشه

یعنی اگه هزار تا هم عنوان داشته باشم و روش کلیک کنم باز تو اکتیویتی دوم اولین آی دی رو میگیره و نمایش میده

 

کدهای صفحه عنوان هام

	If File.Exists(File.DirInternal,"rsdb.db")=False Then
		File.Copy(File.DirAssets,"rsdb.db",File.DirInternal,"rsdb.db")
	End If
	 
	 If s.IsInitialized=False Then
	 s.Initialize(File.DirInternal,"rsdb.db",False)
	 End If
	 
	 Dim cur As Cursor
	 cur.IsInitialized
	 cur=s.ExecQuery("SELECT * FROM rs")

	 ' order by id desc
	 
	 
	 Dim h As Int
	 h=2%y
	 For i = 0 To cur.RowCount-1
	 cur.Position=i
	 
	 Dim btn As Button
	 btn.Initialize("btn")
	 btn.Text = Gravity.RIGHT
	 btn.Text=cur.GetString("onvan")
	btn.Tag=cur.GetInt("id")
	
	
	 
	 Dim b As BitmapDrawable
	 b.Initialize(LoadBitmap(File.DirAssets,"pn3.png"))
	btn.Background=b

		ScrollView1.Panel.AddView(btn,0,h,100%x,25%y)
		ScrollView1.Panel.Height = h
		h=h+27%y
	Next
'	
End Sub

Sub btn_Click
	Dim b As Button
	b=Sender
	id=b.Tag
	StartActivity(matn_rasm)
End Sub

کدهای صفحه متن

Activity.LoadLayout("mazhabily")

	 	If File.Exists(File.DirInternal,"rsdb.db")=False Then
				File.Copy(File.DirAssets,"rsdb.db",File.DirInternal,"rsdb.db")
			End If
			 
			 If s.IsInitialized=False Then
			 s.Initialize(File.DirInternal,"rsdb.db",False)
			 End If
			 
			 Dim cur As Cursor	
		cur=s.ExecQuery("SELECT * FROM rs WHERE id")
			  cur.Position=0

			Label166.Text=cur.GetString("onvan")
					Dim Label1 As Label

			 Label1.Initialize("Label1")
			 Label1.Text=cur.GetString("matn")
			 Label1.TextColor = Colors.Black
			 Label1.TextSize = 25
			 Label1.Typeface = Typeface.LoadFromAssets("BYekan.ttf")
			 
'			 ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)
ScrollView1.Panel.AddView(Label1,0,0,92%x,100%y)

[dr.mohammad 68]

در کد صفحه دوم باید بنویسی

'main = esm act aval
cur=s.ExecQuery("SELECT * FROM rs WHERE id="&main.id)

[محمدرضا شاهپیری 5,561]

دوتا اشکال وجود داره یکی اینکه شما id تو رو به صفحه متن نفرستادینه یعنی شما باید یه متغیر پابلیک تو اکتیویتی matn_rasm به نام id درست کنید و وقتی روی باتن کلیک شده این رو بنویسید matn_rasm.id=b.tag

اشکال دو تو این قسمت از اکتیویتی matn_rasm هست

cur=s.ExecQuery("SELECT * FROM rs WHERE id")

درستش این هست

cur=s.ExecQuery("SELECT * FROM rs WHERE id="&id)