مشکل در سرچ و نشان دادن مطالب از دیتابیس

[mpnbooks 4]

سلام به همگی

 

در سرچ دیتابیس با این دو مشکل برخوردم لطفا در صورت امکان راهنمایی کنید

 

سوال 1- از این کد برای سرچ مطالب استفاده می کنم ولی اشکالی که هست اینه که مطلب(حاوی کلمه مورد نظر) رو که نشون میده، قابلیت انتخاب اون و رفتن به مطالب مربوطه رو نداره

چه کاری باید انجام بدم؟

 

سوال 2- نوشتن این دستور به چه صورته که وقتی کلمه ای رو در EditText1 می نویسم، همزمان در دو ستون matn1 و matn2 از دیتابیس سرچ کنه و مطالب مربوطه رو نشون بده؟

باتشکر فراوان

 

Sub EditText1_TextChanged (Old As String, New As String)
			
	File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db")
	sql1.Initialize(File.DirInternal,"bank.db",False)
	ScrollView1.Panel.RemoveAllViews
	ScrollView1.Panel.Color=Colors.Transparent
	Dim cur2 As Cursor
	cur2=sql1.ExecQuery("select * from mytbl where matn1 like '%"&EditText1.Text&"%'")
	Dim s As Int
	s=0
	For i=0 To cur2.RowCount-1
		cur2.Position=i
		Dim p As Panel
		p.Initialize("")
		p.Color=Colors.Yellow
		Dim l As Label
		l.Initialize("")
		l.Gravity=Gravity.CENTER
		l.TextColor=Colors.Black
		l.Text=cur2.GetString("matn1")
		p.AddView(l,0,0,ScrollView1.Width,50dip)
		ScrollView1.Panel.AddView(p,0,s,100%x,50dip)
		s=s+55dip
		
	Next
	
End Sub

 

[solmos36 69]

 

سلام به همگی

 

در سرچ دیتابیس با این دو مشکل برخوردم لطفا در صورت امکان راهنمایی کنید

 

سوال 1- از این کد برای سرچ مطالب استفاده می کنم ولی اشکالی که هست اینه که مطلب(حاوی کلمه مورد نظر) رو که نشون میده، قابلیت انتخاب اون و رفتن به مطالب مربوطه رو نداره

چه کاری باید انجام بدم؟

 

سوال 2- نوشتن این دستور به چه صورته که وقتی کلمه ای رو در EditText1 می نویسم، همزمان در دو ستون matn1 و matn2 از دیتابیس سرچ کنه و مطالب مربوطه رو نشون بده؟

باتشکر فراوان

 

Sub EditText1_TextChanged (Old As String, New As String)
			
	File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db")
	sql1.Initialize(File.DirInternal,"bank.db",False)
	ScrollView1.Panel.RemoveAllViews
	ScrollView1.Panel.Color=Colors.Transparent
	Dim cur2 As Cursor
	cur2=sql1.ExecQuery("select * from mytbl where matn1 like '%"&EditText1.Text&"%'")
	Dim s As Int
	s=0
	For i=0 To cur2.RowCount-1
		cur2.Position=i
		Dim p As Panel
		p.Initialize("")
		p.Color=Colors.Yellow
		Dim l As Label
		l.Initialize("")
		l.Gravity=Gravity.CENTER
		l.TextColor=Colors.Black
		l.Text=cur2.GetString("matn1")
		p.AddView(l,0,0,ScrollView1.Width,50dip)
		ScrollView1.Panel.AddView(p,0,s,100%x,50dip)
		s=s+55dip
		
	Next
	
End Sub

 

 

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

[mpnbooks 4]

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

ممکه با کد توضیح بدین

متاسفانه مشکلم همین جاست

[solmos36 69]

Sub 1_Click

Dim v As Label

v = Sender

matn.gorohname = v.Text

StartActivity(matn)

End Sub

[mpnbooks 4]

Sub 1_Click
Dim v As Label
v = Sender
matn.gorohname = v.Text
StartActivity(matn)
End Sub

تشکر  ولی بازم مشکلم سرجاشه