لود کردن اطلاعات دیتابیس به صورت 5 تایی

[alivoll 17]

سلام من یه مشکل اساسی دارم و اونم اینه که یه دیتابیس ساختم برای نمایش متن و تصاویر و اونو تو اسکرول ویو فراخوانی کرم اما چون تعداد تصاویر 80 تاست وقتی میخوام وارد این قسمت بشم برنامه هنگ میکنه و کار نمیکنه الان چجوری بتونم که اونو دیتابیس رو به صورت 5 تایی یا 10 تایی لود کنم و از هنگ کردن جلوگیری بشه اگه راه دیگه ای دارید حتما پیشنهاد کنید ... ممنون

[amir mahdizadeh 109]

سلام دوست عزیز

شما باید به دیتابیستون لیمیت بدین که مثلا 10 تا 10 تا لود بشه و نمایش داده بشه

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

Sub ScrollView1_ScrollChanged(Position As Int)
		If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height Then
			offset = offset + 6
			cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "' and Ccode='"&(ff+1) &"' LIMIT 5 OFFSET "&offset&" ")

			For i = 1 To cur1.RowCount-1
		cur1.Position = i
		Dim p As Panel
		p.Initialize("p")
			ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
			stop = stop + 300dip
			p.LoadLayout("listhospital")
			
			Dim anim As Animation
			anim.InitializeScaleCenter("a1",0,0,1,1,p)
			anim.Duration=1000
			anim.Start(p)
			
			tell.Tag = i
			website.Tag = i
			name1.Text = "     بیمارستان"
			name1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")
			name1.TextColor = Colors.Black
			name1.Gravity = Gravity.RIGHT
			name1.TextSize = 14
			
			ScrollView1.Panel.Height=stop
	Next
		End If
End Sub

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

[alivoll 17]

سلام دوست عزیز

شما باید به دیتابیستون لیمیت بدین که مثلا 10 تا 10 تا لود بشه و نمایش داده بشه

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

Sub ScrollView1_ScrollChanged(Position As Int)
		If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height Then
			offset = offset + 6
			cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "' and Ccode='"&(ff+1) &"' LIMIT 5 OFFSET "&offset&" ")

			For i = 1 To cur1.RowCount-1
		cur1.Position = i
		Dim p As Panel
		p.Initialize("p")
			ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
			stop = stop + 300dip
			p.LoadLayout("listhospital")
			
			Dim anim As Animation
			anim.InitializeScaleCenter("a1",0,0,1,1,p)
			anim.Duration=1000
			anim.Start(p)
			
			tell.Tag = i
			website.Tag = i
			name1.Text = "     بیمارستان"
			name1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")
			name1.TextColor = Colors.Black
			name1.Gravity = Gravity.RIGHT
			name1.TextSize = 14
			
			ScrollView1.Panel.Height=stop
	Next
		End If
End Sub

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

شما میتونین با تیم ویور این مشکل منو حل کنید ...

اگه بشه تو تلگرام بیشتر منو راهنمایی کن ممنون

09214691274