Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.
Click
Dim con As New OleDbConnection("Provider=[Link].12.0;Data
Source=[Link]")
Dim cmd As New OleDbCommand("INSERT INTO Submissions (StudentName, HomeworkID,
SubmissionDate, Answer) VALUES (?, ?, ?, ?)", con)
[Link]("?", [Link])
[Link]("?", [Link])
[Link]("?", [Link])
[Link]("?", [Link])
[Link]()
[Link]()
[Link]()
[Link]("Submitted Successfully")
End Sub
Private Sub frmStudentDashboard_Load(sender As Object, e As EventArgs) Handles [Link]
Dim con As New OleDbConnection("Provider=[Link].12.0;Data
Source=[Link]")
Dim da As New OleDbDataAdapter("SELECT * FROM Homework", con)
Dim dt As New DataTable
[Link](dt)
[Link] = dt
End Sub
Private Sub btnPostHomework_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim con As New OleDbConnection("Provider=[Link].12.0;Data
Source=[Link]")
Dim cmd As New OleDbCommand("INSERT INTO Homework (Subject, Task, DueDate) VALUES (?, ?,
?)", con)
[Link]("?", [Link])
[Link]("?", [Link])
[Link]("?", [Link])
[Link]()
[Link]()
[Link]()
[Link]("Homework Posted Successfully!")
End Sub
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = "student" And [Link] = "12345" Then
[Link]()
[Link]()
ElseIf [Link] = "teacher" And [Link] = "admin" Then
[Link]()
[Link]()
Else
[Link]("Invalid credentials!", "Login Failed")
End If
End Sub
