نمایش آیتم از دیتابیس

[Milad-Mohammadi 401]

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

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

آیتم های دیتابیس از 0 شماره گذاری شدن

این کدهام هستش:

Sub list_select (ParentEventName As String,position As Int)

	cursur1=sql.ExecQuery("SELECT * FROM texts WHERE id="&position)
	For i = 0 To cursur1.RowCount - 1
		cursur1.Position = i
	Next
	msgbox(cursur1.GetString("english") &CRLF& cursur1.GetString("persian"),"Text")
	
End Sub

 

 

[امین مهدی نژاد 2,141]

در 14 دقیقه قبل، Milad-Mohammadi گفته است :

من توی این قسمت:

	For i = 0 To cursur1.RowCount - 1
		cursur1.Position = i
	Next

هرکاری کردم بازم ارور گرفتم. i رو به اضافه 1 کردم، منهای 1 کردم باز هم کار انجام میشد اما مشکلی که در اول تاپیک گفتم بود.

خب اول اینو امتحان کن . چون مشکل اینجاس.

cursur1=sql.ExecQuery("SELECT * FROM texts WHERE id="&(position+1))

تا ببینیم چی میشه!

«موفق باشید.»

[امین مهدی نژاد 2,141]

کاملا مشخصه که مقدار id و position با هم برابر نیستند.

شما به مقدار Position خودتون یکی اضافه کنید . بعد ازش استفاده کنید.

«موفق باشید.»

 

[Milad-Mohammadi 401]

در 58 دقیقه قبل، amin.mn گفته است :

کاملا مشخصه که مقدار id و position با هم برابر نیستند.

شما به مقدار Position خودتون یکی اضافه کنید . بعد ازش استفاده کنید.

«موفق باشید.»

 

این کار رو کرده بودم قبلا. باز هم ارور میده

[امین مهدی نژاد 2,141]

1-شما ابندا دیتابیستون رو چک کنید ببینید که درست هست یانه

2- اگه از ReturnValue در آیتم های لیست ویو استفاده کرده اید. از صحت و درستی اونم مطمئن بشید.

خب دیگه نباید مشکلی باشه.

نکته :مقدار ستون id باید منحصربفرد باشه. یعنی در دو سطر مختلف یکی نباشه.و  با این وجود استفاده از حلقه که شما گذاشتین بی فایده است. معمولا if می زارن تا اگه مقداری برنگشت پیام و یا اخطاری رو نمایش بدهند.

یه چک بکن ببین چی میشه

«موفق باشید.»

[Milad-Mohammadi 401]

در 9 دقیقه قبل، amin.mn گفته است :

1-شما ابندا دیتابیستون رو چک کنید ببینید که درست هست یانه

2- اگه از ReturnValue در آیتم های لیست ویو استفاده کرده اید. از صحت و درستی اونم مطمئن بشید.

خب دیگه نباید مشکلی باشه.

نکته :مقدار ستون id باید منحصربفرد باشه. یعنی در دو سطر مختلف یکی نباشه.و  با این وجود استفاده از حلقه که شما گذاشتین بی فایده است. معمولا if می زارن تا اگه مقداری برنگشت پیام و یا اخطاری رو نمایش بدهند.

یه چک بکن ببین چی میشه

«موفق باشید.»

دیتابیس که مطمینم درسته چون پرایمری کی دادم و آبدی دادن خودکار رو فعال کردم واسه ستون آیدی.

return value؟؟ نه، کل کدهایی که استفاده کردم این هستش:

برای فراخوانی درتابیس:

	If File.Exists(File.DirInternal,"en.db") = False Then
		File.Copy(File.DirAssets,"en.db",File.DirInternal,"en.db")
		sql.Initialize(File.DirInternal,"en.db",False)
	Else
		sql.Initialize(File.DirInternal,"en.db",False)
	End If
	
cursur1=sql.ExecQuery("SELECT * FROM texts")

برای نمایش آیتم ها:

Sub list_select (ParentEventName As String,position As Int)

	cursur1=sql.ExecQuery("SELECT * FROM texts WHERE id="&position)
	For i = 0 To cursur1.RowCount - 1
		cursur1.Position = i
	Next
	msgbox(cursur1.GetString("english") &CRLF& cursur1.GetString("persian"),"Text")
	
End Sub

 

من توی این قسمت:

	For i = 0 To cursur1.RowCount - 1
		cursur1.Position = i
	Next

هرکاری کردم بازم ارور گرفتم. i رو به اضافه 1 کردم، منهای 1 کردم باز هم کار انجام میشد اما مشکلی که در اول تاپیک گفتم بود.

[Milad-Mohammadi 401]

در 11 دقیقه قبل، amin.mn گفته است :

خب اول اینو امتحان کن . چون مشکل اینجاس.

cursur1=sql.ExecQuery("SELECT * FROM texts WHERE id="&(position+1))

تا ببینیم چی میشه!

«موفق باشید.»

حلقه رو چیکارش کنم؟ کلا بردارم؟

[امین مهدی نژاد 2,141]

آره اگه می خوای if بزاری و یا try اینجا جاشه

مقدار زیر هم که مشخصه دیگه

cursur1.Position = 0

«موفق باشید.»