vb.net连接sqlserver数据库做一个学生管理系统

好的，下面是一个简单的 VB.NET 连接 SQL Server 数据库并实现学生管理系统的示例：

1. 首先创建一个 Windows 窗体应用程序，然后在窗体上添加以下控件：

- 一个 DataGridView 控件，用于显示学生信息；
- 一些 TextBox 控件和 ComboBox 控件，用于输入和选择学生信息；
- 一些 Button 控件，用于实现添加、修改、删除和查询等操作。

2. 在解决方案资源管理器中右键单击项目名称，选择“添加”->“新建项”，然后在“添加新项”对话框中选择“数据”->“数据集”项，输入数据集名称，点击“添加”按钮，打开“添加表格”对话框，选择“从数据库中创建”选项，点击“新建连接”按钮，打开“添加连接”对话框，输入 SQL Server 数据库的连接字符串，测试连接成功后，选择要使用的数据库和表格，完成数据集的创建。

3. 在窗体的 Load 事件中使用以下代码绑定数据集到 DataGridView 控件：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'TODO: 这行代码将数据加载到表“学生信息DataSet.学生信息表”中。您可以根据需要移动或删除它。
    Me.学生信息表TableAdapter.Fill(Me.学生信息DataSet.学生信息表)
End Sub

4. 在添加、修改、删除和查询等操作的 Button 控件的 Click 事件中使用以下代码实现对学生信息的操作：

' 添加学生信息
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
    ' 创建一个新的行
    Dim newRow As DataRow = 学生信息DataSet.学生信息表.NewRow()
    ' 设置行的字段值
    newRow("学号") = txtID.Text
    newRow("姓名") = txtName.Text
    newRow("性别") = cboGender.Text
    newRow("年龄") = txtAge.Text
    newRow("班级") = txtClass.Text
    ' 将新行添加到数据集中
    学生信息DataSet.学生信息表.Rows.Add(newRow)
    ' 更新数据库
    学生信息表TableAdapter.Update(学生信息DataSet.学生信息表)
    ' 刷新 DataGridView 控件
    学生信息表TableAdapter.Fill(学生信息DataSet.学生信息表)
End Sub

' 修改学生信息
Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
    ' 获取当前选中的行
    Dim selectedRow As DataGridViewRow = dgvStudents.SelectedRows(0)
    ' 获取当前选中行的数据行
    Dim dataRow As DataRow = CType(selectedRow.DataBoundItem, DataRowView).Row
    ' 修改行的字段值
    dataRow("姓名") = txtName.Text
    dataRow("性别") = cboGender.Text
    dataRow("年龄") = txtAge.Text
    dataRow("班级") = txtClass.Text
    ' 更新数据库
    学生信息表TableAdapter.Update(学生信息DataSet.学生信息表)
    ' 刷新 DataGridView 控件
    学生信息表TableAdapter.Fill(学生信息DataSet.学生信息表)
End Sub

' 删除学生信息
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
    ' 获取当前选中的行
    Dim selectedRow As DataGridViewRow = dgvStudents.SelectedRows(0)
    ' 获取当前选中行的数据行
    Dim dataRow As DataRow = CType(selectedRow.DataBoundItem, DataRowView).Row
    ' 从数据集中删除行
    dataRow.Delete()
    ' 更新数据库
    学生信息表TableAdapter.Update(学生信息DataSet.学生信息表)
    ' 刷新 DataGridView 控件
    学生信息表TableAdapter.Fill(学生信息DataSet.学生信息表)
End Sub

' 查询学生信息
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
    ' 根据学号查询学生信息
    学生信息表TableAdapter.FillBy学号(学生信息DataSet.学生信息表, txtSearch.Text)
End Sub

以上示例仅是一个简单的学生管理系统，您可以根据实际需求进行修改和扩展。