asp.net,datagrid中自带的编辑功能有问题，请教
Imports System.Data
Imports System.Data.SqlClient
Public Class user_info
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents y_btn As System.Web.UI.WebControls.RadioButton
Protected WithEvents n_btn As System.Web.UI.WebControls.RadioButton
Protected WithEvents ay_btn As System.Web.UI.WebControls.RadioButton
Protected WithEvents an_btn As System.Web.UI.WebControls.RadioButton
Protected WithEvents txtName1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtID1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtPWD1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDept1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtIP1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtCompany1 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtPCCode1 As System.Web.UI.WebControls.TextBox
Protected WithEvents btnSearch As System.Web.UI.WebControls.ImageButton
Protected WithEvents txtID2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtPWD2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtDept2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtIP2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtCompany2 As System.Web.UI.WebControls.TextBox
Protected WithEvents txtPCCode2 As System.Web.UI.WebControls.TextBox
Protected WithEvents btnadd As System.Web.UI.WebControls.ImageButton
Protected WithEvents txtName2 As System.Web.UI.WebControls.TextBox
Protected WithEvents USER_DG As System.Web.UI.WebControls.DataGrid
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Dim uconn As SqlConnection
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim uconn As SqlConnection
uconn = New SqlConnection("data source=slq;initial catalog=IPGL;user id=sa;password=austain-8213;")
If Not (IsPostBack) Then
bindgrid()
End If
'在此处放置初始化页的用户代码
End Sub
Sub bindgrid()
Dim ds As DataSet
Dim ucomm As SqlDataAdapter
Dim uconn As SqlConnection
uconn = New SqlConnection("data source=slq;initial catalog=IPGL;user id=sa;password=austain-8213;")
ucomm = New SqlDataAdapter("select * from IF_USER", uconn)
ds = New DataSet
ucomm.Fill(ds, "IF_USER")
USER_DG.DataSource = ds.Tables("IF_USER").DefaultView
USER_DG.DataBind()
End Sub
Private Sub USER_DG_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles USER_DG.EditCommand
USER_DG.EditItemIndex = CInt(e.Item.ItemIndex)
bindgrid()
End Sub
Private Sub USER_DG_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles USER_DG.CancelCommand
USER_DG.EditItemIndex = -1
bindgrid()
End Sub
Private Sub USER_DG_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles USER_DG.UpdateCommand
Dim DS As DataSet
Dim UCONN As SqlConnection
UCONN = New SqlConnection("data source=slq;initial catalog=IPGL;user id=sa;password=austain-8213;")
Dim UCOMM As SqlCommand
Dim UPDATACMD As String = "UPDATE IF_USER SET [USER_CODE]=@USERCODE,[USER_NAME]=@NAME,[USER_IDXX]=@ID,[USER_PWDX]=@PASSWORD,[DEPT_CODE]=@DEPT,[USER_IPXX]=@IP,[COMP_CODE]=@COMPANY,[USER_INTE]=@INTERNET,[PCXX_CODE]=@PC_CODE"
UCOMM = New SqlCommand(UPDATACMD, UCONN)
UCOMM.Parameters.Add(New SqlParameter("@USERCODE", SqlDbType.Char, 5))
UCOMM.Parameters.Add(New SqlParameter("@name", SqlDbType.Char, 6))
UCOMM.Parameters.Add(New SqlParameter("@ID", SqlDbType.Char, 10))
UCOMM.Parameters.Add(New SqlParameter("@PASSWORD", SqlDbType.Char, 12))
UCOMM.Parameters.Add(New SqlParameter("@DEPT", SqlDbType.Char, 3))
UCOMM.Parameters.Add(New SqlParameter("@IP", SqlDbType.Char, 16))
UCOMM.Parameters.Add(New SqlParameter("@COMPANY", SqlDbType.Char, 2))
UCOMM.Parameters.Add(New SqlParameter("@PC_CODE", SqlDbType.Char, 3))
UCOMM.Parameters.Add(New SqlParameter("@INTERNET", SqlDbType.Char, 2))
Dim COLS As String() = {"@USERCODE", "@NAME", "@ID", "@PASSWORD", "@DEPT", "@IP", "@COMPANY", "@PC_CODE", "@INTERNET"}
UCOMM.Connection.Open()
UCOMM.ExecuteNonQuery()
USER_DG.EditItemIndex = -1
UCOMM.Connection.Close()
bindgrid()
End Sub
End Class
然后执行以后
老是提示：
“/WebApplication1”应用程序中的服务器错误。
--------------------------------------------------------------------------------
被准备语句 '(@USERCODE char(5),@name char(6),@ID char(10),@PASSWORD char(12)' 需要参数 @USERCODE，但未提供该参数。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.Data.SqlClient.SqlException: 被准备语句 '(@USERCODE char(5),@name char(6),@ID char(10),@PASSWORD char(12)' 需要参数 @USERCODE，但未提供该参数。
源错误:
行 96： Dim COLS As String() = {"@USERCODE", "@NAME", "@ID", "@PASSWORD", "@DEPT", "@IP", "@COMPANY", "@PC_CODE", "@INTERNET"}
行 97： UCOMM.Connection.Open()
行 98： UCOMM.ExecuteNonQuery()
行 99： USER_DG.EditItemIndex = -1
行 100： UCOMM.Connection.Close()
源文件: E:\ipgeneral\WebApplication1\user_info.aspx.vb 行: 98
堆栈跟踪:
[SqlException: 被准备语句 '(@USERCODE char(5),@name char(6),@ID char(10),@PASSWORD char(12)' 需要参数 @USERCODE，但未提供该参数。]
System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream) +723
System.Data.SqlClient.SqlCommand.ExecuteNonQuery() +194
WebApplication1.user_info.USER_DG_UpdateCommand(Object source, DataGridCommandEventArgs e) in E:\ipgeneral\WebApplication1\user_info.aspx.vb:98
System.Web.UI.WebControls.DataGrid.OnUpdateCommand(DataGridCommandEventArgs e) +109
System.Web.UI.WebControls.DataGrid.OnBubbleEvent(Object source, EventArgs e) +507
System.Web.UI.Control.RaiseBubbleEvent(Object source, EventArgs args) +26
System.Web.UI.WebControls.DataGridItem.OnBubbleEvent(Object source, EventArgs e) +106
System.Web.UI.Control.RaiseBubbleEvent(Object source, EventArgs args) +26
System.Web.UI.WebControls.LinkButton.OnCommand(CommandEventArgs e) +121
System.Web.UI.WebControls.LinkButton.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +115
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +138
System.Web.UI.Page.ProcessRequestMain() +1277
问题点数：20、回复次数：0Top
相关问题
- ASP。NET开发中有批改功能吗？？急，在线等！！！
- .net中是如何实现原来asp的include功能的？
- C#.net中datagrid的一些功能实现
- ASP有没有办法实现象.net的Page_load函数一样的功能？
- DataGrid删除功能？
- Asp 是什么功能
- 请问用VB。NET编写ASP。NET的WEB程序如何实现选取日期功能？
- （ASP。net C＃）关于DataGrid 中TemplateColumn列的处理，高分恳求
- DataGrid如何在winform中实现ASP. NET中的邦定列
- 刚学ASP。NET真烦，许多WINFORM的事件，属性都不能在ASP。NET下用，且还要与HTML，JAVASCRIP，c#，CSS。。。参杂，功能也没有WINFORM强大
