RE: Info on using ASP to read DB2 on AS400 -- WEB400

Title: Re: Info on using ASP to read DB2 on AS400

Your SQL statement should read "Select * from spil.pdbagent " Notice the period where the slash would be...I'm my experience using ODBC it has been the only way my queries would work. Has any every gotten the slash method to work?

-Chris

---------------------------------------------------------
Christopher A. Libby, Programmer/Analyst
Maine Public Service Company (www.mainepublicservice.com)
clibby@mainepublicservice.com (207) 768-5811 ext. 2210

-----Original Message-----
From: owner-web400@midrange.com [mailto:owner-web400@midrange.com]On Behalf Of John Taylor
Sent: Monday, July 30, 2001 10:10 AM
To: WEB400@midrange.com
Subject: Re: Info on using ASP to read DB2 on AS400

Ok, it's been several months since my last VB/400 project, so most of this is guessing, but I seem to recall that the AS/400 OLE driver doesn't support system naming format. Have you tried "Select * from spil.pdbagent "?

----- Original Message -----

From: Walden H. Leverich

To: 'WEB400@midrange.com'

Sent: Monday, July 30, 2001 07:27

Subject: RE: Info on using ASP to read DB2 on AS400

The command object shouldn't make a difference. Execute is a valid method on the connection object. Of course I'm not sure why the command object is in the mix, but it's not hurting anything.

Sushama, have you checked the AS/400 joblog for the connection? You'll find the joblog to be the best source of debugging information when these things occur.

-Walden

-----Original Message-----
From: John Taylor [mailto:jtaylor@rpg2java.com]
Sent: Friday, July 27, 2001 6:03 PM
To: WEB400@midrange.com
Subject: Re: Info on using ASP to read DB2 on AS400

It looks like you're trying to call execute on your connection object instead of your command object.

----- Original Message -----

From: Pillai, Sushama

To: WEB400@midrange.com

Sent: Friday, July 27, 2001 15:20

Subject: Re: Info on using ASP to read DB2 on AS400

I am getting the following error and cannot figure out why:

IBMDA400 Command error '80004005'
CWBDB0036 - Server returned SQL error
/sush/agentwatch.asp, line 38

Here is a part of my code:

<%
Dim cn
Dim cm
Dim rs

Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=IBMDA400; Data Source=AS400;", "abc", "xyz"
Set cm = Server.CreateObject("ADODB.Command")
Set cm.ActiveConnection = cn
cm.Properties("Updatability") = 0
cm.CommandType = adCmdText
strsql = "Select * from spil/pdbagent "
set rs = cn.Execute (strsql) <<--- line 38
%>

I guess it has something to do with the library/file not being recognized.
In an earlier example I had used :

cm.CommandText = "/QSYS.LIB/SPIL.LIB/PBDAGENT.FILE(*FIRST, *NONE)"
cm.CommandType = adCmdTable
Set rs = cm.Execute

But I wanted to use SQL instead. I would highly appreciate it if someone could point out to me how to do this.

Thank you in advance.
Sushama