كيف يمكنني أن ادرج سجل من قاعدة بيانات بشكل عشوائي .....في الفيجول

تفضل أخي الكريم

على اعتبار أننا أضفنا خانة في قاعدة البيانات (ID) و تعني رقم السؤال

و نضيف هذه الإجرائية لتوليد رقم عشوائي بين 0 إلى 100 و يمكنك التحكم في رقم البداية و رقم النهاية

Dim RanNo() As Long
Private Sub RandomizeNumbers(ByVal iFrom As Integer, ByVal iTo As Integer)
ReDim RanNo(iFrom To iTo)
For i = iFrom To iTo
RanNo(i) = i
Next i
Randomize (Timer)
For i = iFrom To iTo
j = CInt((iTo - iFrom) * Rnd + iFrom)
tmp = RanNo(i)
RanNo(i) = RanNo(j)
RanNo(j) = tmp
Next i
End Sub

Private Sub Command1_Click()
RandomizeNumbers 0, 100

msgbox RanNo(i)

End Sub

ثم نقوم بعمل استعلام SQL و نضع في شرط

SELECT * FROM tbl1  WHERE id=RanNo(i)

السلام عليكم

أخى الكريمsalehr3

الفكره جديده فعلا ممرتش عليا قبل كده

بس ممكن أخى الفريد

تفسر الكود شويه

السلام عليكم

أخى الكريم الفريد حياك الله وبارك الله فيك

للحومل علي قيمة عشوائية فيكفي الجملة التالية

num = Int(Rnd() * 100)

اما بالنسبة لسؤال الأخ salehr3

بما أنك تستخدم المكتبة ADO3.6 كما في سؤالك القبل هذا فسأستخدم نفس طريقتك للتعامل مع القاعدة

فلنفرض ان اسم الجدول Question

والحقول هي Question , Answer1 , Answer2 , Answer3

Dim DB As Database
Dim QuestionsRec As Recordset
Dim MAX_NUMBER As Integer

Private Sub Command1_Click()
	Randomize
	Dim num  As Long
	num = Int(Rnd() * MAX_NUMBER)
	QuestionsRec.MoveFirst
	QuestionsRec.Move num
	Label1.Caption = toString(QuestionsRec(0).Value)
	Label2.Caption = toString(QuestionsRec(1).Value)
	Label3.Caption = toString(QuestionsRec(2).Value)
	Label4.Caption = toString(QuestionsRec(3).Value)
End Sub

Function toString(recValue) As String
	If Not IsNull(recValue) Then toString = recValue
End Function

Private Sub Form_Load()
	Set DB = DBEngine.OpenDatabase(App.Path & "\db1.mdb")
	SQL = "Select * from questions"
	Dim tRec
	Set tRec = DB.OpenRecordset("select count(question) from questions")
	MAX_NUMBER = tRec.Fields(0).Value
	tRec.Close
	Set QuestionsRec = DB.OpenRecordset(SQL)
End Sub

Private Sub Form_Unload(Cancel As Integer)
	DB.Close
End Sub

اما اذا أضفت حقل ID للسؤال وهو الافضل

فاستخدم الكود التالي

Dim DB As Database
Dim QuestionsRec As Recordset
Dim MAX_NUMBER As Integer

Private Sub Command1_Click()
	Randomize
	Dim num  As Long
	num = Int(Rnd() * MAX_NUMBER) + 1
	'you can use as the brother fared said
	'Set QuestionsRec = DB.OpenRecordset("select * from students where id=" & num)
	QuestionsRec.FindFirst "ID=" & num
	Label1.Caption = toString(QuestionsRec("Question").Value)
	Label2.Caption = toString(QuestionsRec("answer1").Value)
	Label3.Caption = toString(QuestionsRec("answer2").Value)
	Label4.Caption = toString(QuestionsRec("answer3").Value)
	'QuestionsRec.Close
End Sub

Function toString(recValue) As String
	If Not IsNull(recValue) Then toString = recValue
End Function

Private Sub Form_Load()
	Set DB = DBEngine.OpenDatabase(App.Path & "\db1.mdb")
	Dim tRec
	Set tRec = DB.OpenRecordset("select count(Question) from questions")
	MAX_NUMBER = tRec.Fields(0).Value
	tRec.Close
	Set tRec = Nothing

	SQL = "Select * from questions"
	Set QuestionsRec = DB.OpenRecordset(SQL)
