新手VB6.0连接oracle问题

[b537051920]

环境：我是做C#的，进公司有一个VB的程序可能有点问题，让我去调试，结果连接oracle数据库就连接不上了，之前VB的人都走了也没有文档。

问题如下：

oracle服务器：oral 账号：access 密码：password IP：192.168.1.1
1、oracle中的net manage 创建服务，测试通过，可以连接。（oracle 9i）
2、plsql登陆oral成功。（plsql 7.0）
3、VB6.0连接数据代码如下。

Dim conn As ADODB.Connection
Set conn CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft ODBC for Oracle};Server=oral;Uid=access;Pwd=password;"
conn.CommandTimeout = 20000

If Err.Number <> 0 Then
  MsgBox "连接失败"
Else 
  MsgBox "连接成功"
End If

Err.Number = =-2147467259
Err.Description = "[Microsoft][ODBC driver for Oracle][Oracle]"
Err.Source = "Microsoft OLE DB Provider for ODBC Drivers"
Err.LastDllError = 0


这2天一直报这个问题，数据库都连接不上，根本调试不了。
各位帮帮忙，公司是一个都帮不上的，除了我都是java的，
或者哪位有vb连接oracle的心得，一步一步的详细步骤给我发下地址，先谢谢了。

[楚狂歌]

本地装了连接的驱动没？

[於黾]

Err是个啥,在哪里定义的

[b537051920]

引用 1 楼 Z65443344 的回复:

Err是个啥,在哪里定义的

If Err.Number <> 0 Then MsgBox "连接失败" Else MsgBox "连接成功" End If 这个是系统的，获取错误信息。。。

[b537051920]

补充，同样的连接代码在服务器上可以连接。 拿到本地就报这样的错误

[cnwangb]

给一段VB 6. 0 的代码： Dim COMM As New ADODB.Connection Dim RS As New ADODB.Recordset Dim sql As String COMM.Open "Provider=MSDAORA.1;Persist Security Info=False;User ID=access;Password=password;Data Source=oral" sql = "select sysdate from dual" Set RS = COMM.Execute(sql) MsgBox RS(0)

[饮水需思源]

客户端机器需要安装oracle客户端程序

[Tiger_Zhao]

先到控制面板的 ODBC 中添加一个 Microsoft ODBC for Oracle 的连接，测试能否成功。
oracle客户端没装吧！

[TIM_QQ]

本地电脑安装了oracle 服务器端 ，用VB连接还需要安装cline端吗？

[额，饿了]

楼主 搞定了没！！！ 同求怎么解决，win10 连不上 其他系统没问题

[ec_guo]

看我上传资料里有

[ec_guo]

http://download.csdn.net/detail/ec_guo/9666002

[qq_24248333]

你没有讲解决方法。。。。。。。。