Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.
Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=HomeworkDB.accdb")
Dim cmd As New OleDbCommand("INSERT INTO Submissions (StudentName, HomeworkID,
SubmissionDate, Answer) VALUES (?, ?, ?, ?)", con)
cmd.Parameters.AddWithValue("?", txtName.Text)
cmd.Parameters.AddWithValue("?", txtHomeworkID.Text)
cmd.Parameters.AddWithValue("?", DateTime.Now)
cmd.Parameters.AddWithValue("?", rtbAnswer.Text)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Submitted Successfully")
End Sub
Private Sub frmStudentDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=HomeworkDB.accdb")
Dim da As New OleDbDataAdapter("SELECT * FROM Homework", con)
Dim dt As New DataTable
da.Fill(dt)
dgvHomework.DataSource = dt
End Sub
Private Sub btnPostHomework_Click(sender As Object, e As EventArgs) Handles
btnPostHomework.Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=HomeworkDB.accdb")
Dim cmd As New OleDbCommand("INSERT INTO Homework (Subject, Task, DueDate) VALUES (?, ?,
?)", con)
cmd.Parameters.AddWithValue("?", txtSubject.Text)
cmd.Parameters.AddWithValue("?", txtTask.Text)
cmd.Parameters.AddWithValue("?", dtpDueDate.Value)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Homework Posted Successfully!")
End Sub
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
If txtUsername.Text = "student" And txtPassword.Text = "12345" Then
frmStudentDashboard.Show()
Me.Hide()
ElseIf txtUsername.Text = "teacher" And txtPassword.Text = "admin" Then
frmTeacherPanel.Show()
Me.Hide()
Else
MessageBox.Show("Invalid credentials!", "Login Failed")
End If
End Sub
