رفتن به مطلب

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


alivoll

ارسال های توصیه شده

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

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

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

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

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

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

شما باید به دیتابیستون لیمیت بدین که مثلا 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

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

بایگانی شده

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

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

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