Vb.net Project With Coding May 2026

If numAge.Value < 1 OrElse numAge.Value > 100 Then MessageBox.Show("Age must be between 1 and 100.", "Validation Error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Return False End If

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 Vb.net Project With Coding

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()) If numAge

' Load selected row from DataGridView to textboxes Private Sub dgvStudents_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvStudents.CellClick If e.RowIndex >= 0 Then Dim row As DataGridViewRow = dgvStudents.Rows(e.RowIndex) txtStudentID.Text = row.Cells("StudentID").Value.ToString() txtName.Text = row.Cells("Name").Value.ToString() numAge.Value = Convert.ToInt32(row.Cells("Age").Value) txtCourse.Text = row.Cells("Course").Value.ToString() End If End Sub If numAge.Value &lt

' 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