Ad:

ASP.NET Discussion Thread
Marked Solved
Views: 1441

Oct 23rd, 2007

Problem: Deleting with chk in DataList

Expand Post »

Can someone please help me figure out what I am doing wrong here? It is supposed to find the checkboxes per dataitem and see if that specific dataitem needs to be deleted. And if it does, to delete them all after adding it to one SQL statement. Please look below and give me insight!

ASP.NET Syntax (Toggle Plain Text)
Sub btnDelete_click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim DeleteMe As Boolean
Dim anItem As DataListItem
Dim i As Integer = 0
Dim strDeleted As String = "('"
Dim SQLString As String = "DELETE FROM Photos WHERE PhotoID IN "
For Each anItem In dlAlbumPhotos.Items
  DeleteMe = CType(anItem.FindControl("chkDelete"), CheckBox).Checked
  If DeleteMe Then
    i += 1
    if i = 1 then
      SQLString &= "('" & anItem.ItemIndex
      strDeleted &= anItem.ItemIndex
    else
      SQLString &= "', '" & anItem.ItemIndex
      strDeleted &= "', '" & anItem.ItemIndex
    end if
    Dim strDelName As String = anItem.ItemIndex
    Dim filepath As String = Server.MapPath("\") & "\Vegas2\Galleries\NL" & MakeInt(Trim(Request.QueryString("album"))) & "\"
    if File.Exists(filePath & strDelName & ".jpg") then file.delete(filePath & strDelName & ".jpg")
    if File.Exists(filePath & "T_" & strDelName & ".jpg") then file.delete(filePath & "T_" & strDelName & ".jpg")
  End if			
Next
dlAlbumPhotos.DataBind()
strDeleted &= "')"
SQLString &= "')"
if i > 0 then
  Dim conDelete As OdbcConnection
  Dim cmdSelect As OdbcCommand
  conDelete = New OdbcConnection( System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString") )
  cmdSelect = New OdbcCommand( SQLString, conDelete )
  conDelete.Open()
  cmdSelect.ExecuteNonQuery()
  conDelete.Close()
  lblDeletion.Visible = True
  lblDeletion.Text = "<br />Successfully deleted pictures " & strDeleted & "."
end if
End Sub
 
Sub btnDelete_click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim DeleteMe As Boolean
Dim anItem As DataListItem
Dim i As Integer = 0
Dim strDeleted As String = "('"
Dim SQLString As String = "DELETE FROM Photos WHERE PhotoID IN "
For Each anItem In dlAlbumPhotos.Items
  DeleteMe = CType(anItem.FindControl("chkDelete"), CheckBox).Checked
  If DeleteMe Then
    i += 1
    if i = 1 then
      SQLString &= "('" & anItem.ItemIndex
      strDeleted &= anItem.ItemIndex
    else
      SQLString &= "', '" & anItem.ItemIndex
      strDeleted &= "', '" & anItem.ItemIndex
    end if
    Dim strDelName As String = anItem.ItemIndex
    Dim filepath As String = Server.MapPath("\") & "\Vegas2\Galleries\NL" & MakeInt(Trim(Request.QueryString("album"))) & "\"
    if File.Exists(filePath & strDelName & ".jpg") then file.delete(filePath & strDelName & ".jpg")
    if File.Exists(filePath & "T_" & strDelName & ".jpg") then file.delete(filePath & "T_" & strDelName & ".jpg")
  End if			
Next
dlAlbumPhotos.DataBind()
strDeleted &= "')"
SQLString &= "')"
if i > 0 then
  Dim conDelete As OdbcConnection
  Dim cmdSelect As OdbcCommand
  conDelete = New OdbcConnection( System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString") )
  cmdSelect = New OdbcCommand( SQLString, conDelete )
  conDelete.Open()
  cmdSelect.ExecuteNonQuery()
  conDelete.Close()
  lblDeletion.Visible = True
  lblDeletion.Text = "<br />Successfully deleted pictures " & strDeleted & "."
end if
End Sub

Similar Threads

Deleting a record from a file in C
IE problem in Viruses, Spyware and other Nasties
Installation problem in Windows NT / 2000 / XP
Browser Hijacking - AAARGH! in Viruses, Spyware and other Nasties
Wierd Problem please help! in Windows NT / 2000 / XP

SheSaidImaPregy

Reputation Points: 43

Solved Threads: 68

Veteran Poster

Offline

1,080 posts
since Sep 2007

Permalink

Oct 23rd, 2007

Re: Problem: Deleting with chk in DataList

I did change the code, but for some reason my checkbox ALWAYS returns unchecked even though my controls are checked! Let me know if you happen to have a fix for this?

New code below:

ASP.NET Syntax (Toggle Plain Text)
Sub btnDelete_click(sender As Object, e As System.EventArgs)
  Dim DLIC As DataListItemCollection = dlAlbumPhotos.Items
  Dim strPhotoIDs As String = ""
  Dim chkBox As Boolean = False
  Dim strDeleted As String = ""
  For Each Item As DataListItem In DLIC
    Dim DelCheckBox As CheckBox = CType(Item.FindControl("chkDelete"), CheckBox)
    If DelCheckBox.Checked Then
      chkBox = True
      strDeleted &= CType(dlAlbumPhotos.FindControl("PhotoID"), Label).Text.ToString & ","
      strPhotoIDs &= CType(dlAlbumPhotos.FindControl("PhotoID"), Label).Text.ToString & ","
      Dim strDelName As String = CType(dlAlbumPhotos.FindControl("PhotoID"), Label).Text.ToString
      Dim filepath As String = Server.MapPath("\") & "\Vegas2\Galleries\NL" & MakeInt(Trim(Request.QueryString("album"))) & "\"
      if File.Exists(filePath & strDelName & ".jpg") then file.delete(filePath & strDelName & ".jpg")
      if File.Exists(filePath & "T_" & strDelName & ".jpg") then file.delete(filePath & "T_" & strDelName & ".jpg")
    End if			
  Next
  if chkBox then
    Dim conDelete As OdbcConnection
    Dim cmdSelect As OdbcCommand
    conDelete = New OdbcConnection( System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString") )
    Dim SQLString As String = "DELETE FROM Photos WHERE PhotoID IN (" & strPhotoIDs.Substring(0, strPhotoIDs.LastIndexOf(",")) & ")"
    cmdSelect = New OdbcCommand( SQLString, conDelete )
    conDelete.Open()
    cmdSelect.ExecuteNonQuery()
    conDelete.Close()
    lblDeletion.Visible = True
    lblDeletion.Text = "<br />Successfully deleted pictures (" & strDeleted.Substring(0, strDeleted.LastIndexOf(",")) & ")."
  end if
End Sub
 
Sub btnDelete_click(sender As Object, e As System.EventArgs)
  Dim DLIC As DataListItemCollection = dlAlbumPhotos.Items
  Dim strPhotoIDs As String = ""
  Dim chkBox As Boolean = False
  Dim strDeleted As String = ""
  For Each Item As DataListItem In DLIC
    Dim DelCheckBox As CheckBox = CType(Item.FindControl("chkDelete"), CheckBox)
    If DelCheckBox.Checked Then
      chkBox = True
      strDeleted &= CType(dlAlbumPhotos.FindControl("PhotoID"), Label).Text.ToString & ","
      strPhotoIDs &= CType(dlAlbumPhotos.FindControl("PhotoID"), Label).Text.ToString & ","
      Dim strDelName As String = CType(dlAlbumPhotos.FindControl("PhotoID"), Label).Text.ToString
      Dim filepath As String = Server.MapPath("\") & "\Vegas2\Galleries\NL" & MakeInt(Trim(Request.QueryString("album"))) & "\"
      if File.Exists(filePath & strDelName & ".jpg") then file.delete(filePath & strDelName & ".jpg")
      if File.Exists(filePath & "T_" & strDelName & ".jpg") then file.delete(filePath & "T_" & strDelName & ".jpg")
    End if			
  Next
  if chkBox then
    Dim conDelete As OdbcConnection
    Dim cmdSelect As OdbcCommand
    conDelete = New OdbcConnection( System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString") )
    Dim SQLString As String = "DELETE FROM Photos WHERE PhotoID IN (" & strPhotoIDs.Substring(0, strPhotoIDs.LastIndexOf(",")) & ")"
    cmdSelect = New OdbcCommand( SQLString, conDelete )
    conDelete.Open()
    cmdSelect.ExecuteNonQuery()
    conDelete.Close()
    lblDeletion.Visible = True
    lblDeletion.Text = "<br />Successfully deleted pictures (" & strDeleted.Substring(0, strDeleted.LastIndexOf(",")) & ")."
  end if
End Sub

Last edited by SheSaidImaPregy; Oct 23rd, 2007 at 8:43 pm.

SheSaidImaPregy

Reputation Points: 43

Solved Threads: 68

Veteran Poster

Offline

1,080 posts
since Sep 2007

Permalink

Oct 25th, 2007

Re: Problem: Deleting with chk in DataList

Need help on this one.. thanks

SheSaidImaPregy

Reputation Points: 43

Solved Threads: 68

Veteran Poster

Offline

1,080 posts
since Sep 2007

Permalink

Oct 25th, 2007

Re: Problem: Deleting with chk in DataList

No matter what I do, it always comes up false. Is it due to the fact that I am using an OnClick event with NO behind coding?

SheSaidImaPregy

Reputation Points: 43

Solved Threads: 68

Veteran Poster

Offline

1,080 posts
since Sep 2007

Permalink

Oct 25th, 2007

Re: Problem: Deleting with chk in DataList

Okay, figured it out. It is quite odd, but I had to put all my entire Page_load event in the "if Not Page.IsPostBack then" statement. To me, this is quite odd as I wanted all the information to be updated whether it was posted back or not. But this is the only way that the checkboxes were not permanantly set to false during runtime.

Thanks though..

SheSaidImaPregy

Reputation Points: 43

Solved Threads: 68

Veteran Poster

Offline

1,080 posts
since Sep 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in ASP.NET Forum Timeline: how to develop online test

Next Thread in ASP.NET Forum Timeline: Help me in username and password validation through accessing the database

DaniWeb Message

Cancel Changes

User Name
Password