تقييم الموضوع :
  • 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 ك ب / التحميلات : 20)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: 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] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 55 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 116 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 50 19-05-17, 04:09 PM
آخر رد: e-coder
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 72 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  استيراد البيانات من الاكسيل salah mansour 1 55 18-05-17, 06:28 AM
آخر رد: khaled12345
  كيف تكون جملة insert في جدول بشرط وفي خلية واحدة فقط ahmedfa71 0 36 16-05-17, 07:05 PM
آخر رد: ahmedfa71
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 93 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  ما الخطأ في حفظ جدول إلى ملف نصي ahmedfa71 14 284 15-05-17, 05:47 PM
آخر رد: العواد الصغير
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 130 14-05-17, 11:01 AM
آخر رد: rabeh.ram

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


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