رفتن به مطلب
  • 0

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


mpnbooks

سوال

سلام به همگی
 
در سرچ دیتابیس با این دو مشکل برخوردم لطفا در صورت امکان راهنمایی کنید
 
سوال 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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...