hi everyone! below i will be showing you the codes of my scheduling module for an enrollment system..my problem is that on how to set conflict. i included a screenshot of the interface for further understanding... i hope you could help me...
here is the code:
Option Explicit On
Imports System.Data
Imports System.Data.OleDb
Public Class Scheduling
Dim con As OleDbConnection
Dim com As New OleDbCommand
Dim cmd As OleDbCommandBuilder
Dim ds As DataSet
Dim da As New OleDbDataAdapter
Dim lastrow As Integer
Dim myrow As Data.DataRow
Dim rid As OleDbDataReader
Private Sub Button2_Click(ByVal sEer As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ListView1.Items.Count <> 8 Then
MsgBox("There must be eight subjects!", MsgBoxStyle.Information, "Warning")
ElseIf ComboBox1.Text = "First Year" Then
For i = 0 To ListView1.Items.Count - 1
con = New OleDbConnection("Provider=Microsoft.ace.oledb.12.0;Data Source=C:\Users\edenzam\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")
da.SelectCommand = New OleDbCommand("Select* from Schedulings", con)
cmd = New OleDbCommandBuilder(da)
If con.State = ConnectionState.Closed Then con.Open()
ds = New DataSet
da.Fill(ds, "Schedulings")
ds.Tables("Schedulings").Rows.Add()
lastrow = ds.Tables("Schedulings").Rows.Count - 1
myrow = ds.Tables("Schedulings").Rows.Item(lastrow)
myrow.Item("YearLevels") = ComboBox1.Text
myrow.Item("Sections") = ComboBox3.Text
myrow.Item("SectionNames") = TextBox9.Text
myrow.Item("Adviser") = TextBox1.Text
myrow.Item("SubjectTeacher") = TextBox2.Text
myrow.Item("SubjectNames") = ComboBox7.Text
myrow.Item("Days") = ComboBox2.Text
myrow.Item("StartTimes") = ComboBox4.Text
myrow.Item("EndTimes") = ComboBox5.Text
myrow.Item("Rooms") = ComboBox6.Text
ds.Tables("Schedulings").GetChanges()
cmd.GetInsertCommand()
da.Update(ds, "Schedulings")
con.Close()
Next i
MsgBox("Registration Successful")
ElseIf ComboBox1.Text = "Second Year" Then
For i = 0 To ListView1.Items.Count - 1
con = New OleDbConnection("Provider=Microsoft.ace.oledb.12.0;Data Source=C:\Users\edenzam\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")
da.SelectCommand = New OleDbCommand("Select* from Schedulings", con)
cmd = New OleDbCommandBuilder(da)
If con.State = ConnectionState.Closed Then con.Open()
ds = New DataSet
da.Fill(ds, "Schedulings")
ds.Tables("Schedulings").Rows.Add()
lastrow = ds.Tables("Schedulings").Rows.Count - 1
myrow = ds.Tables("Schedulings").Rows.Item(lastrow)
myrow.Item("YearLevels") = ComboBox1.Text
myrow.Item("Sections") = ComboBox3.Text
myrow.Item("SectionNames") = TextBox9.Text
myrow.Item("Adviser") = TextBox1.Text
myrow.Item("SubjectTeacher") = TextBox2.Text
myrow.Item("SubjectNames") = ComboBox8.Text
myrow.Item("Days") = ComboBox2.Text
myrow.Item("StartTimes") = ComboBox4.Text
myrow.Item("EndTimes") = ComboBox5.Text
myrow.Item("Rooms") = ComboBox6.Text
ds.Tables("Schedulings").GetChanges()
cmd.GetInsertCommand()
da.Update(ds, "Schedulings")
con.Close()
Next i
MsgBox("Registration Successful")
ElseIf ComboBox1.Text = "Third Year" Then
For i = 0 To ListView1.Items.Count - 1
con = New OleDbConnection("Provider=Microsoft.ace.oledb.12.0;Data Source=C:\Users\edenzam\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")
da.SelectCommand = New OleDbCommand("Select* from Schedulings", con)
cmd = New OleDbCommandBuilder(da)
If con.State = ConnectionState.Closed Then con.Open()
ds = New DataSet
da.Fill(ds, "Schedulings")
ds.Tables("Schedulings").Rows.Add()
lastrow = ds.Tables("Schedulings").Rows.Count - 1
myrow = ds.Tables("Schedulings").Rows.Item(lastrow)
myrow.Item("YearLevels") = ComboBox1.Text
myrow.Item("Sections") = ComboBox3.Text
myrow.Item("SectionNames") = TextBox9.Text
myrow.Item("Adviser") = TextBox1.Text
myrow.Item("SubjectTeacher") = TextBox2.Text
myrow.Item("SubjectNames") = ComboBox9.Text
myrow.Item("Days") = ComboBox2.Text
myrow.Item("StartTimes") = ComboBox4.Text
myrow.Item("EndTimes") = ComboBox5.Text
myrow.Item("Rooms") = ComboBox6.Text
ds.Tables("Schedulings").GetChanges()
cmd.GetInsertCommand()
da.Update(ds, "Schedulings")
con.Close()
Next i
MsgBox("Registration Successful")
ElseIf ComboBox1.Text = "Fourth Year" Then
For i = 0 To ListView1.Items.Count - 1
con = New OleDbConnection("Provider=Microsoft.ace.oledb.12.0;Data Source=C:\Users\edenzam\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")
da.SelectCommand = New OleDbCommand("Select* from Schedulings", con)
cmd = New OleDbCommandBuilder(da)
If con.State = ConnectionState.Closed Then con.Open()
ds = New DataSet
da.Fill(ds, "Schedulings")
ds.Tables("Schedulings").Rows.Add()
lastrow = ds.Tables("Schedulings").Rows.Count - 1
myrow = ds.Tables("Schedulings").Rows.Item(lastrow)
myrow.Item("YearLevels") = ComboBox1.Text
myrow.Item("Sections") = ComboBox3.Text
myrow.Item("SectionNames") = TextBox9.Text
myrow.Item("Adviser") = TextBox1.Text
myrow.Item("SubjectTeacher") = TextBox2.Text
myrow.Item("SubjectNames") = ComboBox27.Text
myrow.Item("Days") = ComboBox2.Text
myrow.Item("StartTimes") = ComboBox4.Text
myrow.Item("EndTimes") = ComboBox5.Text
myrow.Item("Rooms") = ComboBox6.Text
ds.Tables("Schedulings").GetChanges()
cmd.GetInsertCommand()
da.Update(ds, "Schedulings")
con.Close()
Next i
MsgBox("Registration Successful")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListView1.Items.Count > 1 Then
TextBox9.Clear()
TextBox1.Clear()
TextBox2.Clear()
ListView1.Items.Clear()
ComboBox1.SelectedIndex = -1
ComboBox3.SelectedIndex = -1
ComboBox2.SelectedIndex = -1
ComboBox4.SelectedIndex = -1
ComboBox5.SelectedIndex = -1
ComboBox6.SelectedIndex = -1
ComboBox7.SelectedIndex = -1
ComboBox8.SelectedIndex = -1
ComboBox9.SelectedIndex = -1
ComboBox27.SelectedIndex = -1
Else
MsgBox("Empty", MsgBoxStyle.Information, "Message")
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If ComboBox1.Text = "First Year" Then
If ComboBox1.Text = "" Or ComboBox3.Text = "" Or TextBox9.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" _
Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or ComboBox6.Text = "" Or ComboBox7.Text = "" Then
MsgBox("Complete The Schedule", MsgBoxStyle.Information)
Else
Dim lv As ListViewItem = ListView1.Items.Add(ComboBox7.Text)
lv.SubItems.Add(ComboBox2.Text)
lv.SubItems.Add(ComboBox4.Text)
lv.SubItems.Add(ComboBox5.Text)
lv.SubItems.Add(ComboBox6.Text)
lv.SubItems.Add(TextBox2.Text)
End If
ElseIf ComboBox1.Text = "Second Year" Then
If ComboBox1.Text = "" Or ComboBox3.Text = "" Or TextBox9.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" _
Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or ComboBox6.Text = "" Or ComboBox8.Text = "" Then
MsgBox("Complete The Schedule", MsgBoxStyle.Information)
Else
Dim lv As ListViewItem = ListView1.Items.Add(ComboBox8.Text)
lv.SubItems.Add(ComboBox2.Text)
lv.SubItems.Add(ComboBox4.Text)
lv.SubItems.Add(ComboBox5.Text)
lv.SubItems.Add(ComboBox6.Text)
lv.SubItems.Add(TextBox2.Text)
End If
ElseIf ComboBox1.Text = "Third Year" Then
If ComboBox1.Text = "" Or ComboBox3.Text = "" Or TextBox9.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" _
Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or ComboBox6.Text = "" Or ComboBox9.Text = "" Then
MsgBox("Complete The Schedule", MsgBoxStyle.Information)
Else
Dim lv As ListViewItem = ListView1.Items.Add(ComboBox9.Text)
lv.SubItems.Add(ComboBox2.Text)
lv.SubItems.Add(ComboBox4.Text)
lv.SubItems.Add(ComboBox5.Text)
lv.SubItems.Add(ComboBox6.Text)
lv.SubItems.Add(TextBox2.Text)
End If
ElseIf ComboBox1.Text = "Fourth Year" Then
If ComboBox1.Text = "" Or ComboBox3.Text = "" Or TextBox9.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" _
Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or ComboBox6.Text = "" Or ComboBox27.Text = "" Then
MsgBox("Complete The Schedule", MsgBoxStyle.Information)
Else
Dim lv As ListViewItem = ListView1.Items.Add(ComboBox27.Text)
lv.SubItems.Add(ComboBox2.Text)
lv.SubItems.Add(ComboBox4.Text)
lv.SubItems.Add(ComboBox5.Text)
lv.SubItems.Add(ComboBox6.Text)
lv.SubItems.Add(TextBox2.Text)
End If
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If ListView1.SelectedItems.Count > 0 AndAlso MessageBox.Show("Do you want to remove this item?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
ListView1.SelectedItems(0).Remove()
Else
MsgBox("No item is selected", MsgBoxStyle.Information, "Message")
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "First Year" Then
ComboBox7.Visible = True
ComboBox8.Visible = False
ComboBox9.Visible = False
ComboBox27.Visible = False
ElseIf ComboBox1.Text = "Second Year" Then
ComboBox7.Visible = False
ComboBox8.Visible = True
ComboBox9.Visible = False
ComboBox27.Visible = False
ElseIf ComboBox1.Text = "Third Year" Then
ComboBox7.Visible = False
ComboBox8.Visible = False
ComboBox9.Visible = True
ComboBox27.Visible = False
ElseIf ComboBox1.Text = "Fourth Year" Then
ComboBox7.Visible = False
ComboBox8.Visible = False
ComboBox9.Visible = False
ComboBox27.Visible = True
End If
End Sub
