[bry090911]

 Public Sub save_edit()
        Dim ssql As String

        ssql = "UPDATE tbl_philhealth SET msr = @txtmsr,sb = @sb,tmc = @tmc,ps = @ps,es = @es WHERE msr=@msr"
        Dim com As New SqlCeCommand
        Using con As SqlCeConnection = New SqlCeConnection("Data Source=" & My.Settings.PATSDB)
            Try
                With com
                    con.Open()
                    com.Parameters.Clear()
                    com.CommandType = CommandType.Text
                    com.CommandText = ssql
                    com.Connection = con
                    com.Parameters.AddWithValue("@msr", txtmsr.Text)
                    com.Parameters.AddWithValue("@sb", txtsb.Text)
                    com.Parameters.AddWithValue("@tmc", txttmc.Text)
                    com.Parameters.AddWithValue("@ps", txtps.Text)
                    com.Parameters.AddWithValue("@es", txtes.Text)
                End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error")
            Finally
                con.Close()

                cmdEdit.Text = "Edit"
                cmdClose.Text = "Close"
                disable()
                MsgBox("Successfully Added!", vbInformation, "Success!")
            End Try
        End Using

    End Sub 

No errors at all..
and when i edit some of the textbox it MsgBox("Successfully Added!", vbInformation, "Success!")
BUT no update at all when i RE-run it..

This post has been edited by AdamSpeight2008: 02 February 2012 - 10:41 AM

[bry090911]

 Public Sub save_edit()
        Dim ssql As String

        ssql = "UPDATE tbl_philhealth SET msr = @txtmsr,sb = @sb,tmc = @tmc,ps = @ps,es = @es WHERE msr=@msr"
        Dim com As New SqlCeCommand
        Using con As SqlCeConnection = New SqlCeConnection("Data Source=" & My.Settings.PATSDB)
            Try
                With com
                    con.Open()
                    com.Parameters.Clear()
                    com.CommandType = CommandType.Text
                    com.CommandText = ssql
                    com.Connection = con
                    com.Parameters.AddWithValue("@msr", txtmsr.Text)
                    com.Parameters.AddWithValue("@sb", txtsb.Text)
                    com.Parameters.AddWithValue("@tmc", txttmc.Text)
                    com.Parameters.AddWithValue("@ps", txtps.Text)
                    com.Parameters.AddWithValue("@es", txtes.Text)
                End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error")
            Finally
                con.Close()

                cmdEdit.Text = "Edit"
                cmdClose.Text = "Close"
                disable()
                MsgBox("Successfully Added!", vbInformation, "Success!")
            End Try
        End Using

    End Sub 

No errors at all..
and when i edit some of the textbox it MsgBox("Successfully Added!", vbInformation, "Success!")
BUT no update at all when i RE-run it..

[CharlieMay]

You're missing the parameter @txtmsr and you're not doing any execution of the command.

com.ExecuteNonQuery will execute your command that you just defined.

This post has been edited by CharlieMay: 02 February 2012 - 10:59 AM

[nK0de]

you haven't executed the SQL query

[bry090911]

 Public Sub save_edit()
        Dim ssql As String

        ssql = "UPDATE tbl_philhealth SET msr = @txtmsr,sb = @txtsb,tmc = @txttmc,ps = @txtps,es = @txtes WHERE msr=@txtmsr"
        Dim com As New SqlCeCommand
        Using con As SqlCeConnection = New SqlCeConnection("Data Source=" & My.Settings.PATSDB)
            Try
                With com
                    con.Open()
                    com.Parameters.Clear()
                    com.CommandType = CommandType.Text
                    com.ExecuteNonQuery()
                    com.CommandText = ssql
                    com.Connection = con
                    com.Parameters.AddWithValue("@txtmsr", txtmsr.Text)
                    com.Parameters.AddWithValue("@txtsb", txtsb.Text)
                    com.Parameters.AddWithValue("@txttmc", txttmc.Text)
                    com.Parameters.AddWithValue("@txtps", txtps.Text)
                    com.Parameters.AddWithValue("@txtes", txtes.Text)
                End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error")
            Finally
                con.Close()

                cmdEdit.Text = "Edit"
                cmdClose.Text = "Close"
                disable()
                MsgBox("Successfully Added!", vbInformation, "Success!")
            End Try
        End Using

    End Sub

End Class 

[trevster344]

bry090911, on 02 February 2012 - 06:46 PM, said:

 Public Sub save_edit()
        Dim ssql As String

        ssql = "UPDATE tbl_philhealth SET msr = @txtmsr,sb = @txtsb,tmc = @txttmc,ps = @txtps,es = @txtes WHERE msr=@txtmsr"
        Dim com As New SqlCeCommand
        Using con As SqlCeConnection = New SqlCeConnection("Data Source=" & My.Settings.PATSDB)
            Try
                With com
                    con.Open()
                    com.Parameters.Clear()
                    com.CommandType = CommandType.Text
                    com.ExecuteNonQuery()
                    com.CommandText = ssql
                    com.Connection = con
                    com.Parameters.AddWithValue("@txtmsr", txtmsr.Text)
                    com.Parameters.AddWithValue("@txtsb", txtsb.Text)
                    com.Parameters.AddWithValue("@txttmc", txttmc.Text)
                    com.Parameters.AddWithValue("@txtps", txtps.Text)
                    com.Parameters.AddWithValue("@txtes", txtes.Text)
                End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error")
            Finally
                con.Close()

                cmdEdit.Text = "Edit"
                cmdClose.Text = "Close"
                disable()
                MsgBox("Successfully Added!", vbInformation, "Success!")
            End Try
        End Using

    End Sub

End Class 

OK you posted code.. cool... that also tells us nothing.. Does it work? Is there an error? Where's the error occurring? What is the error? What do you want exactly? What is it doing? Some of these questions will help us help you.

[bry090911]

Finally i get it.. com.ExecuteNonQuery() but how to refresh the datagridview after executing it?

[trevster344]

You need to put the data into something like a dataset and then bind it to the datagridview. Ill provide examples when I return to my office.