[princelovelorn]

(30-12-24, 09:11 PM)fireswored1 كتب : شكرا لك اخي الكريم ولكن اريد ان اسئلك سؤال هل الاسئل ممكن تكرر وكيف اقضي علي احتمالية تكرار نفس السؤال شكرا

لضمان عدم التكرار

كود :

Private Sub btnGetRandomData_Click(sender As Object, e As EventArgs) Handles btnGetRandomData.Click
   Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=مسار_قاعدة_البيانات.accdb;"
   Dim query As String = "SELECT اسم_العمود FROM اسم_الجدول"

   Using connection As New OleDbConnection(connectionString)
       Dim command As New OleDbCommand(query, connection)
       connection.Open()

       ' قراءة جميع القيم من العمود
       Dim reader As OleDbDataReader = command.ExecuteReader()
       Dim values As New List(Of String)

       While reader.Read()
           values.Add(reader("اسم_العمود").ToString())
       End While

       reader.Close()

       ' استخدام مجموعة لتخزين القيم التي تم اختيارها مسبقاً
       Dim selectedValues As New HashSet(Of String)()

       ' توليد رقم عشوائي لاختيار قيمة
       Dim random As New Random()
       
       If values.Count > 0 Then
           ' اختيار قيمة عشوائية غير متكررة
           Dim randomIndex As Integer
           Do
               randomIndex = random.Next(0, values.Count)
           Loop While selectedValues.Contains(values(randomIndex))

           ' إضافة القيمة المختارة إلى المجموعة
           selectedValues.Add(values(randomIndex))

           ' عرض القيمة العشوائية في Label
           LabelName.Text = values(randomIndex) ' استبدل LabelName باسم Label الخاص بك
       Else
           MessageBox.Show("لا توجد بيانات في العمود المحدد.")
       End If
   End Using
End Sub