没有配置数据源,是否可以使用语句连接oracle

迷雾精灵

sdlkfj2 ,想知道没有配置数据源,在QTP中是否可以使用语句直接连接oracle库
如果可以,帮忙高手们贴上代码,万分谢谢啊!

lin85210

可以的

迷雾精灵

谢谢!sdlkfj2 看来只能建立通过建立DNS或安装oracle客户端来解决了.

nk9841

http://bbs.51testing.com/thread-37499-1-3.html
  偶然看到的，正好适合你这个问题～

迷雾精灵

原帖由 风过无息 于 2007-1-26 12:02 发表
自己试一下就可以了。
我在本机上试了是可以的。

能把代码贴一下吗?
用大家 提供的代码改了一下,总是出现下面的问题:
我这里总出现"未找到 Oracle 客户端和网络组件。这些组件是由 Oracle 公司提供的，是 Oracle 8i 版 (或更高) 客户软件安装的一部分。

在安装这些组件之前，将无法使用此提供程序。"
这是为什么呢?

netsky_lt

没有配置数据源,要装客户端的；具体在本论坛找一下“不同数据库的连接方法”
曾经有好人列出很多种方法的帖啦。

nk9841

Dim res,cmd,sql
Dim user_name,temp
     Set Res=createobject("adodb.recordset")
     Set Cmd=createobject("adodb.command")
        Cmd.activeconnection="Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=;Initial Catalog=;Data Source="
   
   
       
    sql="select * from table"

    Cmd.CommandText = sql
    Set res = Cmd.Execute()
       
    Set res = nothing
    Set Cmd= nothing
oracle的没有，这个是sql server的，应该改一下连接的设定就可以拉～

风过无息

自己试一下就可以了。
我在本机上试了是可以的。

迷雾精灵

怎么没人回复啊sdlkfj7