[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 281
  • Last Modified:

checkbox's in a treeview.

When the checkbox's are selected and I click on submit, I need it to query the database for the names listed next to that checkbox.  For eample...
I have a list of a company's breakdown.

ANY COMPANY USA
   STORE NUMBER
       DEPT 1
       DEPT 2
       DEPT 3   ETC...
Each of the store number's and dept's have a check box next to it, and I want to have on another page post the information from that database.  With the check boxes checked in any number of combinations, then clicking on submit it will go to the next page and show the data from my database for those selected.  I am thinking an if then statement, but I am new to this and would appreciate any help you can offer me.

   
0
potwingn
Asked:
potwingn
  • 2
1 Solution
 
fritz_the_blankCommented:
Okay, here is what you do:

1) create a series of checkboxes all with the same name, let's say chkIDs
2) place the record id as the value for your checkbox like this:
<input type=checkbox name="chkIDs" value="1">
<input type=checkbox name="chkIDs" value="2">

and etc,

3) grab the results with request.form("chkIDs")

Now at this point, you have a comma-delimited list of all of your values, and you can easily create your sql select like this:

strSQL = "SELECT * FROM tblYourTable WHERE ID IN (" & request.form("chkIDs") & ")"


FtB
0
 
ArkCommented:
Hi
For Each nd In TreeView1.Nodes
   If nd.Checked Then
      If Len(sQuery)<>0 Then sQuery = sQuery + "," ' or other delimiter
      sQuery = sQuery + nd.Text
'or
'      sQuery = sQuery + nd.Path
'      sQuery = sQuery + nd.Tag '(tag can store some ID)
   End If
Next

set sQuery value to hidden input element and
strIDs = Split( request.form("HiddenElement")
For i=0 to ubound(strIDs)
   'your staff with every id
Next i
0
 
potwingnAuthor Commented:
Below is the code that I have so far.  I am new to this, could you post to me in a way that I can see how it works with what I have.  Your help is very much appreciated.




<html>
<head>
<title>ASP TreeView Exemple</title>
<meta name="author" content="Simon La Rochelle">
<meta name="description" content="This is an easy way to make a vb-like TreeView in ASP">

<script language='javascript'>

function ToggleDisplay(oButton, oItems) {

      if ((oItems.style.display == "") || (oItems.style.display == "none")) {
            oItems.style.display = "block";
            oButton.src = "minus.gif";
      }      else {
            oItems.style.display = "none";
            oButton.src = "plus.gif";
      }

      return false;

}

function HideDisplay(oItems) {

      oItems.style.display = "none";

}

function ShowDisplay(oItems) {

      oItems.style.display = "block";

}

</script>

</head>

<body bgcolor='#FFFFFF'>
<form action=subs3.asp method='post'>

<%
dim eunit, childno1, CHILDNO2, grecordset, childno3, fsql, erecordset, esql, gsql, FRECORDSET, childno, oconnection, urecordset, drecordset, dsql, orecordset, csql, cevent, cunit, ccount, topn, intpage, intpgcnt, intrecnt, intfn, intstart, callev, callun, csubs, usql, cuic, tree, tcount
cunit=request.form("Unit")
cevent=request.querystring("EVENT")
callev=request.querystring("ALLEV")
callun=request.querystring("ALLUN")
set oConnection = Server.CreateObject( "adodb.connection" )
oConnection.Provider = "vfpoledb.1"
oConnection.ConnectionString = "data source=e:\inetpub\wwwroot\ito\vamft\data\vamft.dbc"
oConnection.Open            

'Get our recordset
set uRecordSet = Server.CreateObject( "adodb.recordset" )
urecordset.cursorlocation=3
urecordset.cursortype=3
urecordset.activeconnection=oconnection
usql="select * from units where unit = '" & cunit & "'"
uRecordSet.Open usql
csubs=0
if not urecordset.EOF then
cuic=urecordset.fields(0).value
usql="select * from units where bduic = '" & cuic & "' and unit <> '" & cunit & "'"
uRecordSet.Close
uRecordSet.Open usql
csubs=urecordset.recordcount
end if
tcount = 2
tree = 1
'HERE'S THE FIRST EXEMPLE (without checkboxes and links)
if csubs > 0 then%>
<h3>All Subordinate Units For <%=cunit%></h3>
<%    WriteHead "My2TreeView",1,cunit,0,True,False,"",false
for ccount = 1 to csubs
     if urecordset.fields(7).value = "BN    " then
      WriteHead "My2TreeView",tcount,urecordset.fields(1).value,tree,True,False,"",true
        tcount=tcount+1
      end if
     if urecordset.fields(7).value = "CO    " and urecordset.fields(5).value > "      " then
      WriteHead "My2TreeView",tcount,urecordset.fields(1).value,tree+1,false,true,"",true
        writefoot
        tcount=tcount+1
     else
        if urecordset.fields(7).value = "CO    " and urecordset.fields(5).value = "      " then
           writefoot
           WriteHead "My2TreeView",tcount,urecordset.fields(1).value,tree,false,true,"",true
           tcount=tcount+1
        end if
     end if
urecordset.movenext
next
end if
writefoot


%>
  </select>&nbsp;&nbsp;&nbsp; <input type="submit" value="Submit" name="Submit"></form>


</form>
</body>
</html>

<%

'*********************************
'TREEVIEW SUBS
'*********************************

Sub WriteHead(TreeName,ItemID,ItemName,Level,IsParent,UseCheckBox,MyLink,IsOpn)

      Dim IsIE 'as boolean
      
      IsIE = (InStr(request.servervariables("HTTP_USER_AGENT"), "MSIE") > 0)

      'Spacing depends on what level you're at
      Select Case Level
            Case 1 : Response.Write "<IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 2 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=36 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 3 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=72 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 4 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=108 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 5 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=144 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 6 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=180 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 7 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=216 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 8 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=252 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 9 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=288 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
            Case 10 : Response.Write "<IMG SRC='t_dot.gif' WIDTH=324 HEIGHT=18 BORDER=0 ALT=''><IMG SRC='dot1.gif' BORDER=0 ALT=''>"
      End Select

      'If IsParent then put a plus sign else put a blank space
      If IsParent then
            'JsCode only if isIE
            If isIE then
                  If IsOpn then
                        Response.Write "<IMG SRC='minus.gif' WIDTH=12 HEIGHT=10 ID='" & TreeName & ItemID & "Btn' ONCLICK='javascript:ToggleDisplay(" & TreeName & ItemID & "Btn, " & TreeName & ItemID & "chlds);' ALT BORDER='0'>"
                  Else
                        Response.Write "<IMG SRC='plus.gif' WIDTH=12 HEIGHT=10 ID='" & TreeName & ItemID & "Btn' ONCLICK='javascript:ToggleDisplay(" & TreeName & ItemID & "Btn, " & TreeName & ItemID & "chlds);' ALT BORDER='0'>"
                  End If
            Else
                  If IsOpn then
                        Response.Write "<IMG SRC='minus.gif' WIDTH=12 HEIGHT=10 ID='" & TreeName & ItemID & "Btn' ALT BORDER='0'>"
                  Else
                        Response.Write "<IMG SRC='plus.gif' WIDTH=12 HEIGHT=10 ID='" & TreeName & ItemID & "Btn' ALT BORDER='0'>"
                  End if
            End If      
      Else
            If Level = 0 then
                  Response.Write "<IMG SRC='nosign2.gif' WIDTH=12 HEIGHT=10 ALT BORDER='0'>"
            Else
                  Response.Write "<IMG SRC='nosign.gif' WIDTH=12 HEIGHT=10 ALT BORDER='0'>"
            End If
      End if
      
      'If UseCheckBox then show a checkbox else add space
      If UseCheckBox then
            Response.Write "<INPUT TYPE='checkbox' NAME='" & TreeName &"chk' VALUE='" & ItemID & "'>"
      Else
            Response.Write "<img src='t_dot.gif' WIDTH=4 HEIGHT=18 BORDER=0 ALT=''>"
      End If
            
      Response.Write "<font face='Verdana,Arial,Helvetica' size='2' color='#333399'>"
      
      'If MyLink = "" then do not use link
      If MyLink = "" then
            'If first Level, use bold
            If Level = 0 then Response.Write "<b>" & ItemName & "</b>" else Response.Write ItemName
      Else
            'If first Level, use bold
            If Level = 0 then Response.Write "<b><a href='" & MyLink & "'><font color='#333399'>" & ItemName & "</a></b>" else Response.Write "<a href='" & MyLink & "'><font color='#333399'>" & ItemName & "</a>"
      End If

      Response.Write "</font>"
      Response.Write "<br>"
      
      'Always add DIV because WriteFoot() will close it
      Response.Write "<div ID='" & TreeName & ItemID & "chlds'>"
      
      'JsCode only if IsIE and if the section is not open
      If IsIE then
            If IsOpn then
                  Response.Write "<script language='javascript'>ShowDisplay(" & TreeName & ItemID & "chlds);</script>"
            Else
                  Response.Write "<script language='javascript'>HideDisplay(" & TreeName & ItemID & "chlds);</script>"
            End If
      End If

End Sub

Sub WriteFoot()

      Response.Write "</div>"

End Sub

%>
0
 
fritz_the_blankCommented:
I am not sure that I deserve points here--apart from pointing you to the IN part of the sql statement, I haven't really helped much (and for this I apologize--I have been swamped with work and haven't had much time to volunteer here lately).

FtB
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now