Hello,
i have a program that gets data from random row in access database.
Code:
Dim con As New OleDb.OleDbConnection Dim dbProvider As String
Dim dbSource As String
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim sql As String
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = C:\Users\Timosoft\Documents\wwtbamDB.mdb"
con.ConnectionString = dbProvider & dbSource
con.Open()
sql = "SELECT TOP 1 * FROM Question1to5table ORDER BY Rnd(-10000000*TimeValue(Now())*[id])"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "QuestionsandAnswers")
con.Close()
Main1.QuestnBTN1.Text = ds.Tables("QuestionsandAnswers").Rows(0).Item(1)
Main1.Answerbtn1.Text = ds.Tables("QuestionsandAnswers").Rows(0).Item(2)
Main1.Answerbtn2.Text = ds.Tables("QuestionsandAnswers").Rows(0).Item(4)
Main1.Answerbtn3.Text = ds.Tables("QuestionsandAnswers").Rows(0).Item(3)
Main1.Answerbtn4.Text = ds.Tables("QuestionsandAnswers").Rows(0).Item(5)
the above sql code gets row at random and displays on my button.
How do i bind Item(2),Item(3),Item(4),Item(5) from the dataset to Answerbtn1,Answerbtn2,Answerbtn3,Answerbtn4 at random
Thanks