End Sub

Private Sub Form_Unload(Cancel As Integer)
	DB.Close
End Sub

بالنسبة للكود الذي أنا وضعته هو للحصول على أرقام عشوائية صحيحة غير مكررة

و بالنسبة للإجراء الذي وضعته في الcommand هو للتسهيل في عدد الأرقام المطلوبة من ناحية الرقم الأقل و الرقم الأكثر و هي مفيدة في مثل حالة السؤال .... فلو كان الرقم العشوائي 1.12 (ظهرت عندي أرقام أكبر من الواحد الصحيح ) و ضربناه في 100 فسيكون الناتج 112 و هذا الرقم غير موجود بالقاعدة و سيظهر خطأ ().

و هذا السطر لإظهار الرقم و بالإمكان وضعه في حلقة تكرار For...next

RanNo(i)

و شكراً للجميع

Example1.zip

في حل اخر انك تضيف حقل اخر به رقم السؤال وليكن اسمه nn

وعند فتح السؤال يتم اختياررقم السؤال عشوائي

وإليك الكود

dim a as Integer

a=rnd()*100

If RS![NN] = Val(ww) Then

label1 1=rs![اسم الحقل]

وهكذا

end if

__________________

سورس وكود برنامج التجسس علي لوحه المفاتيح

برنامج رسم تصميمي

لعبه لغز الارقام من تصميمي

لعبه سيجا من تصميمي

لعبه اكس و اووووووووو

برنامج لحساب عمرك برمجه كامله دون الاستعانه بدوال vb

لعبه الكره الناريه

شكرا جزيلا أخي الفريد ع توضيحك لي طريقة التوليد العشوائي ... فهي تنفع للأسئلة ... وع الكود الرائع

والشكر موصل لمحب الرسول ....... مشكور محب الرسول وشكرا على وضع الكود الكامل والحقيقة طبقته وكان رائع وفعال ....

أخي hythamzero مشكور على الكود ... والحمدلله كل الطرق نافعت ... وزادكم الله علما ...

الحين وبعد ما أدرجت الأسئلة بشكل عشوائي كيف أقسم الإجابات الخاطئة والصحيحة بحيث عند الضغط ع إحدى الإجابات تطلع لي رسالة بأن إجابتك مثلا خاطئة ... يعني هل ستكون قاعدة البيانات لها دور في ذلك أم بدالة معينة أستطيع فعل ذلك ....ولكم جزيل الشكر والتقدير ....

العفو يا غالي

و إجابة لسؤالك

تضيف خانة في قاعدة البيانات و يكون مخزن فيها رقم الاجابة الصحيحة

مشكور أخوي الفريد على مساعدتك الطيبة ... وإن شالله بجرب الطريقة ... تحياتي الحارة لك ..

السلام عليكم

حياكوا الله اخواني

اسف اخي الفريد كلامك سليم بالنسبة لعدم تكرار الرقم

فلم ادقق في الكود الذي كتبته غلطة مني واستعجال

ولكن بانسنة لل

اقتباس

فلو كان الرقم العشوائي 1.12 (ظهرت عندي أرقام أكبر من الواحد الصحيح ) و ضربناه في 100 فسيكون الناتج 112 و هذا الرقم غير موجود بالقاعدة و سيظهر خطأ ().

ناتج الدالة ()Rnd

Rnd() <=0 and <1

فلن يحصل خطا لان ناتج rnd هو دائما اقل من واحد

وهذا الرابط من موقع مايكروسفت بحثت عنه في MSDN

Rnd Function (Visual Basic)

و عليكم السلام و رحمة الله و بركاته

الأخ الفاضل : salehr3 الله يوفقك في الانتهاء من تصميم برنامجك

الأخ الفاضل الحبيب محب الرسول ... كتبت لك الرد السابق و أنا أعلم أن قيمة rnd لا تتجاوز الواحد بأي حال من الاحوال ... لكن لم انتبه أنها مضروبة ×10 مرفوعة للأس -2 E-2

و دمتم بود