如何添加 datagridview 记录 - 已关闭答案

【问题标题】：how to add datagridview records - closed如何添加 datagridview 记录 - 已关闭
【发布时间】：2015-08-17 02:48:17
【问题描述】：

当我尝试保存记录时，它不会显示在 datagridview 中，直到我关闭表单并再次运行它

  Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

            provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
            'Change the following to your access database location
            dataFile = "C:\Users\DELL\Downloads\WindowsApplication1\WindowsApplication1\Database1.accdb"
            connString = provider & dataFile
            myConnection.ConnectionString = connString
            myConnection.Open()
            Dim str As String
            str = "insert into tblODR ([ID], [Office], [Elements], [Objectives], [Initiatves]) values (?, ?, ?, ?, ?)"
            Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
            cmd.Parameters.Add(New OleDbParameter("UPC", CType(IDTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Item", CType(OfficeTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Cost", CType(ElementsTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Price", CType(ObjectivesTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Quantity", CType(InitiatvesTextBox.Text, String)))
            Try
                cmd.ExecuteNonQuery()
                cmd.Dispose()
                myConnection.Close()
                IDTextBox.Clear()
                OfficeTextBox.Clear()
                ElementsTextBox.Clear()
                ObjectivesTextBox.Clear()
                InitiatvesTextBox.Clear()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try


        End Sub

以下代码用于删除目的，我需要这样的代码，但用于添加/保存记录。

 Try
                Dim int As Integer = DataGridView1.SelectedRows(0).Index

                DataGridView1.Rows.Remove(DataGridView1.SelectedRows(0))
                ds.Tables(0).Rows(int).Delete()
                da.Update(ds, "datainfo")
                MessageBox.Show("Success!")

            Catch ex As Exception

            End Try

【问题讨论】：

在调用 DataGridView1.Refresh() 的地方调用实际的 Grid Bind 方法。
@AnilKumar，兄弟，你能举个例子吗？我是 vb.net 2010 的新手，所以我真的不知道你在说什么哈哈哈
最初是如何绑定 DataGridView1 的。
方法DataGridView1.Refresh() 将重绘DataGridView 控件，而不是更新数据源。您需要更新数据源或手动删除已删除的行。向我们展示您如何用数据填充DataGridView
对不起，如果我浪费你的时间兄弟，但我已经明白了，谢谢你的帮助，我上面有一个新问题

标签： vb.net visual-studio-2010 datagridview

【解决方案1】：

我已经解决了，我已经添加了一些代码..在 bindingNavigator 中，每次添加记录时我都必须单击加号 (+) ..woo :3 .. 对不起，我是新手

  Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
            provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
            'Change the following to your access database location
            dataFile = "C:\Users\DELL\Downloads\WindowsApplication1\WindowsApplication1\Database1.accdb"
            connString = provider & dataFile
            myConnection.ConnectionString = connString
            myConnection.Open()
            Dim str As String
            str = "insert into tblODR ([ID], [Office], [Elements], [Objectives], [Initiatves]) values (?, ?, ?, ?, ?)"
            Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
            cmd.Parameters.Add(New OleDbParameter("ID", CType(IDTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Office", CType(OfficeTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Elements", CType(ElementsTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Objectives", CType(ObjectivesTextBox.Text, String)))
            cmd.Parameters.Add(New OleDbParameter("Initiatves", CType(InitiatvesTextBox.Text, String)))

            Try

                cmd.ExecuteNonQuery()
                cmd.Dispose()
                myConnection.Close()
                Me.Validate()
                Me.TblODRBindingSource.EndEdit()
                Me.TblODRTableAdapter.Update(Me.Database1DataSet.tblODR)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

【讨论】：