Solved

ASP Classic connecting to Access Query with Parameter

Posted on 2011-09-21
2
317 Views
Last Modified: 2012-05-12
OK, I have to remember how to do this.

Using ASP Classic Connecting to Access 2010

Everything works until I pass in a parameter.  

I am trying to loop through a list of Name/Value pairs and pass them in against a query.

The query runs fine and the ASP connects and returns without the parameter.

Any help would be greatly appreciated.
Call with this:

    nList =     "@schoolID,"
    vList =     "1,"
    ar = get_Records("ps_selectSchool", nList, vList, 50, set_CONXStrng() )

    if isnull(ar) then response.Write "yeP"
    
    for x = 0 to ubound(ar,2)
        response.Write ar(0,x) & " " & ar(1,x) & "<br>"
    next




function here:

public function get_Records( proc_name, nList, vList, pSize, strconn )
    dim objcmd
    dim objrs
    dim objparam
    dim n, v, r
    dim theName, theValue
	
	set objcmd = server.CreateObject("ADODB.command")
	with objcmd
		.activeconnection = strconn
		.commandtext = proc_name
		.commandtype = adcmdstoredproc
		
		'add paramaters if exist
	    if Len(nList) > 0 then 
	        n = split(nList,",")
	        v = split(vList,",")
	        
	        for x = 0 to ubound(n)
	            theName =  n(x) 
	            theValue = v(x)
	            if len(theName) > 1 then
	                'response.Write n(x) & " " & v(x) & "<br>"
	                set objparam = .createparameter
	                objparam.name = n(x)
                    objparam.Type = adBoolean
                    objparam.Direction = adParamInput
                    objparam.size = pSize
                    objparam.Value = v(x)
	                .Parameters.Append objparam
	            end if
	        next
	    end if
        
        'execute the recordset
        'set objrs = server.CreateObject("ADODB.recordset")
        set objrs = objcmd.execute()
        if objrs.bof = false AND objrs.eof = false then
	        r = objrs.getrows
            else
            r = null
	    end if           
        
        set strconn = NOTHING
	    set objrs = NOTHING
	    set objcmd = NOTHING   
	    
	    get_Records = r
 	end with
 end function


Query Here:

SELECT tblSchool.schoolID, tblSchool.schoolName
FROM tblSchool
WHERE (((tblSchool.schoolID)=[@schoolid]));

Open in new window

0
Comment
Question by:skillilea
2 Comments
 
LVL 44

Accepted Solution

by:
Leigh Purvis earned 500 total points
Comment Utility
This is surely all down a single, yet not necessarily obvious assumption... (Not obvious because there are other things you've added as far as parameter resolution... but they're not playing a part - they're seemingly fine.)
You have the assignment:
objparam.Type = adBoolean

You're presupposing that all passed paramters will be Boolean.  This is then resolved into a boolean value and it's not matching the ID you actually pass. (Your 1 will be resolved into -1, as will any other non-zero value.)

This is the problem with generic (iterative) parameter evaluation. You either have to pass in the parameter type as another function parameter or try to coerce something more generic. (Like "adVariant" :-s)

Cheers.
0
 

Author Closing Comment

by:skillilea
Comment Utility
nice job....copying code from old apps makes you stay up late!

well done!
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now