?
Solved

ASP Classic connecting to Access Query with Parameter

Posted on 2011-09-21
2
Medium Priority
?
323 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 44

Accepted Solution

by:
Leigh Purvis earned 2000 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

Get free NFR key for Veeam Availability Suite 9.5

Veeam is happy to provide a free NFR license (1 year, 2 sockets) to all certified IT Pros. The license allows for the non-production use of Veeam Availability Suite v9.5 in your home lab, without any feature limitations. It works for both VMware and Hyper-V environments

Question has a verified solution.

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

It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening.  This article shows how to create and use them.
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…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Suggested Courses

766 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