[العزابي]

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

اخواني أنا لدي برنامج اختبارات . وامر الاستعلام العشوائي لدي هاكذا

كود :

SELECT      QuestionID, Question, AnswerA, AnswerB, AnswerC, AnswerD, CorrectAnswer
FROM          EntranceQuestion
ORDER BY rnd(QuestionID)

ولكن تكمن المشكلة في انه عند الضغط على الفورم يعيد نفس التكرار . مثل ان يبداء من
7
2
9
1
6

وانا اريده ان يتغير في كل مرة عند الضغط على الفورم . مالحل السهل لهذه المهمة بارك الله فيكم

[@@أبورائد@@]

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

جرب هذا في الجملة

كود :

ORDER BY NEWID()

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

كود :

#Region " RangeRND (minValue As Integer, maxValue As Integer) As Array "
    Public Function RangeRND(ByVal minValue As Integer, ByVal maxValue As Integer) As Array
        If (minValue < 0) Or (minValue >= maxValue) Then Return Nothing
        minValue += 1 : maxValue += 1
        Dim mArray(maxValue - minValue) As Integer
        For i = 0 To (maxValue - minValue)
[lp]:       Randomize()
            Dim mValue As Integer = CInt(Int((maxValue * Rnd()) + minValue))
            For Each r In mArray
                If mValue = r Or mValue > maxValue Then GoTo [lp]
            Next
            mArray(i) = mValue
        Next
        For i = 0 To mArray.Length - 1
            mArray(i) -= 1
        Next
        Return mArray
    End Function
#End Region

وطيقة استخدامها كالتالي

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' mDataTable بعد تعبئة

    Dim arr() As Integer = RangeRND(1, 15)

    For Each i As Integer In arr
        Me.ListBox1.Items.Add(mDataTable.Rows(i).Item("name"))
    Next

End Sub

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

[العزابي]

الف شكر لك جاري التجربة .

تحياتي