Vb.net Project With Coding Online

Public Function GetConnection() As SqlConnection Return New SqlConnection(connectionString) End Function End Module Imports System.Data.SqlClient Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load LoadAllStudents() End Sub

conn.Open() cmd.ExecuteNonQuery() conn.Close() End Using End Using

Imports System.Data.SqlClient Module DatabaseHelper ' Change the connection string based on your SQL Server instance Public connectionString As String = "Data Source=(LocalDB)\MSSQLLocalDB;Initial Catalog=StudentDB;Integrated Security=True" Vb.net Project With Coding

MessageBox.Show("Student deleted successfully.", "Deleted", MessageBoxButtons.OK, MessageBoxIcon.Information) ClearFields() LoadAllStudents() End If End Sub

' Load all students into DataGridView Private Sub LoadAllStudents() Dim query As String = "SELECT StudentID, Name, Age, Course FROM Students" Dim dataTable As New DataTable() Vb.net Project With Coding

conn.Open() cmd.ExecuteNonQuery() conn.Close() End Using End Using

dgvStudents.DataSource = dataTable

' Hide StudentID column if needed dgvStudents.Columns("StudentID").Visible = True dgvStudents.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill End Sub

Using conn As SqlConnection = GetConnection() Using cmd As New SqlCommand(query, conn) cmd.Parameters.AddWithValue("@StudentID", Convert.ToInt32(txtStudentID.Text)) cmd.Parameters.AddWithValue("@Name", txtName.Text.Trim()) cmd.Parameters.AddWithValue("@Age", numAge.Value) cmd.Parameters.AddWithValue("@Course", txtCourse.Text.Trim()) Vb.net Project With Coding