كيف اسوي قرعة لأسماء مخزنة في قاعدة بيانات اكسس ؟

وعليكم السلام

اذا كان ما فيه حقل id ممكن من خلاله تعرفين اول صف وآخر صف في قاعدة بياناتك يبغى لك كود يحسب كم صف في الجدول بعدها:

//C#
int RandomNumber = RandomClass.Next(4, 14);

'VB.NET
Dim RandomNumber As Integer
RandomNumber = RandomClass.Next(4, 14)

الأربعة تمثل البداية والأربعة عشر تمثل النهاية والرقم العشوائي راح يكون بينهم

للزيادة:

http://www.brettb.com/RandomNumbersInDotNet.asp

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

ولا طريقة عرضها في تكست بوكس

ممكن توضيح؟

السلام عليكم

ارجو ان يفي هذا الكود بالغرض

Dim Con As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb") 'نغير مكان واسم القاعدة
            Con.Open()
            Dim cmd As New Data.OleDb.OleDbCommand("select [name]  from table1" , Con) '<<نضع اسم الجدول

			 Dim da As New OleDbDataAdapter(cmd)

			Dim dt As New DataTable()
			da.Fill(dt)


		 Dim  rd  as new Random()
		 'نختار رقم عشوائي حسب عدد الصفوف في الجدول
         Dim RandomRow As Integer =  rd.Next(0, dt.rows.Count-1)	 
			 'نضع القيمة في مربع النص
			TextBox1.Text =dt.rows(RandomRow)(0)

وارجو ان لا يكون به اي خطأ لاني لم اجربه لكن افترض ان الفكرة وصلت والتي هي موجودة في آخر ثلاثة اسطر وماقبل ذلك هو الاتصال بقاعدة البيانات

يعطيك ألف عافية اخوي تمام وضبط

واشتغل

الله يجزاك ألف خير

بس اذا ممكن سؤالين ؟

في طريقة عشان الاسم مايتكرر ؟ مايطلع مرة ثانية ؟

والسؤال الثاني في طريقة لعرض الاسامي اول شي كاملة بشكل سريع وبعدين يتوقف على اسم معين ؟

السلام عليكم

مبدئيا هذا هو الكود الذي يعرض الاسماء دون تكرار ثم يتوقف على آخر اسم . لكن عرض الاسماء على السريع غير ممكن الا من خلال وضعهم في grid او list .

 'نضع هذا الكود في    Page_Load

        Dim Con As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb") 'نغير مكان واسم القاعدة
        Con.Open()
        Dim cmd As New Data.OleDb.OleDbCommand("select [name]  from table1", Con) '<<نضع اسم الجدول

        Dim da As New OleDbDataAdapter(cmd)

        Dim dt As New DataTable()
        da.Fill(dt)


        Dim rd As New Random()



        Dim list As New List(Of String)
        For i As Integer = 0 To dt.Rows.Count - 1
            list.Add(dt.Rows(i)(0))
        Next

        Dim index As Integer
        Dim item As String

        session("list") = list




        '---------------------------------
        'وهذا الكود في حدث الزر الذي سيعرض الاسماء


        Dim list As List(Of String)
        list = session("list")
        If list.Count = 1 Then  'عند بقاء عنصر في القائمة نبقيه كما هو 
            Exit Sub
        End If
        index = rd.Next(0, list.Count)
        item = list(index)
        list.RemoveAt(index) 'نحذف الاسم من القائمة حيث تم عرضه

        TextBox1.Text = item


        session("list") = list