vb.net gridview sql实例 （实现了sql的存取修改等一系列操作）.doc

+gridview+sql实例 （实现了sql的存，取，修改等一系列操作）Imports System.Data.SqlClient Imports System.Data Partial Class _Default Inherits System.Web.UI.PageDim str As New String(server=localhost;database=server;integrated security=sspi)Dim con As New SqlConnection(str)Dim adapt As New SqlDataAdapter(select*from a1, con) 负责sql与其他存储的协调Dim ds As New DataSet() 数据集，可以存储大量的数据Protected Sub fresh() 刷新函数adapt.Fill(ds, a1)GridView1.DataSource = ds.Tables(a1).DefaultView 指定数据源；这里的tables就是表的集合，括号里为表名，也可用index从0开始GridView1.DataBind() 把gridview与数据源绑定，上边仅仅是指明End SubProtected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Clickfresh() 用于显示数据库中的内容End SubProtected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEditGridView1.EditIndex = -1 退出编辑状态fresh()End SubProtected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditingGridView1.EditIndex = e.NewEditIndex 进入编辑状态Label1.ToolTip = GridView1.EditIndex 鼠标经过时提示信息fresh()End SubProtected Sub GridView1_SelectedIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSelectEventArgs) Handles GridView1.SelectedIndexChangingGridView1.SelectedIndex = e.NewSelectedIndex()Label2.ToolTip = GridView1.SelectedIndexfresh()End SubProtected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdatingLabel1.ToolTip = GridView1.EditIndexGridView1.EditIndex = -1 更新后撤销编辑状态Dim str As String = (CType(GridView1.Rows(e.RowIndex).Cells(3).Controls(0), TextBox).Text.Trim() ctype类型转换，要用trim去掉空格，否则写入数据库错误Dim str1 As String = CType(GridView1.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text.Trim()Dim str2 As String = CType(GridView1.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text.Trim()Dim str3 As String = GridView1.DataKeys(e.RowIndex)(3).ToString 与上不同，因为上边是编辑状态；第一个参数是第几行，3是代表第四个datakeyupdate(str, str1, str2, str3) datakey不一定与gridview中的列对应，只是为了在更新或删除操作中的判断条件fresh() 刷新更新数据库同时再次绑定gridview从而显示数据库的更新信息End SubProtected Sub update(ByVal name As String, ByVal fm As String, ByVal age As String, ByVal keys As String)Dim cmd As New SqlCommand(update a1 set name= + name + ,fm= + fm + ,age= + age + where Id= + keys + , con) 声明路径与变量，和变量的值con.Open()cmd.ExecuteNonQuery() 执行语句con.Close()End SubProtected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeletingDim keys As String = GridView1.DataKeys(e.RowIndex)(3)Dim cmd As New SqlCommand(delete from a1 where ID= + keys + , con)这里的id是数据库中的标示列，在关键字里已经说明con.Open()cmd.ExecuteNonQuery() 执行语句con.Close()fresh()End SubProtected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChangingGridView1.PageIndex = e.NewPageIndexfresh()End SubProtected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Clickcon.Open()Dim cmd As New SqlCommand(insert into