تقييم الموضوع :
  • 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] مثال +سؤال اضافة حذف عرض السجلات ahmedalans 6 160 10-05-17, 06:06 PM
آخر رد: ahmedalans
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,566 10-05-17, 03:13 PM
آخر رد: safalo
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 82 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 66 17-04-17, 07:13 PM
آخر رد: djelloul
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 8 848 03-04-17, 02:48 AM
آخر رد: ابو إياد
  استفسار حول عدم تكرار البيانات المتألق9 3 145 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 180 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 150 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 163 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 165 28-02-17, 03:27 PM
آخر رد: djelloul

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


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