Call RPG program from VBA

[botatun]

I need store some data from Excel in as400 file
I use this code:

cmMYSQLCMD.CommandText =
"call vrlib.ITEMBSR02 ("' & sAs4Param & ')"
'execute the SQL query
Set rs_Update_BSR_Level = cmMYSQLCMD.Execute()


It is work fine. Now I need return text message as additional parameter for ITEMBSR02.

How to declare parameters instead of hard coding them
- to get an output?
That I can do something like that:

cmMYSQLCMD.CommandText =
"call vrlib.ITEMBSR02 ( Item, Error)"
MsgBox Error
[/code]

 

[AlexCuse]

I think you will have to open a recordset using your query to fill it. I don't know the first thing about RPG or AS400's, but I imagine if you can execute the query using an ADO command you can return a recordset from it.

Have a look here:

http://www.functionx.com/vbaccess/Lesson22.htm

Hope this helps,

Alex

Ignorance of certain subjects is a great part of wisdom

 

[BobRodes]

I believe you'll want to get a look at this:

http://www-03.ibm.com/servers/eserver/iseries/access/oledb/