تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة
#1
مساء الخير اخواني

اذا ممكن انا محتاج كود او مثال على جلب مجموعة ارقام متسلسلة من قاعدة البيانات وحفظها في مصفوفة بطريقة عشوائية

للتوضيح .. تكون الارقام في قاعدة البيانات كالتالي :
1
2
3
4
5
6
7
8
9
10


واريد جلبها من قاعدة البيانات جميعها وحفظها في مصفوفة بطريقة عشوائية على النحو التالي

(5،4،7،10،6،9،2،1،3،9،8)

اريدها ان تكون في المصفوفة بطريقة عشوائية


*************************************
وايضا اذا ممكن كود يعرف اكبر رقم في قاعدة البيانات وانشاء كل مرة رقم عشوائي من 1 الى اكبر عدد بالقاعدة .. وسيقوم بفحص اذا كان الرقم موجود في مصفوفة او لا .. اذا غير موجود يتم اضافته الى المصفوفة

المهم ما يكون في تكرار للارقام بالمصفوفة ويكون كل الارقام موجودة كما كانت في قاعدة البيانات ولكن تخزن بالمصفوفة بطريقة عشوائية


وشكرا لكم

يرجى إفادتي بأسرع وقت ممكن
الرد
تم الشكر بواسطة:
#2
فيما يختص ب جلب البيانات من الداتا بيز ف الأمر متروك لك لكن فيما يختص ببقية السؤال فيمكن تعريف مصفوفة للارقام
PHP كود :
 Dim list As List(Of Integer) = New List(Of Integer

ثم تضيف لها الارقام كما تريد إما من الداتا بيز او مثل التالي

PHP كود :
For 0 To 10
            list
.Add(i)
 
       Next 


ثم تقوم بإنشاء مصفوفة أخري للارقام العشوائية .....بالرغم إن نا مش فاهم السبب في عمل Randoize للارقام لكن الكود التالي سوف يقوم بعمل ما تريد

PHP كود :
       Dim randomList = list.ToArray()
 
       Dim r = New Random()
 
       For i As Integer = list.Count To 2 Step -1
            Dim j 
As Integer r.[Next](i)
 
           Dim t randomList(j)
 
           randomList(j) = randomList(1)
 
           randomList(1) = t
        Next 


هذا الكود فقط للتاكد من كيفية استخدام الارقام العشوائية بشكل ما
PHP كود :
       For Each item As Integer In randomList
            
' do something with randomlist
            ListBox1.Items.Add(item)
        Next 

هذه الاكواد للحصول علي اعلي قيمة و اقل قيمة في كل من المصفوفتان

PHP كود :
       Dim max As Integer randomList.Max
        Dim min 
As Integer randomList.Min

        
'' أو'

        Dim maxValue As Integer = Me.list.Max
        Dim minValue As Integer = Me.list.Min 
الرد
تم الشكر بواسطة: Sajad , Sajad
#3
in form1 write this:-
randomize
_______________
for i = 1 to 10
s i = data.feild1 mod int(rnd*10
_______________
for j = 1 to 10
print s i

هذا كل ما استطيع مساعتك به ... وشكراً...
الرد
تم الشكر بواسطة:
#4
اعتقد ان صاحب السؤال ،، سؤاله متعلق في انتقاء اسئله عشوائه من قاعدة البيانات ،،، يعني برنامج مسابقات ،، اذا كان كذلك ،، فاقتراحي لك بالاستفاده من الاكواد التي بالاعلى و الاعضاء ما قصروا :

اولا : توليد عشره ارقام عشوائه يبدا من اول رقم في قاعدة البيانات الى اخر رقم مدى اختيار الرقم العشوائي
ثانيا : البحث في قاعدة البيانات بالارقام العشوائيه التي تم اختيارها مثال على ذلك
Select Q From TableName Where Q_ID='1' OR Q_ID = '6' Or Q_ID = '30' Or Q_ID = '24' OR ... الى اخره
أو
Select Q From TableName Where Q_ID In ( '1' , '6' , '30' , '24' )
الرد
تم الشكر بواسطة:
#5
myalsailamyشكراًجزيلا علي الموضوع اود التواصل مع الاستاذ 

الايمل ديلي [email protected]
او لو تكرمت ممك تسيبلي الايمل ديلك هني او اكتبلي عندي مو ضوع شبيه الي هذا واريد الماعده
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ في الإتصال بقاعدة البيانات الموجودة على هذا السيرفر (ويندوز 10) djelloul 0 61 04-05-18, 12:14 AM
آخر رد: djelloul
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 72 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
Tongue ربط قاعدة بينات اكسل مع الفيجوال عمار عيثاوي 3 1,996 02-03-18, 05:13 PM
آخر رد: محمد بن عطية
  إضافة الصورة في قاعدة البيانات iFanfan 0 130 01-03-18, 06:02 PM
آخر رد: iFanfan
  كيف يمكن نسخ جدول من قاعدة بيانات الي اخري atefkhalf2004 9 160 30-01-18, 02:59 PM
آخر رد: atefkhalf2004
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 162 27-01-18, 06:07 PM
آخر رد: أبو عمر
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 209 04-11-17, 07:37 PM
آخر رد: larbihamri
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 272 23-10-17, 03:22 AM
آخر رد: khodor1985
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 7,723 04-10-17, 10:08 PM
آخر رد: sofiane0552
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 2,212 24-09-17, 08:23 PM
آخر رد: alsouf

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


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