Student Result Project in VB.NET  is a complete mini project with one form and a data report . The Student Result project has only one form that allows the user to enter basic student details and her marks. It then generates the report card for the student that can be viewed on screen exported to a file or printed.

The tables used are the following

table student marks table student master table subject master

Working of Student Result Project in VB.NET

The form is created with text boxes for Student ID, Name, Father Name, Mother’s Name, Phone and email.  Gender is selected from radio buttons. Course/ Class is selected from a combobox that gets the list of courses from “Degree “ Column of “SubMaster” Table.

Student Report empty form

When a course is selected the grid fills with the subject names from “Subject” column of “SubMaster” corresponding to the course value in combobox. User can fill the marks in the available subjects in the datagrid.

This the module code for project.

Module for the project
 
 Public conDB As New OleDb.OleDbConnection
    Public Sub connectDB()
        If conDB.State = ConnectionState.Closed Then
            conDB.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\stuDB.accdb"
            conDB.Open()
        End If
    End Sub
    Function getNewID(tblName As String, fldName As String) As String
        Dim strVal, sql As String
        Dim cmd As OleDb.OleDbCommand
        connectDB()
        sql = "select max(" & fldName & ") from " & tblName
        cmd = New OleDb.OleDbCommand(sql, conDB)
        strVal = Convert.ToString(cmd.ExecuteScalar())
        If strVal = "" Then
            strVal = "1"
        Else
            strVal = Convert.ToString(CInt(strVal) + 1)
        End If
        Return strVal
    End Function

Save Button

On clicking the save button student details in textboxes, radio buttons and combo box are stored in the “StudentMaster” Table. For same  studentID the subjects and marks from the datagrid are stored in the “StudentMarks” Table.Student Report filled form

Button -btnSave Click event

 
 
       Dim strSQL As String
        Dim gndr As String
        Dim i As Integer
        If rdbFemale.Checked = True Then
            gndr = "Female"
        Else
            gndr = "Male"
        End If
        strSQL = "insert into studentmaster values(" & txtStuID.Text & ",'" & cboClass.Text & "','" & txtStuName.Text & "','" & txtFName.Text & "','" & txtMName.Text & "','" & gndr & "','" & txtPhone.Text & "','" & txtEmail.Text & "')"
        cmd = New OleDb.OleDbCommand(strSQL, conDB)
        cmd.ExecuteNonQuery()
        For i = 0 To dgvMarks.RowCount - 2
            strSQL = "insert into studentmarks values(" & txtStuID.Text & ",'" & dgvMarks.Item(0, i).Value & "'," & dgvMarks.Item(1, i).Value & ")"
            cmd = New OleDb.OleDbCommand(strSQL, conDB)
            cmd.ExecuteNonQuery()
        Next

Search, Update and Delete Buttons

When the search button is clicked an inputbox appears on screen prompting to enter a student ID. On entering Student ID of an existing students its data is displayed in the from controls.

student search

This can be modified and updated by pressing the “Update” Button. The search record can be deleted by clicking the “Delete” button.

Button btnSearch Click event

 
 
Dim sid, cnt As Integer
        Dim drl As OleDb.OleDbDataReader
        Dim cmdl As New OleDb.OleDbCommand
        sid = CInt(InputBox("Enter the StudentID to search"))
        cmdl = New OleDb.OleDbCommand("select * from studentmaster where stuid=" & sid, conDB)
        drl = cmdl.ExecuteReader()
        If drl.Read() Then
            txtStuID.Text = drl.Item(0)
            cboClass.Text = drl.Item(1)
            txtStuName.Text = drl.Item(2)
            txtFName.Text = drl.Item(3)
            txtMName.Text = drl.Item(4)
            If drl.Item(5) = "Female" Then
                rdbFemale.Checked = True
            Else
                rdbMale.Checked = True
            End If
            txtPhone.Text = drl.Item(6)
            txtEmail.Text = drl.Item(7)
            drl.Close()
            cmdl = New OleDb.OleDbCommand("select subject, marks from studentmarks where stuid=" & sid, conDB)
            drl = cmdl.ExecuteReader()
            dgvMarks.Rows.Clear()
            cnt = 0
            While drl.Read()
                dgvMarks.Rows.Add()
                dgvMarks.Item(0, cnt).Value = Convert.ToString(drl.Item(0))
                dgvMarks.Item(1, cnt).Value = Convert.ToString(drl.Item(1))
                cnt = cnt + 1
            End While
        Else
            MsgBox("No student with this ID")
        End If

