新手问一个datagrid简单问题>?

[zhongwancheng]

修改代码如下:
Sub edits(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs)
'DataGrid1.CurrentPageIndex = e.NewPageIndex
DataGrid1.EditItemIndex = CInt(e.Item.ItemIndex)
bind("2003-8-24")
End Sub
Sub cancels(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = -1
bind("2003-8-24")
End Sub
Sub updates(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs)
Dim myconnection As OleDbConnection
Dim mycommand As OleDbCommand
Dim textbox1
Dim worder_name As String
STR = "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=pms_db;PWD=zhong7829151;DATABASE=pms_db"
myconnection = New OleDbConnection(STR)
Dim updatecmd As String = "update guapifeng set worder_name=@worder_name where id=432"
mycommand = New OleDbCommand(updatecmd, myconnection)
mycommand.Parameters.Add(New OleDbParameter("@worder_name", OleDbType.VarChar))
TextBox1 = e.Item.Cells(1).Controls(0)
mycommand.Parameters("@worder_name").Value = textbox1.Text
mycommand.Connection.Open()
mycommand.ExecuteNonQuery()
mycommand.Connection.Close()
bind("2003-8-24")

End Sub
异常详细信息: System.Data.OleDb.OleDbException: 必须声明变量 '@worder_name'。
请问是什么问题?

[仙人掌]

worder_name = @worder_name

这样试一试

[OK521]

如果没有给@worder_name付植，也会提是这样的错误

[acewang]

Access数据库:2003-8-24

[acewang]

改成：#2003-8-24#

[wantchy]

你这样肯定出问题，我看了代码，没有错误，而是你理解datagrid的错误，你设定的有button控件对不对，那么一个控件就要占一个单元格，所以，看你的程序我想你至少设定了两个按钮，那么你必须从2开始读书据（空出0和1单元格）所以应为e.Item.Cells(2).Controls(0)，注意了：update 和cancel是共占一个单元格的！

[hovereagle]

我一般这样使用：
mycommand.Parameters.Add("@worder_name",textbox1.Text)
而且此句TextBox1 = e.Item.Cells(1).Controls(0)
是不是应改成dim strtest as string = ctype(e.Item.Cells(1).Controls(0),textbox).text

[wantchy]

因为你取错了值！瞧 OK521(拉登陪我打CS) 说的就是你根本的原因！我只是在此基础上发挥了一下！

[zhongwancheng]

还是没有解决问题.

[hovereagle]

试试：
dim strtest as string = ctype(e.Item.Cells(1).Controls(0),textbox).text
mycommand.Parameters.Add("@worder_name",strtest)