ProgressBar1.Visible=True
LProgress.Visible=True
ProgressBar1.Progress=10
Log(dtaMainCat.Value)
Log(dtaSubCat.Value)
Log(dtaQuestionqty.Value)
Log(dtaDifficult.SelectedIndex)
If Sql2.IsInitialized = False Then 'in case the connection closes
Sql2.Initialize2("com.mysql.jdbc.Driver", "jdbc:mysql://162.215.***.76:3306/*z", "******user", "*****")
End If
'-----------------------------------------------
Dim numberofrecords As Int
numberofrecords=(Sql2.ExecQuerySingleResult2("Select count(*) FROM Questions_db WHERE `main_cat` LIKE ? and `subCat` LIKE ? and `difficulty` LIKE ? ",Array As String(dtaMainCat.Value, dtaSubCat.Value,dtaDifficult.SelectedIndex )))
Dim listofvalues As List
listofvalues.Initialize
Dim listofquestions As List
listofquestions.Initialize
Dim rp As ResultSet
rp = Sql2.ExecQuery2("Select ques_id, main_cat, subCat,question,correct_no,answer1,answer2,answer3,answer4, difficulty FROM Questions_db WHERE `main_cat` LIKE ? and `subCat` LIKE ? and `difficulty` LIKE ? ",Array As String(dtaMainCat.Value, dtaSubCat.Value,dtaDifficult.SelectedIndex ))
Dim ListOfMaps As List
ListOfMaps.Initialize
Do While rp.NextRow
Log("Question ID -"&rp.Getint("ques_id"))
listofvalues.Add(rp.Getint("ques_id"))
Loop
ProgressBar1.Progress=30
Log("List of Values size "&listofvalues.Size)
Dim rndQues As Int
Dim curcount As Int
For curcount = 1 To (dtaQuestionqty.Value)
rndQues=(Rnd(0,listofvalues.Size-1))
listofquestions.Add(listofvalues.Get(rndQues))
Log("New Random question "&listofquestions.Get(curcount-1))
Log("list of values size "&listofvalues.Size)
listofvalues.RemoveAt(rndQues)
Next
Dim ProgressValue As Int
ProgressValue=100-dtaQuestionqty.Value
ProgressBar1.Progress=ProgressValue
For curcount = 1 To (dtaQuestionqty.Value)
Sql2.ExecNonQuery2("INSERT INTO game_ques_db VALUES (?,?,?)", Array As Object(GloGameID,curcount,listofquestions.Get(curcount-1)))
Log("uploaded "&curcount&" of "&(dtaQuestionqty.Value))
ProgressValue=100-dtaQuestionqty.Value+curcount
Next
