[العزابي]

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

وهذا صفحة الكود بالكامل

كود :

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

---

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