Check box select in a Grid View

Question

0.00/5 (No votes)

See more:

Hey guys, the code looks right to me but the selected item is not writing to the database. If I change my if to "Not selected" both of the values write fine.

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dt As New DataTable
        Dim folder As String = "\\Server\folder$\" & Request("UR")
        'Dim folder As String = "\\Server\folder$\" & ("UR")
        dt.Columns.Add(New DataColumn("FileName", GetType(String)))
        dt.Columns.Add(New DataColumn("cbsel", GetType(Boolean)))
        dt.Columns.Add(New DataColumn("file", GetType(String)))
        For Each sFilePath As String In Directory.GetFiles(folder)
            Dim sFileName As String = Path.GetFileName(sFilePath)
            Dim row As DataRow = dt.NewRow
            row("FileName") = "<a href=""" & Server.HtmlEncode("file://" & Replace(sFilePath, "\", "/")) & """ target=""_new"">" & Server.HtmlEncode(sFileName) & "</a>"
            ' row("cbsel") = True
            row("file") = folder & "\" & sFileName

            dt.Rows.Add(row)
        Next

        GridView1.DataSource = New DataView(dt)
        GridView1.DataBind()
    End Sub


    Protected Sub selectimg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles selectimg.Click

        Dim cellCode As TableCell
        Dim row As GridViewRow
        Try
            For Each row In GridView1.Rows
                Dim cellSelect As CheckBox = row.FindControl("cbsel")
                If cellSelect.Checked Then
                    cellCode = row.Cells(0)
                    Dim FileSelected As String = cellCode.Text

                    Dim con As New SqlConnection
                    Dim cmd As SqlCommand
                    con.ConnectionString = "Data Source=server;Initial Catalog=database;Persist Security Info=True;User ID=username;Password=password"
                    con.Open()
                    cmd = con.CreateCommand()
                    cmd.Connection = con
                    cmd.CommandText = "INSERT INTO Test_table (test) VALUES (@Test)"
                    cmd.Parameters.AddWithValue("@Test", FileSelected)
                    cmd.ExecuteNonQuery()


                    cellSelect.Checked = False
                End If
            Next row
        Finally
            GridView1.DataBind()
        End Try

    End Sub

Posted 16-Jan-11 11:48am

Zac Newman

Add a Solution

3 solutions

Solution 1

your missing the catch in your try catch finally block. I would put that back in see if an error is caught.

Try catch examples[^]

Posted 16-Jan-11 12:02pm

Simon_Whale

Solution 3

use .value=false or .value=true Because then system check the value of the boolean column

Posted 17-Jan-11 1:21am

benson ndirangu

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Zac Newman · Accepted Answer · 2011-01-16T12:21:00

Okie I have added a message box in. Still no error. It doesn't error because it all works fine. It just passes the check boxes as false .

VB

Private Sub MessageBox(ByVal msg As String)
    Dim lbl As New Label()
    lbl.Text = "<script language='javascript'>" & Environment.NewLine & _
    "window.alert('" + msg + "')</script>"
    Page.Controls.Add(lbl)
End Sub

VB

        End If
    Next row
Catch ex As Exception
    MessageBox("It's broken!")
Finally
    GridView1.DataBind()
End Try