qtp10连接不上oracle数据库

qtp10连接不上oracle数据库

用我写的这个试试
Set cnn= CreateObject("ADODB.Connection")
cnn.ConnectionString="Provider=OraOLEDB.Oracle.1;Password=密码;Persist Security Info=True;User ID=用户名;Data Source=数据库名称"
cnn.Open

Do
On error resume next
cnn.Open
Loop until cnn.State

If cnn.State<>0 Then
Set Rs=createObject("ADODB.Recordset")
strsql="select * from XXXX" '从数据库中基本查询

Rs.Open strsql,cnn,1,3

msgbox Mid(Rs("字段"),5,4)

End If追问set开始就报错，general run error追答这个错误应是其他的原因引起的，重新建立新的test再试试这段代码追问还是：不行，加了dim cnn也不行追答把你的代码的截图发个过来 我看看追问
追答这不是我提供的代码追问你那个set一执行就报错了，全部照抄的，就是加了用户名密码。。。追答general run error 这个错误信息不是因为set 这个是整个项目中有不能是别的错误就会停留在第一行 然后报错。追问
追答这是在我这里的运行情况，

追问应该是我系统问题。。。

连不上至少有报错吧？追问没有报错，后面有个判断，直接打出下一行if语句中的“连接失败”