Start New Discussion within our Software Development Community
strsql = "insert into amenity_tbl values (?,?,?,?,?)"
            strs = "delete from amenity_tbl where amenityid = ?"
            Using cn As New OdbcConnection(connM), _
            cmd As New OdbcCommand(strsql, cn), _
            conn As New OdbcConnection(connA), _
            com As New OdbcCommand(strs, conn)

                cmd.Parameters.Add("?", OdbcType.VarChar, 20)
                cmd.Parameters.Add("?", OdbcType.VarChar, 200)
                cmd.Parameters.Add("?", OdbcType.Double, 20, 2)
                cmd.Parameters.Add("?", OdbcType.VarChar, 100)
                cmd.Parameters.Add("?", OdbcType.VarChar, 200)

                com.Parameters.Add("?", OdbcType.VarChar, 20)
                cn.Open()
                conn.Open()
                For Each ls As ListViewItem In lvCurrent.CheckedItems
                    For j As Integer = cmd.Parameters.Count To 0
                        For i As Integer = lvCurrent.SelectedItems.Count To 0


                            cmd.Parameters(j).Value = lvCurrent.Items.Add(i)

                            cmd.ExecuteNonQuery()
                            com.Parameters(0).Value = ls.SubItems(0).Text
                            'com.Parameters(1).Value = ls.SubItems(1).Text
                            'com.Parameters(2).Value = Double.Parse(ls.SubItems(2).Text)
                            'com.Parameters(3).Value = ls.SubItems(3).Text
                            'com.Parameters(4).Value = ls.SubItems(4).Text
                            com.ExecuteNonQuery()
                        Next
                    Next
                Next ls

                    Amenity("select * from amenity_tbl")
                    Amenity_archive("select * from amenity_tbl")
            End Using

Help please!

This article has been dead for over six months. Start a new discussion instead.