دریافت از دیتابیس از طریق باتن Back و Next

[isarisar 30]

درود بر همراهان انجمن
 

ضمن تبریک سال جدید، همینطور که در کنار خانواده از لحظاتتون لذت میبرید لطفا سوال من رو هم پاسخ بدید.  با تشکر قبلی   

 

من میخوام یه لی اوت داشته باشم که توش یه ایمیج ویو داشته باشه و یه لیبل قابل اسکرول. که اطلاعات دیتابیس توشون نمایش داده بشه.

تا اینجا مشکلی نیست.

حالا میخوام وقتی کاربر صفحه رو با انگشت ورق زد ( مثل ورق زدن عکس )، سطر بعدی دیتابیس جایگزین سطر قبلی بشه و در لی اوت نمایش داده بشه.

 

این هم کدهای من تا جایی که بلدم

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("LTmatlab")	
	If File.Exists(File.DirInternal,"Sleep.db")=False Then
	File.Copy(File.DirAssets,"Sleep.db",File.DirInternal,"Sleep.db")
	End If	
	If Act_book.s.IsInitialized=False Then
	Act_book.s.Initialize(File.DirInternal,"Sleep.db",False)
	End If	
	Dim cur As Cursor
	cur=Act_book.s.ExecQuery("SELECT * FROM tbl1 WHERE Fasl="&Act_book.Fasl)
	cur.Position=0
	img_matlab.Bitmap=Namayesh	
	Dim LLmatlab As Label
	LLmatlab.Initialize("LLmatlab")
	LLmatlab.Text=cur.GetString("Matn")	
	SVmatlab.Panel.AddView(LLmatlab,0,0,SVmatlab.width,SVmatlab.Height)
	Dim su As StringUtils
	LLmatlab.TextSize=Act_tanzimat.size
	LLmatlab.Typeface=Typeface.LoadFromAssets(Act_tanzimat.font & ".ttf")
	LLmatlab.Height=su.MeasureMultilineTextHeight(LLmatlab,LLmatlab.Text)
	SVmatlab.Panel.Height=su.MeasureMultilineTextHeight(LLmatlab,LLmatlab.Text)+50%y
	SVmatlab.Panel.Color=Colors.White
End Sub

Sub Namayesh As Bitmap
	Dim cur As Cursor
	cur=Act_book.s.ExecQuery("SELECT Aks FROM tbl1 WHERE Fasl="&Act_book.Fasl)
	cur.Position=0	
	Dim bytes() As Byte
	bytes =cur.GetBlob("Aks")	
	Dim input As InputStream
	input.InitializeFromBytesArray(bytes,0,bytes.Length)
	Dim b As Bitmap
	b.Initialize2(input)
	input.Close
	Return(b)
End Sub

[shahab.es 5,429]

سلام هموطن

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

اما شما باید یه دستور sql داشته باشید که مقدار ردیف خونده شده اش، هر بار که ورق میزنی(کلیک میکنی)فرق کنه

شما یه متغیر تعریف کن

مثلا

dim meghdar as int = 0

 

بعد بیا و دستورت رو توی اکتیویتی کریت بنویس...

activity.removeallviews
activity.loadLayout("test")

cur = sql.exequery("SELECT * FROM tbl WHERE id = "& meghdar )

و بقیه کار ها

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

'click Event'
meghdar = meghdar + 1
activity_create(false)

این کار میاد و هر بار روی صفحه بعد یا بعدی زدید، یدونه به ای دی اضافه میکنه و بعد اکتیویتی کریت رو از اول اجرا میکنه

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

ممکنه کمکتون کنه این روش

عیدتونم مبارک...