作者blue18world (两个人的事)
看板Visual_Basic
标题[.NET] 必须宣告纯量变数？
时间Sat Aug 18 23:56:47 2007
请教各位先进，我想写一个可以更新资料库的程式
程式码如下：
Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
Dim oledb1 As New SqlClient.SqlConnection
Dim dataset1 As New DataSet
Dim USQL As String
Dim Ucmd As SqlCommand
oledb1.ConnectionString = "data source=localhost; user id=sa;password=123;initial catalog=盘存stored;"
oledb1.Open()
If oledb1.State.Open Then
USQL = "UPDATE 员工属性 SET employee_num = @employee_num, employee_name = @employee_name, cypher = @cypher, jurisdiction = @jurisdiction WHERE (employee_num = @employee_num)"
Dim dataadapter1 As SqlDataAdapter = New SqlDataAdapter(USQL, oledb1)
Ucmd = New SqlClient.SqlCommand(USQL, oledb1)
With Ucmd
Ucmd.Parameters.Add("@employee_num", SqlDbType.Int)
Ucmd.Parameters.Add("@employee_name", SqlDbType.Char, 10)
Ucmd.Parameters.Add("@cypher", SqlDbType.Int)
Ucmd.Parameters.Add("@jurisdiction", SqlDbType.Int)
.Parameters("@employee_num").Value = CType(e.Item.Cells(1).
Controls(0), TextBox).Text()
.Parameters("@employee_name").Value = CType(e.Item.Cells(2).
Controls(0), TextBox).Text
.Parameters("@cypher").Value = CType(e.Item.Cells(3).
Controls(0), TextBox).Text
.Parameters("@jurisdiction").Value = CType(e.Item.Cells(4).
Controls(0), TextBox).Text
.ExecuteNonQuery()
DataGrid1.DataKeyField = "@employee_num"
dataadapter1.Fill(dataset1, "员工属性")
End With
DataGrid1.DataSource = dataset1.Tables("员工属性").DefaultView
DataGrid1.DataBind()
oledb1.Close()
End If
DataGrid1.EditItemIndex = -1
End Sub
我按更新button的时候，会出现"必须宣告纯量变数 "@employee_num"。 "这个错误
请问是为什麽呢? 谢谢~~
(employee_num是我资料库里的PK，datakeyfield 我试过没有@也不能...)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.70.52.164
1F：推 kenimai:因为employee_num是PK... 08/19 00:31
2F：→ kenimai:所以UPDATE中[employee_num = @employee_num,]是不需要的 08/19 00:33
3F：推 blue18world:恩..我刚刚把employee_num删掉..还是一样耶.. 08/19 00:48
4F：推 blue18world:我把dataadapter1.Fill(dataset1, "员工属性")删掉就 08/19 01:22
5F：→ blue18world:好了耶...但怎是空白页面 表格没显示(db更新有成功) 08/19 01:22