هذا الكود حق القرعه وشغال . بس كيف اخلي الاسم مايتكرر ؟ بليز تعديل فقط عالكود

وعليكم السلام أم عبد الله

ممكن تجربى كلمة DISTINCT بعد select مباشرة كالتالى

SELECT DISTINCT nstudent FROM ns WHERE nclass = '" & ComboBox1.SelectedItem

جربت ولا زال يكرر اخوي ؟

ضيفي كود الصفحة لنرى طريقة سير البيانات ...

الكود في الفورم هذا لقراءة اسم الفصل ووضعه في الكومبوبوكس

والكود في البوتون لاستدعاء اسم طالب عشوائي من الفصل المحدد في الكومبو بوكس

المطلوب : عدم تكرار الاسم أكثر من مرة

 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dbcon.Open()

        sql = "select nclass from nclass "
        Dim comm As New OleDbCommand(sql, dbcon)
        MyReader = comm.ExecuteReader

        While MyReader.Read()
            ComboBox1.Items.Add(MyReader("nclass"))
        End While


        dbcon.Close()

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dbcon.Open()
        Dim cmd As New Data.OleDb.OleDbCommand("select DISTINCT nstudent from ns where nclass='" & ComboBox1.SelectedItem & "' ", dbcon) '<<نضع اسم الجدول 

        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)

        dbcon.Close()
    End Sub

اذا كان الجدول فيه id بعد ما يطلع لك اسم الطالب سوي delete للطالب اللي طلع اسمه واذا ما تبغين تسوين delete سوي كويري اختيار الأسم العشوائي

Dim cmd As New Data.OleDb.OleDbCommand("select DISTINCT nstudent from ns where nclass='" & ComboBox1.SelectedItem & "' ", dbcon) '<<نضع اسم الجدول

هذي الكويري زيدي عليها شرط and id!=id للطالب اللي سبق طلع اسمه وبس

لا اخوي ماابغى اسوي حذف

ومافهمت كويري

نفرض انك سويتي القرعة وطلع الاسم المخزن حسام المقحم هذا اللي طلعت القرعة عليه :happy:

ومثل ما فرضت انا انك عندك حقل id في الجدول اللي انتي مصممته ونفرض ايضا ان حسام الـ id الخاص فيه يساوي 20

القرعة القادمة المرة الثانية تكون بالشكل هذا:

select nstudent from ns where nclass='" & ComboBox1.SelectedItem & "' " and id!=20

حسام المقحم كتب:

نفرض انك سويتي القرعة وطلع الاسم المخزن حسام المقحم هذا اللي طلعت القرعة عليه :happy:

ومثل ما فرضت انا انك عندك حقل id في الجدول اللي انتي مصممته ونفرض ايضا ان حسام الـ id الخاص فيه يساوي 20

القرعة القادمة المرة الثانية تكون بالشكل هذا:

select nstudent from ns where nclass='" & ComboBox1.SelectedItem & "' " and id!=20

بالضبط .. مثل ما تفضل به الاخ حسام المقحم .. وتخزني الــ ID في ViewState بسبب الــ PostBack على الصفحه .

جربت بس ماينفذ يعطيني خطأ في da.Fill(dt)

يظللها بالاصفر

mamababadada كتب:

بالضبط .. مثل ما تفضل به الاخ حسام المقحم .. وتخزني الــ ID في ViewState بسبب الــ PostBack على الصفحه .

كما تفضلو الأخوة ....

ولكن أعتقد أن سبب الخطأ في جملة select

جربي كتابة الكود من غير ComboBox1.SelectedItem

  select nstudent from ns where  id!=20

بالنسبة لرقم ال ID حالولي تخزينة في متغير أثناء عمل load للصفحة و أستخدمي المتغير في

جملة Select لعدم تكرار اسم صاحب رقم ال ID.

وإن شاء الله يشتغل.

...................

نفس الشي يعطيمي خطأ :(

لما كتبتي الكود التالي:

select nstudent from ns where nclass='" & ComboBox1.SelectedItem & "' " and id!=20

وظهرت رسالة خطأ في :

ما الذي كتبته بدل الرقم 20 أم كتبتي الكود كما هو ؟ وهل هناك ID رقمه 20 في الجدول.

اكملت الحل على الموضوع السابق

/index.php?showtopic=213859

ما هو نوع قاعدة البيانات hgjd jsjo]ldkih ??????? واذا كانت sql server ساكتب لكي طريقة علمية وصحيحة 100 لذلك ولكن تعمل علي sql server

اقتباس

ما هو نوع قاعدة البيانات hgjd jsjo]ldkih ??????? واذا كانت sql server ساكتب لكي طريقة علمية وصحيحة 100 لذلك ولكن تعمل علي sql server

المشكلة ان قاعدة البيانات هي اكسس