تقييم الموضوع :
  • 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شكراًجزيلا علي الموضوع اود التواصل مع الاستاذ 

الايمل ديلي elgahel_ahmed@live.it
او لو تكرمت ممك تسيبلي الايمل ديلك هني او اكتبلي عندي مو ضوع شبيه الي هذا واريد الماعده
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 84 04-11-17, 07:37 PM
آخر رد: larbihamri
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 89 23-10-17, 03:22 AM
آخر رد: khodor1985
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 6,422 04-10-17, 10:08 PM
آخر رد: sofiane0552
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,774 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 206 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 244 15-08-17, 02:11 PM
آخر رد: abozeyd
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 349 07-08-17, 11:26 PM
آخر رد: أبو نوره
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 230 19-07-17, 03:24 PM
آخر رد: waelalmsry75
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 344 19-07-17, 01:58 PM
آخر رد: Jounior_P
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 279 16-07-17, 02:56 AM
آخر رد: ابو ليلى

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


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