21-10-13, 01:26 AM
السلام عليكم ورحمة الله وبركاته
أخواني الكرام كانت لدي مشكلة في السجل العشوائي والحمد لله قمت بالحل بعد الإستناد على فكرة ابو رائد . ولاكن توجد لدي مشكلة وهي لااستطيع التقدم بالسجلات
وكود التقدم
ولاكن المشكلة أنه لايقوم بالتقدم للسجل التالي . مالحل بارك الله بكم
تحياتي
أخواني الكرام كانت لدي مشكلة في السجل العشوائي والحمد لله قمت بالحل بعد الإستناد على فكرة ابو رائد . ولاكن توجد لدي مشكلة وهي لااستطيع التقدم بالسجلات
كود :
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()
ولاكن المشكلة أنه لايقوم بالتقدم للسجل التالي . مالحل بارك الله بكم
تحياتي