• 0
seyyedali

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

سوال

سلام دوستان 

کد های پایین قسمت جستجو ی مولتی پنلم هست، وقتی تو ادیت تکست متن رو وارد میکنم و دکمه جستجو رو م زنم ذیتابیسم دوباره لود میشه و اتفاقی نمی افته


ممنون میشم کمکم کنید

Sub La12_Click
	ScrollView1.Panel.RemoveAllViews
	h = ScrollView1.Height - ScrollView1.Height
	ScrollView1.ScrollPosition = h
	
		cu = Main.s.ExecQuery("SELECT * FROM codsy WHERE chare LIKE '%"&EditText1.Text&"%'")
		
		Dim h As Int
   	 h = 1.5%y
	 
	 Dim k1 As databas
	Dim t1 As List
	t1.Initialize
	k1.Initialize
	
	t1 = k1.listha
	
	
	For i = 0 To t1.Size -1
'	
	cu.Position = i
	
	Dim p1 As Panel
	p1.Initialize("")
	ScrollView1.Panel.AddView(p1,0%x,h,100%x,50%y)
	p1.LoadLayout("1")
	
	Dim h1 As item
	h1.Initialize
	h1 = t1.Get(i)  	
	btn1.Text = h1.chare
	st = h1.chare
	btn1.Tag = i
	
	ScrollView1.Panel.Height=h+ 15%y
	h = h + btn1.Height + 3.5%y
		
	Next

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


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

4 پاسخ به این سوال تا کنون داده شده است

  • 0

کداتون رو به شکل زیر بنویسید جواب میده من یکمی کدای خودتون رو تغییر دادم

Sub La12_Click
	ScrollView1.Panel.RemoveAllViews
	tim h as int=1.5%x
	
		cu = Main.s.ExecQuery("SELECT * FROM codsy WHERE chare LIKE '%"&EditText1.Text&"%'")
		
		
	
	For i = 0 To cu.rawcount -1
	
	cu.Position = i
	
	Dim p1 As Panel
	p1.Initialize("")
	ScrollView1.Panel.AddView(p1,0%x,h,100%x,15%y)
	p1.LoadLayout("1")
	
	
	
	btn1.Text = cu.getstring("chare")
	btn1.Tag = cu.getint("id")
	
        h=h+15%y
	Next

        ScrollView1.Panel.Height=h
end sub
salmana، Sina و seyyedali پسندیده اند

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


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

 


کداتون رو به شکل زیر بنویسید جواب میده من یکمی کدای خودتون رو تغییر دادم

Sub La12_Click	ScrollView1.Panel.RemoveAllViews	tim h as int=1.5%x			cu = Main.s.ExecQuery("SELECT * FROM codsy WHERE chare LIKE '%"&EditText1.Text&"%'")		...


ممنون دوست من کدتون تقریبا درست بود ولی یه چنتا ایراد داشت تصحیح میکنم میزارم بقیه هم استفاده کنن

 

 

ممنون دوست من کدتون تقیبا درست بود ولی یه چنتا ایراد داشت تصحیح میکنم میزارم بقیه هم استفاده کنن

Sub La12_Click	ScrollView1.Panel.RemoveAllViews	Dim h As Int=1.5%y			cu = Main.s.ExecQuery("SELECT * FROM codsy WHERE chare LIKE '%"&EditText1.Text&"%'")						For i = 0 To cu.RowCount -1		cu.Position = i		Dim p1 As Panel	p1.Initialize("")	ScrollView1.Panel.AddView(p1,0%x,h,100%x,50%y)	p1.LoadLayout("1")		btn1.Text = cu.getstring("chare")	btn1.Tag = cu.getint("radif")	    	ScrollView1.Panel.Height=h+ 15%y	h = h + btn1.Height + 3.5%y	Next'        ScrollView1.Panel.Height=h				End Sub

m007moh پسند دیده است

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


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

این کدی که شما دادی میاد چک می کنه اگر در وسط کلمه اون حرف توی ادیت تکست بود رو سرچ می کنه مثلا:

توی ادیت تکست بزنیم علی و رکورد های دیتابیس این ها باشن:

علی

سینا و علی

سینا و علی و حسین

اون میاد فقط سومی رو میاره اما کد زیر هر سه رو میاره می توانید امتحان کنید


Sub La12_Click
ScrollView1.Panel.RemoveAllViews
Dim h As Int=1.5%y

cu = Main.s.ExecQuery("SELECT * FROM codsy WHERE chare
like '%"&EditText1.Text&"%' or chare LIKE "&EditText1.Text&"%' or chare LIKE "&EditText1.Text&'%")



For i = 0 To cu.RowCount -1

cu.Position = i

Dim p1 As Panel
p1.Initialize("")
ScrollView1.Panel.AddView(p1,0%x,h,100%x,50%y)
p1.LoadLayout("1")

btn1.Text = cu.getstring("chare")
btn1.Tag = cu.getint("radif")

ScrollView1.Panel.Height=h+ 15%y
h = h + btn1.Height + 3.5%y
Next

' ScrollView1.Panel.Height=h

End Sub
[/Php]

m007moh پسند دیده است

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


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

این کدی که شما دادی میاد چک می کنه اگر در وسط کلمه اون حرف توی ادیت تکست بود رو سرچ می کنه مثلا:

توی ادیت تکست بزنیم علی و رکورد های دیتابیس این ها باشن:

علی

سینا و علی

سینا و علی و حسین

اون میاد فقط سومی رو میاره اما کد زیر هر سه رو میاره می توانید امتحان کنید

[Ph

.

.

.

.

 

 

سلام

نه اینطور نیست 

من دارم باهاش کار میکنم همه ی رکوردها رو میاره

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری