更新数据集

nightbar

Private Sub updata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updata.Click
        imagepath = Application.StartupPath + "\face\" + data.Tables(0).Rows(0).Item(6) + ".bmp"
        a = a.FromFile(imagepath)
              Else
            Try
                Dim strsql As String = "update cardinfo set(name=@name,old=@old,number=@number,address=@address,mail=@mail)"
                Dim strcmd As New SqlCommand(strsql, sqlconn)
                With data.Tables(0).Rows(0)
                    .Item(0).Parameters.Add(New SqlParameter("@name", SqlDbType.VarChar)).Value = nametxt.Text
                    .Item(2).Parameters.Add(New SqlParameter("@old", SqlDbType.Int)).Value = old.Text
                    .Item(4).Parameters.Add(New SqlParameter("@number", SqlDbType.VarChar)).Value = number.Text
                    If man.Checked.ToString = "男" Then
                        .Item(1).Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar)).Value = "男"
                    Else : .Item(1).Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar)).Value = "女"
                    End If
                    .Item(3).Parameters.Add(New SqlParameter("@address", SqlDbType.VarChar)).Value = address.Text
                    .Item(5).Parameters.Add(New SqlParameter("@mail", SqlDbType.VarChar)).Value = mail.Text
                End With
                strcmd.CommandType = CommandType.Text
                sqlconn.Open()
                strcmd.ExecuteNonQuery()
                strcmd.CommandType = CommandType.Text
                cardada.SelectCommand = strcmd
                cardada.Update(data)
                sqlconn.Close()
                MessageBox.Show("更新成功", "状态", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch sqlexc As SqlException
                MessageBox.Show(sqlexc.ToString, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End If
    End Sub
大家帮我看下。为什么，我运行到.Item(0).Parameters.Add(New SqlParameter("@name", SqlDbType.VarChar)).Value = nametxt.Text
提示未找到类型“String”的公共成员“Parameters”。
好痛苦啊。哪位指点下

waxiaoning

sqlparameter是 用于sqlcommand的，而你是要用sqlparameter

fanfan1980

data.Tables(0).Rows(0).Item(0).Parameters.Add(...)

--VB.NET中有这样的用法吗？

fanfan1980

应该是
strcmd.Parameters.Add("@name", SqlDbType.VarChar, 50).Value = nametxt.Text
....

nightbar

谢谢各位，可是我改成了
Try
            Dim strsql As String = "update cardinfo set name=@name,old=@old,sex=@sex,number=@number,address=@address,mail=@mail"
            Dim strcmd As New SqlCommand(strsql, sqlconn)
            With strcmd
                .Parameters.Add(New SqlParameter("@name", SqlDbType.VarChar)).Value = nametxt.Text
                .Parameters.Add(New SqlParameter("@old", SqlDbType.Int)).Value = old.Text
                .Parameters.Add(New SqlParameter("@number", SqlDbType.VarChar)).Value = number.Text
                If man.Checked.ToString = "男" Then
                    .Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar)).Value = "男"
                Else : .Parameters.Add(New SqlParameter("@sex", SqlDbType.VarChar)).Value = "女"
                End If
                .Parameters.Add(New SqlParameter("@address", SqlDbType.VarChar)).Value = address.Text
                .Parameters.Add(New SqlParameter("@mail", SqlDbType.VarChar)).Value = mail.Text
            End With
            strcmd.CommandType = CommandType.Text
            sqlconn.Open()
            strcmd.CommandType = CommandType.Text
            cardada.SelectCommand = strcmd
            strcmd.ExecuteNonQuery()
            sqlconn.Close()
            MessageBox.Show("更新成功", "状态", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch sqlexc As SqlException
            MessageBox.Show(sqlexc.ToString, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
却是把整张表都给更新成新的记录了。
怎么办呢

nightbar

还有就是请问。vs怎么添加右键菜单呀。
我找半天没找到那个控件，请指点

nightbar

请问怎么更新dataset后，再将数据返回到数据库，哪位大哥，写一下好吗。

fanfan1980

Dim strsql As String = "update cardinfo set name=@name,old=@old,sex=@sex,number=@number,address=@address,mail=@mail where 列名=条件"

--没有写条件当然是更新所有记录

nightbar

真是谢谢呀。太感谢了。
成功了，现在就差不会添加右键菜单。

fanfan1980

WinForm里有个菜单控件很方便的
ASP.NET就没弄过