• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 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
پسند شده توسط seyyedali، Sina و salmana

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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

.

.

.

.

 

 

سلام

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

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

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


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

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

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

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

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


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

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

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


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