更新 datagridview 和数据库 vb.net答案

【问题标题】：Update datagridview and database vb.net更新 datagridview 和数据库 vb.net
【发布时间】：2017-01-28 08:03:20
【问题描述】：

我想更新我的 datagridview 以及我的数据库，我是 vb 的新手，但我不知道我做错了什么可以帮助我吗？

Private Sub DataGridView_Booking_Update(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView_Booking.RowLeave
    Try
        con.Open()
        Using cmd As New SqlCommand("UPDATE Tbl_booking SET Omschrijving = @Omschrijving, Jaar = @Jaar, Opmerking = @Opmerking ,Sortnr = @Sortnr)", con)
            cmd.Parameters.Add("@Omschrijving", SqlDbType.VarChar)
            cmd.Parameters.Add("@Jaar", SqlDbType.Int)
            cmd.Parameters.Add("@Opmerking", SqlDbType.VarChar)
            cmd.Parameters.Add("@Sortnr", SqlDbType.Int)
            cmd.ExecuteNonQuery()

        End Using
    Catch ex As Exception
        MessageBox.Show("Error while updating record on table..." & ex.Message, "Update Records")
    Finally
        con.Close()
    End Try

【问题讨论】：

您忘记设置参数的实际值。例如。 cmd.Parameters.Add("@Omschrijving", SqlDbType.VarChar).Value = dataGridView.Rows(e.RowIndex).Cells(e.ColumnIndex).Value。此外，如果您提及您遇到的任何错误，将会很有帮助。
我收到错误“更新表上的记录时出错...')'附近的语法不正确。如果通过我收到错误“更新表上的记录时出错...失败将参数值从 String 转换为 Int32"
查看SQL和错误信息。 tutorialspoint.com/sql/sql-insert-query.htm

标签： database vb.net datagridview

【解决方案1】：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\database1.accdb;Persist Security Info=False;")
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("INSERT INTO table1(name,age,class) VALUES('John Legend','22','B.A Part 1')", con)
        cmd.ExecuteNonQuery()
        MsgBox("Record inserted successfully.")
        con.Close()
    Catch
        MsgBox("Error Occured.")
    End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Try
        Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\database1.accdb;Persist Security Info=False;")
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("update table1 set name='John DOE',age='23',class='12th' where id='1'", con)
        cmd.ExecuteNonQuery()
        MsgBox("Record Updated Successfully.")
        con.Close()
    Catch
        MsgBox("Error Occured.")
    End Try
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Try
        Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\database1.accdb;Persist Security Info=False;")
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("Delete from table1 where name='John DOE'", con)
        cmd.ExecuteNonQuery()
        MsgBox("Record Deleted Successfully.")
        con.Close()
    Catch
        MsgBox("Error Occured.")
    End Try
End Sub

Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged

    Me.Validate()
    Me.dbDataAdapter.Update(Me.dbdataset.Tables("MyTable"))

    Me.dbDataSet.AcceptChanges()

End Sub

【讨论】：