Chinaunix

标题: pb怎么執行as400里面的PGM程序？ [打印本页]

作者: 946 时间: 2006-05-05 09:24
标题: pb怎么執行as400里面的PGM程序？
各位老大：
OLEObject cn400, AllCustData, CustRcdCmd, CustRcdData, rs400
cn400 = CREATE OLEObject
long ll_status

ll_status = cn400.ConnectToNewObject ("adodb.connection")
IF ll_status <> 0 THEN
   MessageBox ("Error", "Unable to create ado.connection")
else
   cn400.Provider = ("IBMDA400")
END IF

open(w_prompt)
connectString = "Provider=IBMDA400;Data Source=" + systemName + ";"

cn400.Open(connectString, userid, password)

CustRcdCmd = CREATE OLEObject
ll_status = CustRcdCmd.ConnectToNewObject ("adodb.command")
IF ll_status <> 0 THEN
   MessageBox ("Error", "Unable to create adodb.command")
End If

CustRcdCmd.ActiveConnection = cn400
CustRcdCmd.Execute("{{CALL KC0003('02H00131')}}") 這句報錯，為什么？

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)