تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة التقدم في BindingSource
#1
السلام عليكم ورحمة الله وبركاته

أخواني الكرام كانت لدي مشكلة في السجل العشوائي والحمد لله قمت بالحل بعد الإستناد على فكرة ابو رائد . ولاكن توجد لدي مشكلة وهي لااستطيع التقدم بالسجلات

كود :
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim EntranceQuestion As OleDbCommand = New OleDbCommand("SELECT QuestionID,Question,AnswerA,AnswerB,AnswerC,AnswerD,CorrectAnswer from EntranceQuestion", con)

        DataAdapter1 = New OleDbDataAdapter(EntranceQuestion)
        Dim builder1 As New OleDbCommandBuilder(DataAdapter1)

        DataSet1 = New DataSet()
        DataAdapter1.Fill(DataSet1, "EntranceQuestion")
        'انشاء بندج سورز جديد وادراج الداتاست والجدول بداخله للجدول الاول

        BindingSource1 = New BindingSource(DataSet1, "EntranceQuestion")
      
        Randomize()
        Dim rn As New Random
        Dim nb As Integer = rn.Next(0, BindingSource1.Count)

        QuestionIDTextBox.Text = BindingSource1.Item(nb)("QuestionID")
        QuestionTextBox.Text = BindingSource1.Item(nb)("Question")
        AnswerALabel2.Text = BindingSource1.Item(nb)("AnswerA")
        AnswerBLabel2.Text = BindingSource1.Item(nb)("AnswerB")
        AnswerCLabel2.Text = BindingSource1.Item(nb)("AnswerC")
        AnswerDLabel2.Text = BindingSource1.Item(nb)("AnswerD")
        CorrectAnswerTextBox.Text = BindingSource1.Item(nb)("CorrectAnswer")

    End Sub

وكود التقدم

كود :
BindingSource1.MoveNext()

ولاكن المشكلة أنه لايقوم بالتقدم للسجل التالي . مالحل بارك الله بكم

تحياتي
الرد }}}
تم الشكر بواسطة:
#2
هل التكست بوكس ... مربوط ... بالحقل ...؟

ارفع المثال ... للاطلاع علية
الرد }}}
تم الشكر بواسطة:
#3
مرحبا أخي مالك .
كان بودي ارفق المشروع بالكامل ولاكن الدنيا ملخبطة وفيه اكثر من شغلة راح تتوه الشخص . أنا راح ارفق المشروع بالكامل
عند الإنتهاء منه .. وهو مشروع إختبارات مثل الي بالمعاهد .

وهذا صفحة الكود بالكامل
كود :
Imports System.Data.OleDb

Public Class Form2
    Public con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb;Persist Security Info=False;")
    Dim DataSet1 As New DataSet
    Dim DataAdapter1 As New OleDbDataAdapter
    Dim BindingSource1 As BindingSource

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

        Dim EntranceQuestion As OleDbCommand = New OleDbCommand("SELECT QuestionID,Question,AnswerA,AnswerB,AnswerC,AnswerD,CorrectAnswer from EntranceQuestion", con)

        DataAdapter1 = New OleDbDataAdapter(EntranceQuestion)
        Dim builder1 As New OleDbCommandBuilder(DataAdapter1)

        DataSet1 = New DataSet()
        DataAdapter1.Fill(DataSet1, "EntranceQuestion")
        'انشاء بندج سورز جديد وادراج الداتاست والجدول بداخله للجدول الاول

        BindingSource1 = New BindingSource(DataSet1, "EntranceQuestion")
      
        Randomize()
        Dim rn As New Random
        Dim nb As Integer = rn.Next(0, BindingSource1.Count)

      

        QuestionIDTextBox.Text = BindingSource1.Item(nb)("QuestionID")
        QuestionTextBox.Text = BindingSource1.Item(nb)("Question")
        AnswerALabel2.Text = BindingSource1.Item(nb)("AnswerA")
        AnswerBLabel2.Text = BindingSource1.Item(nb)("AnswerB")
        AnswerCLabel2.Text = BindingSource1.Item(nb)("AnswerC")
        AnswerDLabel2.Text = BindingSource1.Item(nb)("AnswerD")
        CorrectAnswerTextBox.Text = BindingSource1.Item(nb)("CorrectAnswer")

    End Sub
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BindingSource1.MoveNext()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        BindingSource1.MovePrevious()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        BindingSource1.MoveFirst()
    End Sub


End Class

هذه صورة للناتج .. طبعاً باقي أشتغل فيه Blush

الرد }}}
تم الشكر بواسطة:
#4
الحمد لله بعد المعاناه الشديدة Big Grin وعصر المخيخ لقيت فكرة مجنونة عند واحد أجنبي وبسيطة مرة هههههههه

وهي أن أعمل كم فورم يعني 5 فورم . ثم ادخل الكود التالي في بوتون

كود :
Dim Random As Integer
Random = CInt(Int(5 * Rnd() + 2))
If Random = 2 Then
Dim Form As New Form2
Form.Show()
ElseIf Random = 3 Then
Dim Form As New Form3
Form.Show()
ElseIf Random = 4 Then
Dim Form As New Form4
Form.Show()
ElseIf Random = 5 Then
Dim Form As New Form5
Form.Show()
End If

طبعاً في كل فورم للقاعدة نغير الأستعلام RND() ونضرب في 3 .. والفورم الاخر نغير في استعلامه بالضرب في 8 وهاكذا
Big GrinBig GrinBig GrinBig GrinBig GrinBig Grin

شكرا وتحياتي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى الجريد فيو salah525 10 540 05-11-23, 08:15 PM
آخر رد: justforit
Big Grin مشكلة لسه ماحدش جاوبني عليها cmd.excutenunquery Medo84 1 1,304 27-08-23, 12:47 PM
آخر رد: رضوان الجماعي
  مشكلة عند الاتصال ب sql server 2014 bassant 1 1,004 27-08-23, 12:26 PM
آخر رد: رضوان الجماعي
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  مشكلة عند الاتصال ب sql server 2014 bassant 4 1,415 16-09-21, 02:52 PM
آخر رد: asemshahen5
  [سؤال] مشكلة اضافة التاريخ مع قاعدة بيانات alims 6 2,335 25-01-21, 02:45 AM
آخر رد: alims
  مشكلة في إظهار عمود التاريخ في داتا جريد فيو mofhmy 5 6,557 12-11-20, 12:13 PM
آخر رد: bahaa.elkomy@yahoo.com
Heart مشكلة ال ID في عدم تخزين وترتيب البيانات بشكل منتظم الرائد 5 3,163 18-07-19, 01:42 AM
آخر رد: الرائد
  [سؤال] مشكلة بـ كود جمع حقل الاجمالي norman 0 1,836 06-07-19, 02:47 AM
آخر رد: norman

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


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