代码：

Public Sub DBConnect()
    Dim Conn 
    Dim str
    '连接oracle字符串的生成，请参考 前一篇博文 【QTP连接oracle 之 连接oracle数据库字符串】  
    Set Conn = CreateObject("ADODB.Connection")
    Conn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;Password=123456;Data Source=testdb"

    '打开数据库连接
    Conn.Open
    '判断数据库连接是否成功
    If Conn.State = 0 Then     
        msgbox "fail"
        Reporter.ReportEvent micFail, "testing", "连接数据库失败"
    else
        msgbox "success"
        Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
    End If

    '对数据库执行删除操作

    '关闭数据库连接

       Conn.close

End Sub

其余的C#，python 都可以链接，就QTP链接不了，是脚本错误吗？