Question

I have a DataBound DGV it has 3 Columns namely ID(not pk), Name, and Status. I have 2 Buttons Add and Post. Add, adds Data to the DGV and DataBase(MySql) but in Status, it adds "No". What I want to do is for example I have 3 Rows in my DGV and highlight those 3 and click Post, the value in Status will be changed to "Yes". Here is what I have done so far, but I’m having trouble with the syntax for the UPDATE QUERY. THIS CODE WORKS NOW

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the TestDataSet.testing table. You can move, or remove it, as needed.
        Me.TestingTableAdapter.Fill(Me.TestDataSet.testing)
        Using _conn As New MySqlConnection("Server = localhost; Username= root; Password =; Database = test")

            Using cmd
                With cmd
                    MsgBox("Connection Established")
                    .Connection = _conn
                    .Parameters.Clear()
                    .CommandText = "Select Max(TransactionID) from testing"
                    _conn.Open()
                    Dim dr As MySqlDataReader
                    dr = cmd.ExecuteReader()
                    If dr.Read() Then
                        If IsDBNull(dr.Item(0)) Then
                            txtNumber.Text = "1"
                        Else

                            txtName.Text = dr(0).ToString() + 1
                        End If

                    End If
                End With
            End Using
        End Using

        FillGrid()

    End Sub

    Private Sub FillGrid()



        Using _conn As New MySqlConnection("Server = localhost; Username= root; Password =; Database = test")
            Using _comm As New MySqlCommand
                With _comm
                    .CommandText = " SELECT `ID`, `TransactionID`, `Name`, `Posted` FROM `testing`"
                    .Connection = _conn
                End With
                Using _adapter As New MySqlDataAdapter(_comm)
                    Try
                        _conn.Open()
                        Dim _ds As New DataSet
                        _adapter.Fill(_ds)
                        GVTransaction.DataSource = _ds.Tables(0)
                    Catch ex As Exception

                    End Try
                End Using
            End Using
        End Using
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Using conn As New MySqlConnection("Server = localhost; Username= root; Password =; Database = test")
            Using cmd
                With cmd
                    MsgBox("Connection Established")
                    .Connection = conn
                    .Parameters.Clear()
                    .CommandText = "INSERT INTO testing(TransactionID, Name, Posted) VALUES (@ID, @iName, @iPosted)"
                    .Parameters.Add(New MySqlParameter("@ID", txtNumber.Text))
                    .Parameters.Add(New MySqlParameter("@iName", txtName.Text))
                    .Parameters.Add(New MySqlParameter("@iPosted", "No"))


                End With
                Try
                    conn.Open()
                    cmd.ExecuteNonQuery()
                Catch ex As MySqlException
                    MsgBox(ex.Message.ToString())
                End Try
            End Using
        End Using

        MsgBox("Data Added to the Database")

        Me.TestingTableAdapter.Dispose()

        Me.TestingTableAdapter.Fill(Me.TestDataSet.testing)
    End Sub

    Private Sub btnPost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPost.Click


        Dim _ID As New List(Of String)
        Dim _Name As New List(Of String)
        For Each _x As DataGridViewRow In TestingDataGridView.SelectedRows
            _ID.Add(_x.Cells("GVTransactionID").Value.ToString())
            _Name.Add("'" & _x.Cells("GVName").Value.ToString() & "'")
        Next
        Dim inClause As String = String.Join(",", _ID.ToArray())
        Dim inClause1 As String = String.Join(",", _Name.ToArray())
        Dim _sqlUpdate As String = String.Format("UPDATE testing SET Posted = @Posted WHERE TransactionID IN ({0}) AND Name IN ({1})", inClause, inClause1)

        Using _conn As New MySqlConnection("Server = localhost; Username= root; Password =; Database = test")
            Using _commm As New MySqlCommand()
                With _commm
                    .CommandText = _sqlUpdate
                    .Connection = _conn
                    .CommandType = CommandType.Text
                    .Parameters.AddWithValue("@Posted", "YES")

                End With
                Try
                    _conn.Open()
                    _commm.ExecuteNonQuery()
                    FillGrid()
                Catch ex As MySqlException
                    MsgBox(ex.StackTrace.ToString)
                End Try

            End Using
        End Using
    End Sub
End Class

Any Helps or tips is greatly appreciated. Please and Thank you

Answer 1

Try this one,

Dim _ID As New List(Of String) 
Dim _Name As New List(Of String) 
For Each _x As DataGridViewRow In TestingDataGridView.SelectedRows  
   _ID.Add(_x.Cells("TransactionID").Value.ToString())
   _Name.Add("'" & _x.Cells("Name").Value.ToString() & "'")
Next 

Dim inClause As String = String.Join(",", _ID.ToArray()) 
Dim inClause1 As String = String.Join(",", _Name.ToArray()) 
Dim _sqlUpdate As String = String.Format("UPDATE testing SET Posted = @Posted WHERE TransactionID IN ({0}) AND Name IN ({1})", inClause, inClause1)

Using _conn As New MySqlConnection("Server = localhost; Username= root; Password =; Database = test")
    Using _comm As New MySqlCommand()
        With _comm
          .CommandText = _sqlUpdate
          .Connection = _conn
        End With
        Try
            _conn.Open()
            _comm.ExecuteNonQuery()
        Catch ex As MySqlException
            MsgBox(ex.Message.ToString())
        End Try

    End Using
End Using