Imports System.Data
Imports System.drawing.Size
Public Class frmMain
Inherits System.Windows.Forms.Form
Dim con As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String
Dim Num As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = Episodes.mdb" 'select database
con.Open() ' open database
Dim test As String = "1"
sql = "SELECT season FROM Episodes" ' set sql
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "episodes")
End Sub
Private Sub btnPick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPick.Click
Dim maxrows As Integer = ds.Tables("episodes").Rows.Count
Dim random As New System.Random() ' Create random number
Num = random.Next(1, maxrows).ToString ' Create random number
lblEp.Text = ds.Tables("episodes").Rows(Num).Item(0)
lblName.Text = ds.Tables("episodes").Rows(Num).Item(1)
lblSeason.Text = ds.Tables("episodes").Rows(Num).Item(2)
lblDiscNum.Text = ds.Tables("episodes").Rows(Num).Item(3)
lblDiscEp.Text = ds.Tables("episodes").Rows(Num).Item(4)
End Sub
End Class
thanks