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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 43 منذ 1 ساعه مضت
آخر رد: tifagreet
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 157 15-01-17, 02:11 PM
آخر رد: abudawoodd
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 94 14-01-17, 08:19 PM
آخر رد: كفاح
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 112 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 160 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 65 11-01-17, 02:13 AM
آخر رد: مساعدة
  منع تسجيل بيانات علي جدول الحركات بقاعدة بيانات sql خلال فترة زمنية (اقفال الفترة ا) السيد الجوهري 4 151 09-01-17, 07:22 PM
آخر رد: السيد الجوهري
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,835 04-01-17, 09:18 PM
آخر رد: jojo2014
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 343 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 133 01-01-17, 02:33 PM
آخر رد: صبري زينوبي

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


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