تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود يختار سجل من جدول في قاعدة البيانات عشوائيا ويعرض في النموذج
#1
السلام عليكم
اخواني الكرام
عندي مجموعة سجلات اريد كود يقوم باختيار سجل منهم عشوائيا ويعرضه في الفورم
الهدف العظيم يحتاج الى جهد عظيم
الرد }}}}
تم الشكر بواسطة:
#2
اذا تقصد فكرة عامة
فاذا ربطت عن طريق داتاتايبل فتحتاج كود بسيط كالتالي

PHP كود :
       Me.BindingContext(dt).Position Int(Rnd() * dt.Rows.Count 1


PHP كود :
Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
 
   Dim da As New OleDb.OleDbDataAdapter("select * from tb"con)
 
   Dim dt As DataTable
    Private Sub gd
()
 
       dt = New DataTable
        da
.Fill(dt)
 
       gp()
 
       tid.DataBindings.Add("text"dt"tid")
 
       tname.DataBindings.Add("text"dt"tname")
 
       dt.Dispose()
 
   End Sub
    Private Sub gp
()
b:
 
       Dim p As Integer Int(Rnd() * dt.Rows.Count 1)
 
       If Me.BindingContext(dt).Position p Then GoTo b
        Me
.BindingContext(dt).Position p
    End Sub


    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        gp
()
 
   End Sub
End 
Class 
  وهذا كلاس المثال


الملفات المرفقة
.zip   For_abdalla89.zip (الحجم : 89.22 ك ب / التحميلات : 19)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: abdalla89
#3
جزاك الله خيرا عني اخي الكريم
لكني لاحظت ان الاختيارات العشوائية تبقى كما هي في كل مرة دون تغير فقد لاحظت انه اختار السجل 14 ثم 10 وهكذا في كل مرة افتح فيه البرنامج يعني كل ما افتح البرنامج يكون الخيار الاول السجل 14 ثم السجل 10
الهدف العظيم يحتاج الى جهد عظيم
الرد }}}}
تم الشكر بواسطة:
#4
جرب تكتب بحدث تحميل الفورم كلمة Randomize
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
يمكنك بتغيير بسيط في كود الأخ سعود
كود :
Dim r As New Random
Dim p As Integer = r.Next(0, dt.Rows.Count - 1)

مع ملاحظة أن تعريف New Random يتم في سطر مستقل ولا يدمج
الرد }}}}
تم الشكر بواسطة: سعود
#6
هل يمكن لعمل نفس الطريقة بحيث انه لايقبل اختيار الاسم مرتين في نفس اليوم ؟؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح لطريقة ربط أكثر من جدول اكسس ؟ أبووسم 5 117 منذ 11 ساعة مضت
آخر رد: أبووسم
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 65 21-02-17, 09:03 PM
آخر رد: noway
  [سؤال] اريد مثال على طريقة ادراج صورة من السكانر ناصر شير 0 28 20-02-17, 02:45 PM
آخر رد: ناصر شير
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 107 20-02-17, 04:27 AM
آخر رد: khodor1985
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 99 18-02-17, 02:19 PM
آخر رد: Amrjamil
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 73 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 59 12-02-17, 08:06 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 47 12-02-17, 06:19 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 4 94 12-02-17, 06:17 PM
آخر رد: مساعدة
Question [سؤال] اريد حل لهذه المشكلة دعم العربية shwehdi4pc 1 89 11-02-17, 02:35 AM
آخر رد: مساعدة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم