تقييم الموضوع :
  • 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
هل يمكن لعمل نفس الطريقة بحيث انه لايقبل اختيار الاسم مرتين في نفس اليوم ؟؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 3 67 منذ 7 ساعة مضت
آخر رد: ali.alfoly
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 3 77 أمس, 05:10 PM
آخر رد: tryold
Photo جدول حصص مدرسة سيد درويش 0 36 أمس, 12:01 AM
آخر رد: سيد درويش
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 42 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 34 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 190 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 97 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 83 24-11-16, 12:14 PM
آخر رد: thevirus
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 119 23-11-16, 05:21 PM
آخر رد: hglogtd
  [VB.NET] الاتصال بقاعدة البيانات في التقارير (الكريستال ريبورت) thevirus 2 79 23-11-16, 11:05 AM
آخر رد: thevirus

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


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