گرفتن متن تصادفی از دیتابیس آنلاین

[abbas2142 557]

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

و اطلاعاتشون رو به صورت تصادفی یا رندم اجرا کنم 

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

Select job.JobName
			Case "get"
				Dim DATA As List
				DATA = parser.NextArray
				For i = 0 To DATA.Size - 1
					Dim m As Map
					m = DATA.Get(i)
					lblname.Text = m.Get("name")
					lblmatn.Text = m.Get("matn")
				Next
						
		End Select

 

[abbas2142 557]

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

کد اصلی این میشه

Select * FROM payam ORDER BY RAND()

 

[Mr Silence 137]

درود 

نیاز نیست داخل حلقه رو تغییر بدید

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

 

SELECT column FROM table ORDER BY RAND()