首先建一个连接DB2的DSN
然后在QTP中用ADO连接,类似如下代码:
Set strOracleConnection = CreateObject("ADODB.Connection")
strOracleConnection.open("DSN=xxx;UID=xxx

WD=xxx;SERVER=xxx")
strQuery = "Declare vstr varchar2(4000); Begin vstr:= Truncate_Tables(); End;"
Set strOracleRec = strOracleConnection.Execute(strQuery)
推荐新书《QTP自动化测试实践》:
http://blog.csdn.net/Testing_is_believing/category/413627.aspx