在qtp的expert view中输入:从其他帖子上看到的一种手写代码连接oracle的方式
Dim Cnn
Dim Rst
Dim strCnn
strCnn="rovider=OraOLEDB.Oracle.1;Data Source=172.16.26.27assword=indussale;User ID=indussaleersist Security Info=True;"
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open strCnn
Set Rst =CreateObject("ADODB.Recordset")
Rst.open "select column_name from table_name where **** ", Cnn
i=1