Updating an Access DB
I am able to enter text in the input boxes but when I click update, whatever I have entered goes away and it doesn't get updated.
Here is my update code:
Sub dgNews_UpdateCommand(ByVal s As Object, ByVal e As DataGridCommandEventArgs) Handles dgNews.UpdateCommand
Dim objCommand As OleDbCommand
Dim strSQLQuery As String
Dim txtTitle As TextBox
Dim txtNews As TextBox
Dim strTitle As String
Dim strNews As String
Dim intID As Integer
strSQLQuery = "UPDATE [zNews] SET [news_title]=@Title, [the_news]=@News " _
& "WHERE [znews].[theid]=@ID"
objCommand = New OleDbCommand(strSQLQuery, objConn)
txtTitle = e.Item.Cells(1).Controls(0)
strTitle = txtTitle.Text
objCommand.Parameters.Add(New OleDbParameter("@Title", OleDbType.VarChar, 49))
objCommand.Parameters("@Title").Value = strTitle
txtNews = e.Item.Cells(2).Controls(0)
strNews = txtNews.Text
objCommand.Parameters.Add(New OleDbParameter("@News", OleDbType.VarChar, 49))
objCommand.Parameters("@News").Value = strNews
intID = dgNews.DataKeys(e.Item.ItemIndex)
objCommand.Parameters.Add("@ID", intID)
objConn.Open()
objCommand.ExecuteNonQuery()
objConn.Close()
dgNews.EditItemIndex = -1
ShowDataGrid()
End Sub
Any suggestions?
|