move last - move first و ...

[حمید زارع 331]

سلام

move next

move last

move first

move provius

که در کار با دیتابیس وی بی داشتیم

اینجا چیه

یعنی در cursor

[مجید آرتا 5,874]

سلام

خب این عملو با BindingSource انجام میدادن که میتونستیم به عقب و جلو ، آخربن و اولین بریم.والا اینجا تا حالا تست نکردم همچین چیزی رو.

ولی خودمون میتونیم انجامش بدیم.( یعنی حودمون اختصاصی بسازیم )

[حمید زارع 331]

ممنون ولی مگه میشه که این چیزای ساده رو نداشته باشه ؟!!!

[مجید آرتا 5,874]

خب فعلا همچین چیزی واسش قرار ندادن.چیزه سختی هم نیست خودتون میتونید بنویسیدش.

[حمید زارع 331]

شاید خیلی ساده باشه ولی ممکنه یه تکه کد راهنمایی بفرمایید

[مجید آرتا 5,874]

خب با کد میگم ( تست نکردم شایدم جواب نده ولی میگم)

برای مثال میخوایم اولین رکورد رو نشون بدیم :

[/b]
[b]Dim Cr As Cursor[/b]
[b] Cr = Sql.ExecQuery("SELECT * FROM tb")[/b]
[b] Cr.Position = 0[/b]

[b] Msgbox(Cr.GetString("txt"),"")[/b][b]

آخرین رکورد :

[/b]
[b] Dim Cr As Cursor[/b]
[b] Cr = Sql.ExecQuery("SELECT * FROM tb")[/b]
[b] Cr.Position = Cr.RowCount[/b]

[b] Msgbox(Cr.GetString("txt"),"")[/b][b]

یکی یکی بره به جلو ( Next ) :

[/b][b] Dim i As Int = 0[/b]
[b] Dim Cr As Cursor[/b]
[b] Cr = Sql.ExecQuery("SELECT * FROM tb")[/b]
[b] Cr.Position = i[/b]
[b]  Msgbox(Cr.GetString("txt"),"")[/b]
[b]  i = i + 1[/b]
[b]

یکی یکی برگرده عقب :

[/b]

[b] Dim Cr As Cursor[/b]
[b] Cr = Sql.ExecQuery("SELECT * FROM tb")[/b]
[b] Dim i As Int = Cr.RowCount[/b]
[b] Cr.Position = i[/b]
[b]  Msgbox(Cr.GetString("txt"),"")[/b]

[b]  i = i - 1[/b][b]

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