基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

学生信息管理系统

Imports System.Data
Imports System.Data.SqlClient


Public Class 删除信息
    Dim myrode As New SqlConnection(mystr)
    Dim mysqlstr As String = "select * from xueshengxinxibiao where zhuanye='信息管理与信息系统'"
    Dim mycar As New SqlDataAdapter(mysqlstr, myrode)
    Dim mydb As New DataSet()

    Private Sub shanchuxinguan_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        myrode.Open()
        mycar.Fill(mydb, "mytable")
        DataGridView1.DataSource = mydb.Tables("mytable")

    End Sub

    Private Sub shanchu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shanchu.Click
        If (DataGridView1.SelectedRows.Count > 0) Then
            mydb.Tables("mytable").Rows(DataGridView1.CurrentRow.Index).Delete()
            Dim mycommand As New SqlCommandBuilder(mycar)
            mycar.Update(mydb, "mytable")
            MessageBox.Show("数据已删除成功")
            myrode.Close()
        End If
    End Sub
End Class