Dim Conn As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Hide form while drawing to prevent flickering
Me.Visible = False
'set up tab control
TabControl1.Alignment = TabAlignment.Left
TabControl1.SizeMode = TabSizeMode.Fixed
TabControl1.DrawMode = TabDrawMode.OwnerDrawFixed
TabControl1.ItemSize = New Size(70, 130)
'Show form again once all drawing has been done
Me.Visible = True
Dim SQL As String = "SELECT stID, stName FROM tblStudent ORDER BY stName"
Dim sVal As String = "stID"
Dim disp As String = "stName"
FillComboStudent(SQL, sVal, disp, "Student")
SQL = "SELECT grID, grName FROM tblGroup ORDER BY grName"
sVal = "grID"
disp = "grName"
FillComboGroup(SQL, sVal, disp, "Group")
End Sub
Private Sub FillComboStudent(ByVal SQL As String, ByVal Sval As String, ByVal disp As String, ByVal tblName As String)
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0"
dbSource = "Data Source=" & Application.StartupPath & "\Student.mdb"
Conn.ConnectionString = dbProvider & ";" & dbSource
Conn.Open()
da = New OleDb.OleDbDataAdapter(SQL, Conn)
da.Fill(ds, tblName)
Conn.Close()
Dim bndStudentNames1 As New BindingSource
Dim bndStudentNames2 As New BindingSource
bndStudentNames1.DataSource = ds.Tables(tblName)
bndStudentNames2.DataSource = ds.Tables(tblName)
cboName.DataSource = bndStudentNames1
cboStudentName.DataSource = bndStudentNames2
cboName.ValueMember = Sval
cboName.DisplayMember = disp
cboStudentName.ValueMember = Sval
cboStudentName.DisplayMember = disp
End Sub
Private Sub FillComboGroup(ByVal SQL As String, ByVal Sval As String, ByVal disp As String, ByVal tblName As String)
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0"
dbSource = "Data Source=" & Application.StartupPath & "\Student.mdb"
Conn.ConnectionString = dbProvider & ";" & dbSource
Conn.Open()
da = New OleDb.OleDbDataAdapter(SQL, Conn)
da.Fill(ds, tblName)
Conn.Close()
Dim bndGroupNames1 As New BindingSource
Dim bndGroupNames2 As New BindingSource
Dim bndGroupNames3 As New BindingSource
Dim bndGroupNames4 As New BindingSource
Dim bndGroupNames5 As New BindingSource
bndGroupNames1.DataSource = ds.Tables(tblName)
bndGroupNames2.DataSource = ds.Tables(tblName)
bndGroupNames3.DataSource = ds.Tables(tblName)
bndGroupNames4.DataSource = ds.Tables(tblName)
bndGroupNames5.DataSource = ds.Tables(tblName)
cboStudentGroup.DataSource = bndGroupNames1
cboRegistersGroup.DataSource = bndGroupNames2
cboReportsGroup.DataSource = bndGroupNames3
cboAttendanceGroup.DataSource = bndGroupNames4
cboMaintGroupName.DataSource = bndGroupNames5
cboStudentGroup.ValueMember = Sval
cboStudentGroup.DisplayMember = disp
cboRegistersGroup.ValueMember = Sval
cboRegistersGroup.DisplayMember = disp
cboReportsGroup.ValueMember = Sval
cboReportsGroup.DisplayMember = disp
cboAttendanceGroup.ValueMember = Sval
cboAttendanceGroup.DisplayMember = disp
cboMaintGroupName.ValueMember = Sval
cboMaintGroupName.DisplayMember = disp
End Sub