THIS IS BHAVESH
I AM GETTING ERROR WHILE EXECUTING RDO PREPARED STATEMENT THROUGH VB6 ODBC CONECTIVITY ON AS/400 SERVER
PL. NOTE THAT IT IS WHEN I HAVE CHANGED MY SERVER BOX FROM V4R5 TO V5R2 MODEL
STRING FOR PREPARED STATEMENT I AM USING AS FOLLOWS
Public SosRdoEnv As rdoEnvironment
Public SosRdoCon As rdoConnection
Public SosPrpStmt1 As rdoPreparedStatement
Public SosResultset1 As rdoResultset
Public MjobNo As String
Public MjobName As String
Set SosRdoEnv = rdoEngine.rdoCreateEnvironment("", "", "")
SQuery = "DSN=TIMRDO;UID=ASHIMA;PWD=ASHIMA;"
On Error GoTo ErrorHandler
Set SosRdoCon = SosRdoEnv.OpenConnection("", rdDriverNoPrompt, False, SQuery)
SosRdoCon.QueryTimeout = 3600
SQuery = "CALL REPLIB.REPSTOR(?,?)"
Set SosPrpStmt1 = SosRdoCon.CreatePreparedStatement("", SQuery)
SosPrpStmt1(0).Value = ""
SosPrpStmt1(1).Value = ""
SosPrpStmt1(0).Direction = rdParamInputOutput
SosPrpStmt1(1).Direction = rdParamInputOutput
MjobNo = SosPrpStmt1(0).Value
MjobName = SosPrpStmt1(1).Value
INTERNAL DRIVER ERROR
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!
No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.
Your password has been sent to:firstname.lastname@example.org
To follow this tag...
Thanks! We'll email you when relevant content is added and updated.
Share this item with your network: