Please help in Checklistbox

Question

0.00/5 (No votes)

See more:

Greetings!

currently working in two checklistbox one is Area chklistbox 1 and sub area chklistbox 2.

i successfully popoulate the area from chklistbox 1 when i check one or two area from chklistbox1 all the sub area will populate in the sub area checklistbox 2. Which i also manage to do it. However my problem now is when i unchecked the selected Area. i need to remove all the sub areas related to that area.

below are my codes.

Your all help is greatly appreciated and needed.

VB

Sub ListSubArea
        Dim rs,sql, i, j, areaname

        for i = 0 to chklistarea.Items.Count-1
             If chklistarea.Checked(i) = True then
                'chklistsubarea.items(j) = chklistarea.Checked(i)
               areaname = chklistarea.Items(i)
               End if
         Next

                set rs=createobject("adodb.recordset")
                sql = "SELECT * FROM v_area_subarea where c_area_name ='"& arename &"' order by c_sub_area_name"
                openrs rs,sql

                chklistsubarea.Clear

                if not rs.eof then
                    do
                     chklistsubarea.Items.Add rs.Fields("c_sub_area_name").Value
                     rs.movenext
                    loop until rs.eof
                End if

        rs.close

End Sub

Posted 31-Jan-12 19:27pm

ambuenaventura

Updated 31-Jan-12 19:33pm

walterhevedeich

v2

Add a Solution

4 solutions

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)

Venkatesh Mookkan · Answer 1 · 2012-01-31T19:39:00

Solution 1

You already doing it. Below code will remove all the items in the Sub Area checkbox list.

VB

chklistsubarea.Clear()

Quick Question:
.NET has a very powerful DB concepts (ADO.NET), but you still using ADODB?

Posted 31-Jan-12 19:39pm

Venkatesh Mookkan

Comments

ambuenaventura 1-Feb-12 2:16am

hi thank you for your reply. actually the application that I'm using is SalesLogix and the back-end side the approach code is similar to vb code.

What i need to do is Remove the data in chklistbox2 that is only related to checklistbox1.

please help. your inputs will highly appreciated. thanks

ambuenaventura · Answer 2 · 2012-01-31T21:07:00

hi thank you for your reply. actually the application that I'm using is SalesLogix and the back-end side the approach code is similar to vb code. What i need to do is Remove the data in chklistbox2 that is only related to checklistbox1. please help. your inputs will highly appreciated. thanks

ambuenaventura · Answer 3 · 2012-01-31T23:49:00

Done it's working now using below codes: :)

Sub ListSubArea

        dim rs
        dim sql
        dim i
        dim areaname


        areaname = ""
        chklistmainagent.Clear

        for i = 0 to chklistarea.Items.Count-1
             If chklistarea.Checked(i) = True then
               areaname =  Areaname & "'" & chklistarea.Items(i) & "',"
             End if
         Next

            if areaname <> "" then
                areaname = left(areaname,len(areaname)-1)
            Else
                chklistsubarea.Clear
                Exit sub
            End if

           set rs=createobject("adodb.recordset")
                sql = "SELECT * FROM v_area_subarea where c_area_name in ("& areaname &") order by c_sub_area_name"
                openrs rs,sql

                chklistsubarea.Clear

                if not rs.eof then
                    do
                     chklistsubarea.Items.Add rs.Fields("c_sub_area_name").Value

                     rs.movenext
                    loop until rs.eof
                End if

        rs.close

End Sub

ambuenaventura · Answer 4 · 2012-01-31T23:51:00

Sub ListSubArea

        dim rs
        dim sql
        dim i
        dim j
        dim areaname


        areaname = ""
        chklistmainagent.Clear

        for i = 0 to chklistarea.Items.Count-1
             If chklistarea.Checked(i) = True then
               areaname =  Areaname & "'" & chklistarea.Items(i) & "',"
             End if
         Next

            if areaname <> "" then
                areaname = left(areaname,len(areaname)-1)
            Else
                chklistsubarea.Clear
                Exit sub
            End if

           set rs=createobject("adodb.recordset")
                'sql = "SELECT * FROM v_area_subarea where c_area_name ='"& areaname &"' order by c_sub_area_name"
                sql = "SELECT * FROM v_area_subarea where c_area_name in ("& areaname &") order by c_sub_area_name"
                'msgbox areaname
                openrs rs,sql

                chklistsubarea.Clear

                if not rs.eof then
                    do
                     chklistsubarea.Items.Add rs.Fields("c_sub_area_name").Value

                     rs.movenext
                    loop until rs.eof
                End if

        rs.close

End Sub

Please help in Checklistbox

4 solutions

Solution 1

Solution 2

Solution 3

Solution 4

Add your solution here

Preview 0