使用sqldataadapter更新数据

Question

我现在要做一个窗体 ，然后里边有一个datagrid
StrSQL = "select * from ClientObject"
        Me.Open()
        Adapter = New SqlDataAdapter(StrSQL, conn)
        Adapter.Fill(ds)
        Me.DataGrid1.DataSource = ds.Tables(0).DefaultView
        Me.Close()
然后将数据库中的数据绑定到这个datagrid上边但是我还要实现 在这上边删除记录，更新到数据库中这该怎么实现呢
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim iRow As Integer = Me.DataGrid1.CurrentRowIndex
        If MessageBox.Show("你确认要删除此记录吗?", "Information", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            ds.Tables(0).Rows(iRow).Delete()        End If        If ds.HasChanges Then
            Adapter.UpdateCommand(
        Else        End If    End Sub这样不行
我该怎么实现呢
谢谢
在线等

Answer 1

动作结束后退出前用Adapter.Accepted();

Answer 2

我这样行了 
Dim   iRow   As   String   =   Me.DataGrid1.CurrentRowIndex 
                ds.Tables("ClientObject").Rows(iRow).Delete() 
                Dim   cg   As   SqlCommandBuilder   =   New   SqlCommandBuilder(Adapter) 
                Adapter.Update(ds.Tables("ClientObject")) 但是添加的时候失败了 
If   OpenFileDialog1.ShowDialog   =   Windows.Forms.DialogResult.OK   Then 
                        Cmd   =   New   SqlCommand("insert   into   ClientObject(ClassID,FileName,FileData)values(@ClassID,@FileName,@FileData)",   conn) 
                        Cmd.Parameters.Add("@ClassID",   SqlDbType.NVarChar).Value   =   “1” 
                        Cmd.Parameters.Add("@FileName",   SqlDbType.NVarChar).Value   =   "1" 
                        Cmd.Parameters.Add("@FileData",   SqlDbType.NVarChar).Value   =   "1" 
                        Adapter.InsertCommand   =   Cmd 
                        Dim   cg   As   SqlCommandBuilder   =   New   SqlCommandBuilder(Adapter) 
                        Adapter.Update(ds.Tables("ClientObject")) 
                        Me.ds.AcceptChanges()                 End   If 
里边没有数据     ，也不报错。。 
不知道那里出问题了 谁知道呢？ 

Answer 3

2楼改C#很好改，把定义形式改一下，格式改一下就OK