你的数据字段的长度有没有超出?http://vyaskn.tripod.com/programming_faq.htm#q1
解决方案 »
- Asp.net的精髓----------控件!
- MVC控制器中如何实现点击次数
- MVC 架构开发程序下不能存取Cookie问题(三天了没搞清)
- GridView绑定数据的单元格的换行问题。
- DataGrid中的ButtonColumn如何控制button的可见属性
- 为什么打开我的页面后 再打开其他页面 就提示连接的用户过多
- 如何用Javascript 操作datagrid中的TextBox 问题
- VS 2005装了三天(100分在一问)
- 一个自定义对象类编译的问题
- 请教高手高手高高手?
- 数据检索问题:当从数据库中搜索出数据后,要把它赋值给textbox,如果该字段的值为null,...附源码
- 在DataList中 <asp:Image id="mypic" ImageUrl='<%# DataBinder.Eval(Container.DataItem,"myimage")%>'></...>,如何定位好ImageUrl
以下有一个方法save(),根据情况传人不同的sqlcommand对象.
Private Sub savebutton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If gh = "" Then
save(SqlDataAdapter1.InsertCommand, "")
Else
save(SqlDataAdapter1.UpdateCommand, gh)
End If
End Sub
Sub save(ByVal command As SqlClient.SqlCommand, ByVal original_gh As String)
command.Parameters("@gh").Value = ghtxt.Text
command.Parameters("@xm").Value = xmtxt.Text
command.Parameters("@bmbh").Value = bmdrop.SelectedItem.Text
command.Parameters("@hao").Value = haotxt.Text
If xbradio.SelectedIndex = 0 Then
command.Parameters("@xb").Value = "男"
ElseIf xbradio.SelectedIndex = 1 Then
command.Parameters("@xb").Value = "女"
End If
command.Parameters("@zb").Value = zbdrop.SelectedItem.Text
command.Parameters("@bzf").Value = bzfdrop.SelectedItem.Text
command.Parameters("@sfzh").Value = sfzhtxt.Text
command.Parameters("@bz").Value = bztxt.Text
If original_gh <> "" Then
command.Parameters("@original_gh").Value = original_gh
End If SqlConnection1.Open()
Try
command.ExecuteNonQuery() '出错处理
Catch exp As SqlClient.SqlException
If exp.Number = 2627 Then
message.Text = "主键不能重复!"
Else
Response.Write(exp.Errors)
Response.Write(exp.Message)
Response.Write(exp.Number.ToString()) message.Text = "数据更新失败!"
End If
End Try
SqlConnection1.Close()
End Sub
我代码写的有点问题,主要是下拉列表显示值和实际值的问题。
command.Parameters("@bmbh").Value = bmdrop.SelectedItem.Text改为
command.Parameters("@bmbh").Value = bmdrop.SelectedItem.value就好了。
怪自己不小心,不过也懂得了8152的错误含义。
十分感谢各位!