راهنمایی در مورد از پایین به بالا خواندن database

[sobhan90 12]

سلام

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

1

2

3

4

5

اینطوری نشون بده

5

4

3

2

1

یعنی فرض کنید یه برنامه طنز باشه و جوک ها رو به جای اینکه اول قدیمی تر ها رو نشون بده ، اول جدید هارو نشون بده

[حسن قاسمی نیا 547]

برعکس کردن حلقه کار منطقی به نظر نمیاد استاندارد ترین روش برعکس خواندن اطلاعات از دیتابیس هست به این صورت :

	Dim cur As Cursor
	cur = SQL1.ExecQuery("SELECT * FROM mytable ORDER BY ID DESC")
	For i = 0 To cur.RowCount-1
		cur.Position = i
		ListView1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
	Next
	cur.Close

[reza2001 587]

آقا یه مسئله می مونه که الان متوجه شدم

 

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

 

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

 

و مسلما وقتی متن رو حذف می کنم  دوباره مثل قبل همه مطالب رو نشون میده

 

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

 

و برای این که دوباره مطالب از آخر به اول بیاد باید برنامه رو مجددا اجرا کنید ، امیدوارم منظورمو درک کرده باشید

 

منتظر راهنماییتون هستم

[مهدی ایزدی 9,203]

درود

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

فقط کافیه حلقه For رو درست بخونید.

مثلا به جای اینکه همچین چیزی رو بگید:

Sub Button1_Click
Dim words() = Regex.Split("#",EditText1.Text) As String
For i = 0 To words.Length-1
 ListView1.AddSingleLine(words(i))
Next
End Sub

میاد اینجور تعریف میکنید:

Sub Button1_Click
Dim words() = Regex.Split("#",EditText1.Text) As String
For i = 0 To words.Length-1
 ListView1.AddSingleLine(words((words.Length-1)-i))
Next
End Sub

موفق باشید

[sobhan90 12]

مرسی

این چطوری میشه ؟ *گاز*

Sub Activity_Create(FirstTime As Boolean)

       If File.Exists(File.DirInternal, "sms.db") = False Then
       File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
       End If
       If SQL1.IsInitialized = False Then
       SQL1.Initialize(File.DirInternal,"sms.db",True)
       End If
cursur1 = SQL1.ExecQuery("SELECT sms FROM smstb")

       myfont = Typeface.LoadFromAssets("byekan.ttf")
       Activity.LoadLayout ("sv")

       For i = 0 To cursur1.RowCount - 1
       cursur1.Position = i
       text = cursur1.GetString("sms")
       ScrollView1.Panel.Color = Colors.Transparent

       Dim p1 As Panel
       p1.Initialize ("")
       p1.LoadLayout ("main")
       ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

       Label4.text = "عاشقانه"
       Label4.Typeface = Typeface.LoadFromAssets("byekan.ttf")

       btnshare.Tag = i
       btncopy.Tag = i
       btnnumber.text = i + 1
       btnnumber.Typeface = Typeface.LoadFromAssets("byekan.ttf")

       ht = art(text, Label1, myfont, 20)
       Label1.TextColor = Colors.Black
       p1.Height=ht+70dip
       PanelHeight=PanelHeight+ht+70dip
       Next
       ScrollView1.Panel.Height = PanelHeight
       Label5.text = "عاشقانه"
       Label5.Typeface = Typeface.LoadFromAssets("far_aman.ttf")
End Sub

[حسن قاسمی نیا 547]

روی کوری سرش هم باید اینو عمال کنید

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

کدی که مهندس ایزدی دادن عالیه.

ولی سورس شما،شما بیا حلقتو اینجور بنویس بیبن نتیجه کار چی میشه.بیسیک در دسرس ندارم تست کنم:

For i = cursur1.RowCount - 1 To 0 step - 1

[jeqele 563]

منم روش خودمو می گم.

تازه تو نرم افزار استفاده کردم و جواب میده.

Dim curser As Cursor
   curser = bank.ExecQuery2("QUERY")
   For i = 0 To curser.RowCount
       Dim j As Int = (curser.RowCount - 1) - i
       curser.Position = j
       DoEvents
   Next

[reza2001 587]

روی کوری سرش هم باید اینو عمال کنید

 

ممنون هم شهری

 

همین کاری که گفتی کردم   

[reza2001 587]

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

	Dim cur As Cursor

	cur = SQL1.ExecQuery("SELECT * FROM mytable")

	For i = 0 To cur.RowCount-1

		cur.Position = i

		ListView1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))

	Next

	cur.Close

باید کدوم قسمت رو ویرایش کنم تا دیتابیس رو برعکس بخونه ؟!

 

ممنون میشم راهنمایی کنید !

[reza2001 587]

 

برعکس کردن حلقه کار منطقی به نظر نمیاد استاندارد ترین روش برعکس خواندن اطلاعات از دیتابیس هست به این صورت :

	Dim cur As Cursor
	cur = SQL1.ExecQuery("SELECT * FROM mytable ORDER BY ID DESC")
	For i = 0 To cur.RowCount-1
		cur.Position = i
		ListView1.AddSingleLine2(cur.GetString("list"),cur.GetInt("id"))
	Next
	cur.Close

 

بله این بهترین راه هست ، ممنون از راهنماییتون