sanjeev111
February 14th, 2009, 05:55 AM
I am using following code to update Access 2000 table. It executes the query but database is not updated and no error is generated. any body can help?
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Dim varGroupId As Integer
Dim str As String
cn1 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App_Path() & "\client.mdb;")
cn1.Open()
varGroupId = dgvGroup("clmGroupId", dgvGroup.CurrentRow.Index).Value
str = "Update GroupMaster set [GroupName]='" & txtGroupName.Text & "' WHERE [GroupID]=" & varGroupId
cmd1 = New OleDbCommand(str, cn1)
dr1 = cmd1.ExecuteNonQuery()
MsgBox(dr1)
cn1.Close()
cmd1.Dispose()
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Dim varGroupId As Integer
Dim str As String
cn1 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App_Path() & "\client.mdb;")
cn1.Open()
varGroupId = dgvGroup("clmGroupId", dgvGroup.CurrentRow.Index).Value
str = "Update GroupMaster set [GroupName]='" & txtGroupName.Text & "' WHERE [GroupID]=" & varGroupId
cmd1 = New OleDbCommand(str, cn1)
dr1 = cmd1.ExecuteNonQuery()
MsgBox(dr1)
cn1.Close()
cmd1.Dispose()
End Sub