Button btnUpdate Click event

 
 
 Dim strSQL As String
        Dim gndr As String
        Dim i As Integer
        If rdbFemale.Checked = True Then
            gndr = "Female"
        Else
            gndr = "Male"
        End If
        strSQL = "update studentmaster set stuClass='" & cboClass.Text & "', StuName='" & txtStuName.Text & "', StuFname='" _
                & txtFName.Text & "',StuMName='" & txtMName.Text & "',StuGender='" & gndr & "',StuPhone='" & txtPhone.Text _
                & "',StuEmail='" & txtEmail.Text & "' where StuID=" & CInt(txtStuID.Text)
        cmd = New OleDb.OleDbCommand(strSQL, conDB)
        cmd.ExecuteNonQuery()
        ' delete all records from marks table to add the new marks and subjects
        strSQL = "delete * from studentmarks  where StuID=" & CInt(txtStuID.Text)
        cmd = New OleDb.OleDbCommand(strSQL, conDB)
        cmd.ExecuteNonQuery()
        ' Insert the new subjects and marks for the student
        For i = 0 To dgvMarks.RowCount - 2
            strSQL = "insert into studentmarks values(" & txtStuID.Text & ",'" & dgvMarks.Item(0, i).Value & "'," & dgvMarks.Item(1, i).Value & ")"
            cmd = New OleDb.OleDbCommand(strSQL, conDB)
            cmd.ExecuteNonQuery()
        Next

Button btnDelete  Click event

 
 
 Dim strSQL As String
        ' delete the record of student from master table
        strSQL = "delete * from studentmaster  where StuID=" & CInt(txtStuID.Text)
        cmd = New OleDb.OleDbCommand(strSQL, conDB)
        cmd.ExecuteNonQuery()
        ' delete all records from marks table 
        strSQL = "delete * from studentmarks  where StuID=" & CInt(txtStuID.Text)
        cmd = New OleDb.OleDbCommand(strSQL, conDB)
        cmd.ExecuteNonQuery()

Print Button

When a record is searched by passing on the student ID, her report card can be printed by clicking the “Print” button. A data report appears on screen showing student details and her marks in each subject. The report also displays the total marks of the five subjects.

Button btnPrint Click event

 
 
 Dim frm As New Form2 ' creates an object of form containing the reportviewer
  frm.Show()' displays the report

code for the form containing ReportViewer (Form2 Load Event)

 
 
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dt1, dt2 As New DataTable
        Dim sid As Integer
        connectDB()
        sid = CInt(frmStuDetails.Controls("txtStuID").Text)
        Dim cmd1 As New OleDb.OleDbCommand("SELECT * from StudentMarks where stuid=" & sid, conDB)
        cmd1.CommandTimeout = 4096
        Dim ta1 As New OleDb.OleDbDataAdapter(cmd1)
        ta1.Fill(dt1)
        Dim cmd2 As New OleDb.OleDbCommand("SELECT * from StudentMaster where stuid=" & sid, conDB)
        cmd2.CommandTimeout = 4096
        Dim ta2 As New OleDb.OleDbDataAdapter(cmd2)
        ta2.Fill(dt2)
        With Me.ReportViewer1.LocalReport
            .DataSources.Clear()
            .DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", dt1))
            .DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet2", dt2))
        End With
        Me.ReportViewer1.RefreshReport()
    End Sub

To print the report two data tables are used. One stores the student personal details(Dataset1) and the other stores the marks details( Dataset2).

datasets used for report

This is the design  of the report.

Student Result Project in VB.NET -report Design

This the report after launching. The data report has a print button to get a hard copy with attached printer. It can also be exported to an Excel, PDF or Word File for later printing or sharing.

Student Final Report card

Final words

This is a mini project that explains how a form is created that can save data into two different tables.  You have also learned to make a master-detail report using data from two tables. You can download and update the project according to your need. Validation checks can be added to this project.