Solved

ASP Classic connecting to Access Query with Parameter

Posted on 2011-09-21
2
318 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
ID: 36579118
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
ID: 36579571
nice job....copying code from old apps makes you stay up late!

well done!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…
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…

932 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

12 Experts available now in Live!

Get 1:1 Help Now