Listbox - ASP Free

ASP Free Forums Sponsor:

February 27th, 2007, 06:39 AM

miiia83

Contributing User

Join Date: May 2006

Posts: 292

Time spent in forums: 3 Days 6 h 21 m 25 sec
Reputation Power: 8

Listbox

hi!

I want to create a listbox for FUNCTION_CODE.. don't know how to do that
When you then click on i.e. "H1" from the list it should then show the info from DESCRIPTION that belongs to "H1"...
Did that make any sense..
the code I have now just shows the text from function_code and description...

Code:

Sub Get_Category()

    resrow = 3     'börjar vid cell 3,2
    rescol = 2
    Sheets("sheet1").Range("b2:j1000").ClearContents
    

    OpenConnection ("RFC")
   
    strQuery = "SELECT * FROM DESCRIPTIONS"   'DESCRIPTIONS = tabellnamn
    Set Rs = ConnRFC.Execute(strQuery)
    Do Until Rs.EOF
        Sheets("sheet1").Cells(resrow, rescol).Value = Rs("FUNCTION_CODE")
        Sheets("sheet1").Cells(resrow, rescol + 1).Value = Rs("DESCRIPTION")
        
        resrow = resrow + 1
        Rs.MoveNext
    Loop
    
    KillConnection ("RFC")

Mia

Last edited by miiia83 : February 28th, 2007 at 02:10 AM.

February 27th, 2007, 04:29 PM

richga

Contributing User

Join Date: Feb 2007

Posts: 56

Time spent in forums: 23 h 45 m 25 sec
Reputation Power: 4

Hi,

I'm not sure this will work but try this

strQuery = "SELECT * FROM DESCRIPTIONS" 'DESCRIPTIONS = tabellnamn
Set Rs = ConnRFC.Execute(strQuery)
Do Until Rs.EOF
Sheets("sheet1").Cells(resrow, rescol).Value = Rs("FUNCTION_CODE")
rescol = rescol + 1
Sheets("sheet1").Cells(resrow, rescol).Value = Rs("DESCRIPTION")

resrow = resrow + 1
Rs.MoveNext
Loop

KillConnection ("RFC")

-------------------------

I've added this rescol = rescol + 1 between sheets() lines.

Do the values write out to the page?

February 28th, 2007, 02:09 AM

miiia83

Contributing User

Join Date: May 2006

Posts: 292

Time spent in forums: 3 Days 6 h 21 m 25 sec
Reputation Power: 8

that only made it jump a step down and a step to the side for every textrow...

the problem isn't to get the text shown... I want it to be shown as a listbox!

Viewing: ASP Free Forums > Programming > Visual Basic Programming > Listbox

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

How to Present Effectively Online
This white paper offers practical and actionable advice on the key steps that any presenter should consider as they plan and execute a Webinar or online meeting.

Open Source Security Myths
Open Source Software (OSS) is computer software whose source code is available to the general public with relaxed or non-existent intellectual property restrictions (or arrangement such as the public domain), and is usually developed with the input of many contributors.

Power and Cooling Capacity Management for Data Centers
This paper describes the principles for achieving power and cooling capacity management.

Scalable, Fault-Tolerant NAS for Oracle - The Next Generation
For several years NAS has been evolving as a storage alternative for Oracle databases, and for good reason: NAS is quite often the simplest, most cost-effective storage approach for Oracle. Learn about the benefits that HP's approach to scalable NAS brings to Oracle environments in this comprehensive white paper.

Understanding Web Application Security Challenges
This white paper discusses many common threats and preventive measures for Web application security, and explains what you can do to help protect your organization.

More Free IT White Papers!