---

---

---

---

---

---

---

---

---

---

---

Vb.net Project With — Coding

Using conn As SqlConnection = GetConnection() Using adapter As New SqlDataAdapter(query, conn) adapter.Fill(dataTable) End Using End Using

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

' Update Student Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click If String.IsNullOrWhiteSpace(txtStudentID.Text) Then MessageBox.Show("Please select a student to update.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Return End If Vb.net Project With Coding

Dim query As String = "SELECT StudentID, Name, Age, Course FROM Students WHERE Name LIKE @Search + '%'" Dim dataTable As New DataTable()

MessageBox.Show("Student added successfully!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information) ClearFields() LoadAllStudents() End If End Sub Using conn As SqlConnection = GetConnection() Using adapter

Private Sub ClearFields() txtStudentID.Clear() txtName.Clear() numAge.Value = 18 txtCourse.Clear() txtName.Focus() End Sub

conn.Open() Dim rowsAffected As Integer = cmd.ExecuteNonQuery() conn.Close() Name NVARCHAR(100) NOT NULL

CREATE TABLE Students ( StudentID INT PRIMARY KEY IDENTITY(1,1), Name NVARCHAR(100) NOT NULL, Age INT NOT NULL, Course NVARCHAR(100) NOT NULL ); GO