解决方案 »
- 读取Access数据库,填充GridView控件,怎么传递每一列中的数据?(100分)
- 创建Custom contro时用document.getElementById获取组件问题
- ASP.NET高手,有时间的请进!
- #### 原来ASP.net1.1的时候有个TabPage的WebControl,Asp.net 2.0还有没?? ###
- asp.net按钮失效奇怪问题!!!
- SQL Server 不存在或访问被拒绝
- 数据提交的时候该把哪些字符给替换掉呢
- 对控见重写,怎么用啊
- asp网站与手机APP互传数据
- 怎样让页面直接显示PPT内容
- asp.net 图片链接问题...新手
- 获取访问者浏览器类型以及电脑系统类型
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Partial Class hr
Inherits System.Web.UI.Page Protected Sub searchAll_Click(sender As Object, e As EventArgs) Handles searchAll.Click
Dim connectionString As String = WebConfigurationManager.ConnectionStrings("Sdb").ConnectionString
Dim con As New SqlConnection(connectionString)
Dim sqlStr As String = "SELECT * FROM hr"
Dim cmd As New SqlCommand(sqlStr, con)
Dim da As New SqlDataAdapter(cmd)
Dim ds As New DataSet()
Try
con.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception Finally
con.Close()
End Try
da.Fill(ds, "hr")
GridView1.DataSource = ds
GridView1.DataBind()
End Sub Protected Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Dim connectionString As String = WebConfigurationManager.ConnectionStrings("Sdb").ConnectionString
Dim con As New SqlConnection(connectionString)
Dim sqlStr As String = "SELECT * FROM hr WHERE nameC=@nameC OR nameE=@nameE"
Dim cmd As New SqlCommand(sqlStr, con)
Dim da As New SqlDataAdapter(cmd)
cmd.Parameters.AddWithValue("@nameC", txtnameC.Text)
cmd.Parameters.AddWithValue("@nameE", txtnameE.Text)
Dim ds As New DataSet()
Try
con.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception Finally
con.Close()
End Try
da.Fill(ds, "hr")
GridView1.DataSource = ds
GridView1.DataBind()
End Sub Protected Sub GridView1_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
GridView1.EditIndex = -1
GridView1.DataBind()
End Sub Protected Sub GridView1_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GridView1.RowEditing
GridView1.EditIndex = e.NewEditIndex
GridView1.DataBind()
End Sub Protected Sub GridView1_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GridView1.RowUpdating
Dim ID As String = GridView1.DataKeys(e.RowIndex).Value.ToString() '获取编辑行关键字的值
'获取文本框中的内容
Dim nameC As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(1).Controls(0), TextBox).Text.ToString()
Dim nameE As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text.ToString()
Dim age As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(3).Controls(0), TextBox).Text.ToString()
Dim sex As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text.ToString()
Dim sfz As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text.ToString()
Dim school As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(6).Controls(0), TextBox).Text.ToString()
Dim education As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(7).Controls(0), TextBox).Text.ToString()
Dim marital As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(8).Controls(0), TextBox).Text.ToString()
Dim hometown As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(9).Controls(0), TextBox).Text.ToString()
Dim entryT As String = DirectCast(GridView1.Rows(e.RowIndex).Cells(10).Controls(0), TextBox).Text.ToString()
Dim sqlStr As String = "UPDATE hr SET nameC='" & nameC & "',nameE='" & nameE & "',age='" & age & "',sex='" & sex & "',sfz='" & sfz & "',school='" & school & "',education='" & education & "',marital='" & marital & "',hometown='" & hometown & "',entryT='" & entryT & "'where ID =" & ID
Dim connectionString As String = WebConfigurationManager.ConnectionStrings("Sdb").ConnectionString
Dim con As New SqlConnection(connectionString)
Dim cmd As New SqlCommand(sqlStr, con)
Try
con.Open()
cmd.ExecuteNonQuery()
MsgBox("修改成功")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "修改失败")
Finally
con.Close()
End Try
GridView1.EditIndex = -1
GridView1.DataBind()
End Sub
End Class
Protected Sub GridView1_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GridView1.RowEditing
GridView1.EditIndex = e.NewEditIndex
GridView1.DataBind()
End Sub
Protected Sub GridView1_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GridView1.RowEditing
GridView1.EditIndex = e.NewEditIndex
GridView1.DataBind()
End Sub
GridView1.DataBind() 这一句换成调用方法