چطور میشه رکورد های بانک اکسس رو به صورت تصادفی نمایش داد؟

[hex161]

با سلام.‏
من می خواهم برنامه ای بنویسم که هر 20 ثانیه متن هایی رو که تو دیتابیس اکسسم هست به صورت تصادفی ‏نمایش بده.همه کار انجام شده فقط مشکل اینجاست که نمیدونم چطور رکورد رو پیدا کنم مثلا رکورد 10یا ‏غیره.‏
و یه سوال دیگه هم اینکه : من واسه این کار ، از اکسس استفاده کردم . راه دیگه ای هست که بشه متنهای ‏خودم رو توی یک فایل بریزم و بشه ازشون استفاده کرد؟(این برنامه تقریبا شبیه به یک نکته روز هست).‏
ممنون.‏

[MM_Mofidi]

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

[bachemosbat]

می تونی یه فیلد برای شماره گذاری رکوردها بسازی و با دستور Find بصورت سریع اون رکورد رو با استفاده از شماره اش پیدا کنی و بعد جمله مورد نظرتو استخراج کنی. برای پیدا کردن تصادفی جمله ها می تونی از تابع RND استفاده کنی که عدد اعشاری بین صفر یک درست می کنه.برای نمونه کد زیر
dim i as integer
i=(Rnd*20)mod 20
اعداد صحیح بین صفر تا 19 تولید می کند که اگر یکی به آن بیفزاییم
dim i as integer
i=(Rnd*20)mod 20+1
اعداد صحیح بین یک تا 20 تولید خواهد کرد

[حامد مصافی]

سلام
چیزی مشابه این


Dim rc As New ADODB.Recordset

...


Private Function GetText() As String
Dim i As Integer
Randomize
i = Int(Rnd * rc.RecordCount)
rc.Move i
GetText = rc!FieldName
End Function


به جای FieldName نام فیلد مورد نظر باید باشه